[Solved] What modules are in ThisComponent

[no_such_UNO]

Sub P
Dim PPP As Object
ppp = ThisComponent.beans.getPropertyByName()
Print ppp
End Sub

Print is command that prints a string. I need to extract from ThisComponent all available values but I have no idea how. Though I need a service of getPropertyValue() but before that I have to know what module I am in. The code above errors with "Property or method not found :beans." How to see into ThisComponent?

I rewrite the code
Sub P
Dim oPPP As Object
Dim sPPP As String
oPPP = ThisComponent
sPPP = oPPP.getPropertyByName()
Print " " & sPPP
End Sub

The code errors with "Property or method not found :getPropertyByName()"

[JeJe]

Try MRI

https://github.com/hanya/MRI

[no_such_UNO]

Thank you JeJe for your prompt reply but the beast is written in Python. I do need to learn Python then and I would appreciate something written in Basic as I am new to it and it is more natural to the office suit, at least it is my opinion.

[Villeroy]

The language does not matter at all. MRI can even generate Basic code (or Java or C++ or Python).
[Tutorial] Introduction into object inspection with MRI

[MrProgrammer]

What modules are in ThisComponent

ThisComponent [Runtime]
Addresses the active component so that its properties can be read and set. ThisComponent is used from document Basic, where it represents the document the Basic belongs to. The type of object accessed by ThisComponent depends on the document type.

I need to extract from ThisComponent all available values but I have no idea how.
I would appreciate something written in Basic.

Tools → Macros → Organize Macros → OpenOffice Basic

202306250900.gif (71.41 KiB) Viewed 2110 times

WritedbgInfo(ThisComponent)

[no_such_UNO]

MrProgrammer it s tough! But how to use these macros? No relevant manual I can find. And yet this is buggy

Sub SetBasicReadOnlyFlag(bReadOnly as Boolean)
Dim i as Integer
Dim LibName as String
Dim BasicLibNames() as String
	BasicLibNames() = BasicLibraries.ElementNames()
	For i = 0 To Ubound(BasicLibNames())
		LibName = BasicLibNames(i)
		If LibName <> "Standard" Then
			BasicLibraries.SetLibraryReadOnly(LibName, bReadOnly) <<arguments is not optional
		End If
	Next i
End Sub

But my wish is fulfilled. Thank you.

Edit: But how to use these macros? is a new subject and would need a new topic. The current topic concerns ThisComponent.  -- MrProgrammer, forum moderator