howto copy pagesetup

[Nikhil Patel]

Hi all,
I need to append contents of one document to another programmatically. I
am able to do it using the FormattedText property. But I need to also copy
the PageSetup along with the FormattedText. How can I do this?

Thanks.
-Nikhil

 

[Dave Lett]

Hi Nikhil,

You can use the following to amend your current routine:

Dim oDocFrom As Document
Dim oDocTo As Document

'''open each document
Set oDocFrom = Documents.Open(FileName:="Enter the name/path of the document
you want to append.")
Set oDocTo = Documents.Open(FileName:="Enter the name/path of the document
you want to append to.")
'''use whatever code to append the formattedtext
'''of oDocFrom to oDocTo

'''copy the .PageSetup properties
With oDocTo.PageSetup
.BottomMargin = oDocFrom.PageSetup.BottomMargin
.TopMargin = oDocFrom.PageSetup.TopMargin
'''add any other properties you want
End With

HTH,
Dave