Re: Late Binding Help please

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

.

Relevant Pages

  • Re: Help with script: STARTING A NEW SUB.. (within sub?)
    ... (dim means dimension? ... you can't put a sub within a sub as least not like you are trying to do. ... If x> 50 Then GoSub SubInASub ... Not sure if this addresses the OP's problem; not saying you should do it; ...
    (microsoft.public.excel.misc)
  • Re: Late Binding Help please
    ... Your Sub is coming up with a 0 in Word.. ... MsgBox wdPrintAllDocument ... It is saying an Object is required. ... Word Constants - to find out the value of any Word constant, ...
    (microsoft.public.excel.programming)
  • Re: Display The Next Record Number on New Record?
    ... "Orv" wrote: ... >> message box saying it's saved. ... >> Dim varResult As Variant ... >> End Sub ...
    (microsoft.public.access.formscoding)
  • Re: Display The Next Record Number on New Record?
    ... "Orv" wrote: ... >> message box saying it's saved. ... >> Dim varResult As Variant ... >> End Sub ...
    (microsoft.public.access.forms)
  • Re: Help with script: STARTING A NEW SUB.. (within sub?)
    ... allrignt, see dim x, told ya I was slow. ... you can't put a sub within a sub as least not like you are trying to do. ... If x> 50 Then GoSub SubInASub ... Not sure if this addresses the OP's problem; not saying you should do it; ...
    (microsoft.public.excel.misc)