@@ -115,103 +115,103 @@ const settings = `<office:settings>
115115 </config:config-item-set>
116116 </office:settings>` ;
117117
118- const scripts = `<office:scripts>
119- <office:script script:language="ooo:Basic">
120- <ooo:libraries xmlns:ooo="http://openoffice.org/2004/office" xmlns:xlink="http://www.w3.org/1999/xlink">
121- <ooo:library-embedded ooo:name="Standard">
122- <ooo:module ooo:name="ThisDocument">
123- <ooo:source-code>Sub ThisDocument
124-
125- Rem Private Sub Document_Close()
126- Rem 
127- Rem End Sub
128- Rem 
129- Rem Private Sub Document_New()
130- Rem 
131- Rem End Sub
132- Rem 
133- Rem Private Sub Document_Open()
134- Rem 
135- Rem End Sub
136- Rem
137- End Sub
138- </ooo:source-code>
139- </ooo:module>
140- <ooo:module ooo:name="AaMacrosPersos">
141- <ooo:source-code>Sub AaMacrosPersos
142-
143- Rem 
144- Rem Sub AltFTavecNumeros()
145- Rem Selection.Style = ActiveDocument.Styles("Figure")
146- Rem Selection.TypeParagraph
147- Rem Selection.Style = ActiveDocument.Styles("Légende")
148- Rem 
149- Rem Selection.TypeText ("Figure ")
150- Rem 
151- Rem WordBasic.Insertfield Field:="styleref NuméroChapitre"
152- Rem Selection.TypeText "–"
153- Rem WordBasic.Insertfield Field:="autonum"
154- Rem WordBasic.Insert " "
155- Rem WordBasic.EndOfLine
156- Rem 
157- Rem Selection.MoveLeft Unit:=wdWord, Count:=2, Extend:=wdExtend
158- Rem Selection.Fields.Update
159- Rem Selection.MoveRight Unit:=wdCharacter, Count:=1
160- Rem End Sub
161- Rem Sub AAccentue()
162- Rem Selection.TypeText Text:="À"
163- Rem End Sub
164- Rem Sub EAccentue()
165- Rem Selection.TypeText Text:="É"
166- Rem End Sub
167- Rem Sub MarquerEntreeIndex()
168- Rem Dim EntreeIndex As String
169- Rem 
170- Rem 'ActiveWindow.ActivePane.View.ShowAll = True
171- Rem 
172- Rem 'sélectionner le mot courant si aucune sélection
173- Rem If Selection.Type = wdSelectionIP Then
174- Rem Selection.MoveLeft Unit:=wdWord, Count:=1
175- Rem Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
176- Rem End If
177- Rem 
178- Rem 'enlever les espaces de début et fin
179- Rem EntreeIndex = Trim(Selection)
180- Rem If Mid(EntreeIndex, 2, 1) = "’" Then 'ôte les débuts de mot avec apostrophe
181- Rem EntreeIndex = Mid(EntreeIndex, 3)
182- Rem End If
183- Rem 'marquer l'entrée
184- Rem ActiveDocument.Indexes.MarkEntry Range:=Selection.Range, Entry:=EntreeIndex
185- Rem 'se positionner en fin d'entrée
186- Rem Selection.MoveRight Unit:=wdCharacter, Count:=1
187- Rem Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
188- Rem Selection.MoveRight Unit:=wdCharacter, Count:=1
189- Rem Selection.MoveLeft Unit:=wdCharacter, Count:=1
190- Rem End Sub
191- Rem Sub GuillemetsOnOff()
192- Rem With Options
193- Rem .AutoFormatAsYouTypeReplaceQuotes = Not .AutoFormatAsYouTypeReplaceQuotes
194- Rem End With
195- Rem End Sub
196- Rem Sub AltFT()
197- Rem Selection.Style = ActiveDocument.Styles("Figure")
198- Rem Selection.TypeParagraph
199- Rem Selection.Style = ActiveDocument.Styles("Légende")
200- Rem 
201- Rem End Sub
202- Rem 
203- Rem
204- End Sub
205- </ooo:source-code>
206- </ooo:module>
207- </ooo:library-embedded>
208- </ooo:libraries>
209- </office:script>
210- <office:event-listeners>
211- <script:event-listener script:language="ooo:StarBasic" script:event-name="office:start-app" script:macro-name="application:Indesko.FixOutline.FixOutline"/>
212- <script:event-listener script:language="ooo:StarBasic" script:event-name="office:save" script:macro-name="application:Indesko.FixOutline.FixOutline"/>
213- </office:event-listeners>
214- </office:scripts>` ;
118+ // const scripts = `<office:scripts>
119+ // <office:script script:language="ooo:Basic">
120+ // <ooo:libraries xmlns:ooo="http://openoffice.org/2004/office" xmlns:xlink="http://www.w3.org/1999/xlink">
121+ // <ooo:library-embedded ooo:name="Standard">
122+ // <ooo:module ooo:name="ThisDocument">
123+ // <ooo:source-code>Sub ThisDocument
124+ //
125+ // Rem Private Sub Document_Close()
126+ // Rem 
127+ // Rem End Sub
128+ // Rem 
129+ // Rem Private Sub Document_New()
130+ // Rem 
131+ // Rem End Sub
132+ // Rem 
133+ // Rem Private Sub Document_Open()
134+ // Rem 
135+ // Rem End Sub
136+ // Rem
137+ // End Sub
138+ // </ooo:source-code>
139+ // </ooo:module>
140+ // <ooo:module ooo:name="AaMacrosPersos">
141+ // <ooo:source-code>Sub AaMacrosPersos
142+ //
143+ // Rem 
144+ // Rem Sub AltFTavecNumeros()
145+ // Rem Selection.Style = ActiveDocument.Styles("Figure")
146+ // Rem Selection.TypeParagraph
147+ // Rem Selection.Style = ActiveDocument.Styles("Légende")
148+ // Rem 
149+ // Rem Selection.TypeText ("Figure ")
150+ // Rem 
151+ // Rem WordBasic.Insertfield Field:="styleref NuméroChapitre"
152+ // Rem Selection.TypeText "–"
153+ // Rem WordBasic.Insertfield Field:="autonum"
154+ // Rem WordBasic.Insert " "
155+ // Rem WordBasic.EndOfLine
156+ // Rem 
157+ // Rem Selection.MoveLeft Unit:=wdWord, Count:=2, Extend:=wdExtend
158+ // Rem Selection.Fields.Update
159+ // Rem Selection.MoveRight Unit:=wdCharacter, Count:=1
160+ // Rem End Sub
161+ // Rem Sub AAccentue()
162+ // Rem Selection.TypeText Text:="À"
163+ // Rem End Sub
164+ // Rem Sub EAccentue()
165+ // Rem Selection.TypeText Text:="É"
166+ // Rem End Sub
167+ // Rem Sub MarquerEntreeIndex()
168+ // Rem Dim EntreeIndex As String
169+ // Rem 
170+ // Rem 'ActiveWindow.ActivePane.View.ShowAll = True
171+ // Rem 
172+ // Rem 'sélectionner le mot courant si aucune sélection
173+ // Rem If Selection.Type = wdSelectionIP Then
174+ // Rem Selection.MoveLeft Unit:=wdWord, Count:=1
175+ // Rem Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
176+ // Rem End If
177+ // Rem 
178+ // Rem 'enlever les espaces de début et fin
179+ // Rem EntreeIndex = Trim(Selection)
180+ // Rem If Mid(EntreeIndex, 2, 1) = "’" Then 'ôte les débuts de mot avec apostrophe
181+ // Rem EntreeIndex = Mid(EntreeIndex, 3)
182+ // Rem End If
183+ // Rem 'marquer l'entrée
184+ // Rem ActiveDocument.Indexes.MarkEntry Range:=Selection.Range, Entry:=EntreeIndex
185+ // Rem 'se positionner en fin d'entrée
186+ // Rem Selection.MoveRight Unit:=wdCharacter, Count:=1
187+ // Rem Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
188+ // Rem Selection.MoveRight Unit:=wdCharacter, Count:=1
189+ // Rem Selection.MoveLeft Unit:=wdCharacter, Count:=1
190+ // Rem End Sub
191+ // Rem Sub GuillemetsOnOff()
192+ // Rem With Options
193+ // Rem .AutoFormatAsYouTypeReplaceQuotes = Not .AutoFormatAsYouTypeReplaceQuotes
194+ // Rem End With
195+ // Rem End Sub
196+ // Rem Sub AltFT()
197+ // Rem Selection.Style = ActiveDocument.Styles("Figure")
198+ // Rem Selection.TypeParagraph
199+ // Rem Selection.Style = ActiveDocument.Styles("Légende")
200+ // Rem 
201+ // Rem End Sub
202+ // Rem 
203+ // Rem
204+ // End Sub
205+ // </ooo:source-code>
206+ // </ooo:module>
207+ // </ooo:library-embedded>
208+ // </ooo:libraries>
209+ // </office:script>
210+ // <office:event-listeners>
211+ // <script:event-listener script:language="ooo:StarBasic" script:event-name="office:start-app" script:macro-name="application:Indesko.FixOutline.FixOutline"/>
212+ // <script:event-listener script:language="ooo:StarBasic" script:event-name="office:save" script:macro-name="application:Indesko.FixOutline.FixOutline"/>
213+ // </office:event-listeners>
214+ // </office:scripts>`;
215215
216216const fonts = `<office:font-face-decls>
217217 <style:font-face style:name="StarSymbol" svg:font-family="StarSymbol" style:font-charset="x-symbol"/>
0 commit comments