https://bugs.documentfoundation.org/show_bug.cgi?id=92511
Cor Nouws <[email protected]> changed: What |Removed |Added ---------------------------------------------------------------------------- Status|UNCONFIRMED |RESOLVED CC| |[email protected] Resolution|--- |WORKSFORME --- Comment #1 from Cor Nouws <[email protected]> --- Hi vlad, Thanks for your post, but I think the macro is not correct. Please try the following: Sub Main Dim oForm As Object Dim n% 'Globalscope.BasicLibraries.LoadLibrary("XrayTool") 'xray ThisComponent.DrawPage.Forms For n = 0 to ThisComponent.DrawPage.Forms.Count -1 oForm=ThisComponent.DrawPage.Forms.getByIndex(n) '(oFormName) MsgBox "The value of oFormName const is - " & oFormName & Chr(13) &_ "The name of getting form is -" & oForm.Name Next End Sub I set this as worksForMe. Regards, Cor -- You are receiving this mail because: You are the assignee for the bug.
_______________________________________________ Libreoffice-bugs mailing list [email protected] http://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
