Bonjour Christophe,
christophe desomer a écrit :
Bonjour,
je débute dans l'écriture de macro et je rencontre un petit problème.
Pour les questions concernant la macro, utilise la liste adéquate
[EMAIL PROTECTED] Cela soulagera cette liste qui est très active
donc très chargée.
Voici ma macro
Option explicit
Sub MargerlaPage
dim Page as Object
Page = thiscomponent
Page.TopMargin=1300
Page.BottomMargin=1300
Page.LeftMargin=1300
Page.RightMargin=1300
End Sub
La page n'est pas le document (donc ce n'est pas ThisComponent). Elle
est définie par son style et TopMargin, etc sont des propriétés du style
de page.
Donc la macro pourrait être :
Sub Main
Dim monDocument As Object
Dim leCurseurVisible As Object
Dim lesStylesPages As object
Dim leStylePage AS Object
Dim nomStylePage As String
'où se trouve le curseur ?
monDocument = ThisComponent
leCurseurVisible = monDocument.CurrentController.ViewCursor
'quel est le nom du style de la page où se trouve le curseur ?
nomStylePage = leCurseurVisible.PageStyleName
'on récupére le style de page correspondant
'parmi l'ensemble des styles de page
lesStylesPages = monDocument.StyleFamilies.getByName("PageStyles")
leStylePage = lesStylesPages.getByName(nomStylePage)
'on modifie le style de page
leStylePage.TopMargin = 1300
leStylePage.BottomMargin = 1300
leStylePage.LeftMargin = 1300
leStylePage.RightMargin = 1300
End Sub
Voilà. Rendez-vous sur la liste prog pour d'autres questions.
Agnès S.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
