VBA Code to change orientation to Landscape help

[Daniellel]

Hi, i have an excel doc that currently has some code to copy a selection and paste it into a word document... I set it all up on a windows machine but now need to use it on a apple mac and what a surprise, it doesn't work! after hours of googling and amending my code to work with apple i am almost there... the only thing i cant seem to find online is how to make the word document Landscape... this is the code i have for windows and what i have for mac... it doesn't like the orientation of the margin sizes. Can anyone help?
Windows Code:

Dim objPrintWord, objPrintDoc As Object
    Set objPrintWord = CreateObject("Word.Application")
    Set objPrintDoc = objPrintWord.Documents.Add
        With objPrintDoc.PageSetup
        .Orientation = wdOrientLandscape
        .TopMargin = CentimetersToPoints(1)
        .BottomMargin = CentimetersToPoints(1)
        .LeftMargin = CentimetersToPoints(1)
        .RightMargin = CentimetersToPoints(1)
End With

Mac Code:

Dim oWord As Object
Application.Wait (3)
Set oWord = CreateObject(Class:=("Word.application"))
oWord.Visible = True
oWord.Activate
Dim oDoc
Set oDoc = oWord.Documents.Add

With oDoc.PageSetup
    .Orientation = wdOrientLandscape
    .TopMargin = CentimetersToPoints(1)
    .BottomMargin = CentimetersToPoints(1)
    .LeftMargin = CentimetersToPoints(1)
    .RightMargin = CentimetersToPoints(1)
End With

 

[RoryA]

What does "doesn't like" mean?

It looks like your code is late bound, so wdOrientLandscape has no value. Try declaring it yourself:

Const wdOrientLandscape as long = 1

and see if that helps. You also might as well just work out the value of CentimetersToPoints(1) and put that in the code.

 

[Daniellel]

What does "doesn't like" mean?

It looks like your code is late bound, so wdOrientLandscape has no value. Try declaring it yourself:

Const wdOrientLandscape as long = 1

and see if that helps. You also might as well just work out the value of CentimetersToPoints(1) and put that in the code.

Thank you for this, IUnfortunately it did not work, the page stayed Portrait. I am unsure how to work out the value of CentimetersToPoints though? how would i do that and what would the code look like?

 

[RoryA]

In the immediate window (Ctrl+G while in the VB Editor) type:

?centimeterstopoints(1)

and press Enter.

 

[Daniellel]

In the immediate window (Ctrl+G while in the VB Editor) type:

?centimeterstopoints(1)

and press Enter.

In the immediate window (Ctrl+G while in the VB Editor) type:

?centimeterstopoints(1)

and press Enter.

Thank you for this, but still no luck on the orientation... any other ideas?

 

[RoryA]

What does your current code look like and which version of Mac Excel is being used?

 

[Daniellel]

What does your current code look like and which version of Mac Excel is being used?

Office 365 package is being used...

This is now my code...

Dim oWord As Object
Set oWord = CreateObject(Class:=("Word.application"))
oWord.Visible = True
oWord.Activate
Dim oDoc
Set oDoc = oWord.Documents.Add
Const edOrientLandscape As Long = 1

 

[RoryA]

It's wdOrientLandscape not edOrientLandscape

 

[Daniellel]

It's wdOrientLandscape not edOrientLandscape

sorry i do have it as wd, i was retyping it over from my mac and misstyped...

 

[Daniellel]

still can not get it to work