Late Binding Help please
On 3 Aug, 11:26, bony_tony 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, "
wrote:
On 3 Aug, 10:43, bony_tony 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
|