Attachment 170798 Details for Bug 141307 – the "faulty" macro

the "faulty" macro

Module1.xba (text/html), 1.01 KB, created by hugotrip@free.fr on 2021-03-28 21:40:31 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: hugotrip@free.fr

Created: 2021-03-28 21:40:31 UTC

Size: 1.01 KB

patch

obsolete

><?xml version="1.0" encoding="UTF-8"?>
><!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
><script:module xmlns:script="http://openoffice.org/2000/script" script:name="Module1" script:language="StarBasic">REM  *****  BASIC  *****
>
>Sub Main
>
>End Sub
>
>Sub SwitchProf
>    pFamilies = ThisComponent.StyleFamilies.getByName(&quot;ParagraphStyles&quot;)
>    pStyle = pFamilies.getByName(&quot;Prof&quot;)
>    cFamilies = ThisComponent.StyleFamilies.getByName(&quot;CharacterStyles&quot;)
>    cStyle = cFamilies.getByName(&quot;Prof&quot;)
>    If pStyle.CharHidden = True Then
>	   	pStyle.CharHidden = 0
>    	cStyle.CharHidden = 0
>	Else
>	   	pStyle.CharHidden = 1
>    	cStyle.CharHidden = 1
>	End If
>End Sub
>
>Sub SwitchEleve
>    pFamilies = ThisComponent.StyleFamilies.getByName(&quot;ParagraphStyles&quot;)
>    pStyle = pFamilies.getByName(&quot;txt Ã  trous Ã©lÃ¨ve&quot;)
>    If pStyle.CharHidden = True Then
>	   	pStyle.CharHidden = 0
>	Else
>	   	pStyle.CharHidden = 1
>	End If
>End Sub
></script:module>

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Module1" script:language="StarBasic">REM  *****  BASIC  *****

Sub Main

End Sub

Sub SwitchProf
    pFamilies = ThisComponent.StyleFamilies.getByName(&quot;ParagraphStyles&quot;)
    pStyle = pFamilies.getByName(&quot;Prof&quot;)
    cFamilies = ThisComponent.StyleFamilies.getByName(&quot;CharacterStyles&quot;)
    cStyle = cFamilies.getByName(&quot;Prof&quot;)
    If pStyle.CharHidden = True Then
	   	pStyle.CharHidden = 0
    	cStyle.CharHidden = 0
	Else
	   	pStyle.CharHidden = 1
    	cStyle.CharHidden = 1
	End If
End Sub

Sub SwitchEleve
    pFamilies = ThisComponent.StyleFamilies.getByName(&quot;ParagraphStyles&quot;)
    pStyle = pFamilies.getByName(&quot;txt Ã  trous Ã©lÃ¨ve&quot;)
    If pStyle.CharHidden = True Then
	   	pStyle.CharHidden = 0
	Else
	   	pStyle.CharHidden = 1
	End If
End Sub
</script:module>

Actions: View

Attachments on bug 141307: 170798 | 170816