Discussion :

[Jipété]

Bonjour,

Besoin d'un petit coup de main pour convertir ce bout de code qui vient d'une macro Word-VBA et que j'aimerais bien porter sous LO :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With Selection.PageSetup
    .PageWidth = largeurPage
    .PageHeight = hauteurPage
End With

La seule piste que j'ai, c'est le message d'erreur LO :

erreur d'exécution basic '423' PageSetup

et vous conviendrez avec moi qu'avec ça on n'est pas fauché, surtout quand le web ne remonte rien et que l'aide de LO est vide à ce sujet.

Alors bien sûr, j'ai essayé de créer une nouvelle macro avec l'enregistreur, d'aller trifouiller dans le menu Format / Page et d'y modifier des tailles, mais rien ne se retrouve dans le code de la macro !
Un grand mystère pour moi, ça...

Merci pour le coup de main.

[Jipété]

Bon,

j'ai fini par trouver :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
sub passageA3paysage
	Dim oStyle
	Dim sPageStyleName$
	DIM oPageStyles
	Dim oVC
	oVC = ThisComponent.getCurrentController().getViewCursor()
	sPageStyleName = oVC.PageStyleName
	oPageStyles = ThisComponent.StyleFamilies.getByName("PageStyles")
	oStyle = oPageStyles.getByName(sPageStyleName)
	oStyle.Width  = 42000 'LO travaille en centièmes de millimètres
	oStyle.Height = 29700 
end sub