[Solved] Macro to hide/unhide a Writer section

[Al Huneke]

Hi-

I'm pretty new to macros (and OO in general), but I'm getting there. I've figured out how to add custom operations to a toolbar by using the macro recorder and so far so good. But....I defined a section I want to hide and unhide with a toolbar button. When I record the operation Format/Sections..., pick my section name of interest and uncheck hide what gets recorded is:

Code: Select all

sub ShowRevHistory
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:EditRegion", "", 0, Array())

Not nearly enough. So it appears the recorder does not work in this case. Can anyone tell me why and/or offer some code to do what I need? I need to be able to select a specific section and check or uncheck the Hide checkbox.

Thanks!
Al

[JohnV]

Code: Select all

Sub Hide_ShowSection
ts = ThisComponent.getTextSections
s1 = ts.getByName("Section1")
If s1.IsVisible then
  s1.IsVisible = false
 Else s1.IsVisible = true
EndIf  
End Sub

[Al Huneke]

Thanks for your quick reply John. Just what I needed.

[bluezeak]

For anyone interested in how to use a checkbox to implement the 'hide section' see link below.
(thanks so much for sharing the macro code!)

http://www.oooforum.org/forum/viewtopic.phtml?p=534295

[DanielDG]

Can this macro be used in a master document to hide sections? I have defined hidden section in the subdocuments of the master document, but I don't know how to hide them in the master document. I have to produce a PDF that has these sections excluded.