Apache OpenOffice Community Forum

Posted: **Wed Feb 03, 2016 1:42 pm**

I would like to help to translate the following code in VBScript:

Dim Doc As Object
Dim Sheet As Object
Dim StyleFamilies As Object
Dim PageStyles As Object
Dim DefPage As Object

Doc = ThisComponent
StyleFamilies = Doc.StyleFamilies
PageStyles = StyleFamilies.getByName("PageStyles")
DefPage = PageStyles.getByName("Default")

DefPage.LeftMargin = 1000
DefPage.RightMargin = 1000

Posted: **Wed Feb 03, 2016 5:16 pm**

Are you working with a Calc file or a Writer file?

Do you have to use VBScript and not, say, python?

Will the file you want to manipulate already be open, or will the script have to open it?

How will you identify the file you want to manipulate? By file url?

Posted: **Wed Feb 03, 2016 7:35 pm**

I have to write a program in VBScript that manipulate CALC file.
I don't have problems opening the file.
I have problems to pass left margin, right margin, top margin and bottom margin of the page.

Posted: **Wed Feb 03, 2016 9:52 pm**

Then it is simply:

Code: Select all

' ***** VBScript *****
Dim Doc
Dim Sheet
Dim StyleFamilies
Dim PageStyles
Dim DefPage

' ( you already have Doc )
Set StyleFamilies = Doc.StyleFamilies
Set PageStyles = StyleFamilies.getByName("PageStyles")
Set DefPage = PageStyles.getByName("Default")

DefPage.LeftMargin = 1000
DefPage.RightMargin = 1000

Apache OpenOffice Community Forum

VBScript format pages

VBScript format pages

Re: VBScript format pages

Re: VBScript format pages

Re: VBScript format pages