Peter Ruman wrote:
So I recorded new macro and it works just fine now, exactly what I need. And
if there was a way to change page settings (margins) through macro... Maybe
that is just too much to ask :).
I misread your previous email. I would have sworn you said that the
problem was not fixed in 2.0.4. That was definitely time to call it a
night.
The following format changed margins of a test page style to 1.8 cm.
You will have to experiment if you use Imperial measurements. Metrics
are in force hereabouts.
The macro works even when I change my measurement unit to inch ( =
.71"). Perhaps someone else is more familiar with coding for Imperial;
it may well be the same.
Sub setMargins
Dim oPageStyle as Object
oPageStyle = ThisComponent.StyleFamilies.PageStyles.getByName( "Test" )
With oPageStyle
.LeftMargin = 1800
.RightMargin = 1800
.TopMargin = 1800
.BottomMargin = 1800
End With
End Sub
Shouldn't you be using templates with page margins already set?
--
If you're seeking, check out http://www.rci.org.au
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
