Re: Late Binding Help please

Ok thanks, think I get it now.

Your Sub is coming up with a 0 in Word..

Sub tester()
MsgBox wdPrintAllDocument
End Sub



On 3 Aug, 11:31, "aidan.herit...@xxxxxxxxxx"
<aidan.herit...@xxxxxxxxxx> wrote:
On 3 Aug, 11:26, bony_tony <tony_in_oz1...@xxxxxxxxxxx> wrote:





Thanks for that.
For the line;
wdApp.Selection.PageSetup.TopMargin = appwd.CentimetersToPoints(4.8)
It is saying an Object is required. How do I get round this? Dim
whatever as Object??? I'm guessing...

I'm also having problems with the lines;
wdApp.Selection.MoveUp Unit:=wdLine, Count:=2, Extend:=wdExtend
wdApp.Selection.HomeKey Unit:=wdLine, Extend:=wdExtend

And the following line is saying the number needs to be between -32765
& 32767;
wdApp.Application.PrintOut Filename:="", Range:=wdPrintAllDocument,
Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="",
PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True,
PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0,
PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0

Thanks
Tony

On 3 Aug, 11:08, "aidan.herit...@xxxxxxxxxx"

<aidan.herit...@xxxxxxxxxx> wrote:
On 3 Aug, 10:43, bony_tony <tony_in_oz1...@xxxxxxxxxxx> wrote:

Hi,
I'm having a problem with a couple of lines of my code which I need to
change. I'm no programmer, so I don't really understand all this early/
late binding stuff..

I do know that I need to use late binding though, as I have a file
which is used by users with different Office versions..

My code is coming up with an error on lines;

wdApp.Selection.EndKey Unit:=wdStory
&
wdApp.Selection.PageSetup.TopMargin = CentimetersToPoints(4.8)

How can I fix this?

Cheers
Tony

A number of problems - firstly, WdStory is a Word constant, not a
global one - it's value is 6. Secondly, the := method doesn't work
outside of the host application - so the first version should be

wdApp.Selection.EndKey 6

The second one uses a Word command in the form of CentimetersToPoints
so should be expressed as...

WdApp.Selection.PageSetup.TopMargin = appwd.CentimetersToPoints(4.8)- Hide quoted text -

- Show quoted text -- Hide quoted text -

- Show quoted text -

Sorry, I'm half asleep I think - replace AppWd with WdApp (I used my
standard word object name instead of your variable)

For Range:=wdPrintAllDocument refer to my comments about := and about
Word Constants - to find out the value of any Word constant, go to
Word's VBA and create a sub routine along these lines

sub tester
msgbox wdPrintAllDocument

end sub

Running this will give you the numeric equivalent of the constatn- Hide quoted text -

- Show quoted text -


.

Relevant Pages