Maquette d’édition : exemple de macro-commande Word

Public Sub Maquette()

Dim nom_fenetre$

Dim nom_fic$

Dim nb_dessin

Dim boucle

nom_fenetre$ = WordBasic.[WindowName$](0)

nom_fic$ = WordBasic.[FileName$](0)

WordBasic.DocMinimize

WordBasic.Activate nom_fenetre$

WordBasic.StartOfDocument

SupprimeMEP

WordBasic.DrawSetRange "\Doc"

nb_dessin = WordBasic.DrawCount()

For boucle = 1 To nb_dessin

WordBasic.DrawSelect (boucle)

SupprimeMEP

Next boucle

WordBasic.FileSaveAs Name:=nom_fic$, Format:=6

WordBasic.ChDir " C:\ACE " <<< Nom du répertoire où se trouve le generix.ini du poste client

WordBasic.Shell " C:\ACE\exe \extraction_rtf.exe NO_CTRL fra ap$std_fra :" + nom_fenetre$ + ". rtf ap$std_fra ", 2

<<< Nom du répertoire où se trouve les exécutables du client

<<< Langue

<<< Nom logique du répertoire où se trouve les fichiers au format RTF qui doit être défini dans le generix.ini client

<<< A préciser si l’extension n’apparaît pas dans le nom de la fenêtre en fonction du paramétrage WINDOWS

<<< Nom logique du répertoire où se trouve la maquette résultat (MTF) qui doit être défini dans le generix.ini serveur

WordBasic.DocRestore

WordBasic.Activate nom_fenetre$

WordBasic.ViewPage

End Sub

Private Sub SupprimeMEP()

WordBasic.EditFindClearFormatting

WordBasic.EditFind Find:="^p", Direction:=0, Format:=0, Wrap:=0

While WordBasic.EditFindFound()

WordBasic.EndOfLine

If WordBasic.ParaDown(1, 1) = 0 Then GoTo suite

WordBasic.ResetChar

WordBasic.HighlightColor

If WordBasic.CharRight() = 0 Then GoTo suite

If WordBasic.AtEndOfDocument() = -1 Then GoTo suite

If WordBasic.ParaDown() = 0 Then GoTo suite Else WordBasic.ParaUp

WordBasic.EditFind Find:="^p", Direction:=0, Format:=0, Wrap:=0

Wend

suite:

End Sub