Help Generating Word Doc Using Excel VBA

[CaliKidd]

I am using Excel 2007. I am attempting to generate a Word Document (using a template) using Excel VBA. I have two problems stumping me:

1. I want to create a userform that gives me the option to remove the footer on the document by clicking a checkbox on/off. I know how to create the userform and checkbox, but how do you remove the footer in the Word document programmatically?

When I recorded a macro in Word 2007, it gave me:

WordBasic.RemoveFooter

Note: The template I am using doesn't have a footer on the cover page. It only exists on all subsequent pages.

2. I also want the userform to provide the option to add a watermark. Word has several pre-sets which I would like to access, such as Confidential, Draft, Sample, etc. All of the examples I found online show how this can be done via Word VBA, something like this:

ActiveDocument.AttachedTemplate.BuildingBlockEntries("CONFIDENTIAL 1").Insert Where:=Selection.Range, RichText:=True

How would I get this to work via Excel VBA?

Any ideas experts?

 

[bensonsearch]

I am using Excel 2007. I am attempting to generate a Word Document (using a template) using Excel VBA. I have two problems stumping me:

1. I want to create a userform that gives me the option to remove the footer on the document by clicking a checkbox on/off. I know how to create the userform and checkbox, but how do you remove the footer in the Word document programmatically?

When I recorded a macro in Word 2007, it gave me:

WordBasic.RemoveFooter

Note: The template I am using doesn't have a footer on the cover page. It only exists on all subsequent pages.

2. I also want the userform to provide the option to add a watermark. Word has several pre-sets which I would like to access, such as Confidential, Draft, Sample, etc. All of the examples I found online show how this can be done via Word VBA, something like this:

ActiveDocument.AttachedTemplate.BuildingBlockEntries("CONFIDENTIAL 1").Insert Where:=Selection.Range, RichText:=True

How would I get this to work via Excel VBA?

Any ideas experts?

if in excel you need to add the word referance libaray.

goto the vba editor and the Tools/References and select Microsoft Word object libaray then OK

 

[CaliKidd]

Thanks for your reply, my friend. I forgot to mention I am seeking a late binding solution.

 

[Jon Peltier]

You need to go section by section through the Word document, and remove each section's footer. Experiment in Word VBA, and concentrate on the Object Browser and IntelliSense instead of the macro recorder, then copy the relevant code with the appropriate references to the Word app. (You don't need the reference to the Word library.)