Document Copy missing Headers and Footers

  • Thread starter Thread starter Tim
  • Start date Start date
T

Tim

I will try to be as descriptive as possible.

I am writing a database for a lawyer who would like to
look up a client in the database, select from a list the
document they wish to create for that client, and generate
a legal document at the push of a button.

I've written the database but I'm stuck on one final
part. When a document is created the db will open the OLE
object holding a previously created Word document, copy
its contents to the clipboard, close the OLE object, open
a new Word document and paste the contents and then mail
merge it. The problem is that when the information gets
copied to the clip board it does not copy the Headers and
Footers. I believe it is because of my using WordBasic to
perform the copy. I'm running out of time to research and
make mistakes so I'm really hoping someone can help. It's
one of those, finish it by yesterday things.

Here is the code that opens and copies the OLE object:
Form_subfrmDocument.MyOle.Verb = 0
Form_subfrmDocument.MyOle.Action = 7

Form_subfrmDocument.MyOle.Object.Application.WordBasic.Edit
SelectAll

Form_subfrmDocument.MyOle.Object.Application.WordBasic.Edit
Copy
Form_subfrmDocument.MyOle.Action = 9
 
I've copied a document to the clipboard using oDoc.Content.Copy, and pasted
it back to a new (empty) document, & the headers & footers have come along
fine. But that was using Word VBA - not WordBasic. IMO you would be well
advised to drop WordBasic, & convert to VBA.

HTH,
TC
 
Back
Top