Excel VBA not executing in Word

Have you checked what Selection is when the Word document is opened?

I used to find that I had to open the word document using Excel VBA and get that to run a Word VBA macro.

I have not done that for year though.

Any chance you could upload a sample document?

Click on GO ADVANCED, scroll down and click Manage Attachments.

All I was looking for really was something to work with rather than having to create something myself, just being lazy I suppose.

Can't you upload something with dummy data here?

Couldn't you just open a blank document, stick some example data in it, save it and upload it here?

I would do it myself but don't have time right now I'm afraid.

Originally Posted by smit3446

I've added in the Word Object Library in Excel for early binding and I grabbed the code directly from a Word macro and then edited it to perform from Excel

Properly coded, there is no need for early binding. Using wdFindAsk will also stop the code's execution while it waits for you to answer a prompt you're probably not seeing. Working with Selections is also incredibly inefficient. Try:

Please Login or Register  to view this content.

Cross-posted at: https://www.mrexcel.com/forum/genera...ting-word.html
Please read Excel Forum's Cross-Posting policy in rule 8: http://www.excelforum.com/forum-rule...rum-rules.html

Originally Posted by smit3446

it's still not performing correctly. Now the header/footers, where [Company] and [Date] are located, are getting deleted altogether.

Since the code isn't touching any headers/footers, it isn't responsible whatever issues you're having there.

Originally Posted by smit3446

The text box which contains all three [Company], [Date], and [Event] variables is unchanged.

You previously mentioned noting about any textbox; it makes a world of difference that that's where the content is. Change:
With .ActiveDocument.Range.Find
to:
With .ActiveDocument.Shapes(1).TextFrame.TextRange.Range.Find
where 1 is the number of whichever Shape object in the document your textbox is.

FWIW, If you either bookmarked your [Company], [Date], and [Event] strings (or simply replaced them with bookmarks) named Company, Date, and Event, respectively, you could reduced the code to:

Please Login or Register  to view this content.