Deleting content between two bookmarks in Word via Excel VBA

[karoti99]

Hello! First post, after years of visiting this site and finding a lot of solutions to my VBA challenges.

I have a workbook that generates a word document.

Part of the code populates content controls with data successfully

'populate content controls
With wordApp
.ActiveDocument.SelectContentControlsByTitle("Client").Item(1).Range.Text = Sheets("Data").Range("C1").Value
.ActiveDocument.SelectContentControlsByTitle("Total_Hours").Item(1).Range.Text = Sheets("Data").Range("B1").Value
.ActiveDocument.SelectContentControlsByTitle("Rate1").Item(1).Range.Text = "$" & Sheets("Data").Range("B2").Value
.ActiveDocument.SelectContentControlsByTitle("Rate2").Item(1).Range.Text = "$" & Sheets("Data").Range("B3").Value
End With

However the code immediately after fails. When I try to delete data between bookmark ranges, I get the dreaded 424 object required error

'delete unnecessary content within bookmark range
With wordApp
.ActiveDocument.Range(ActiveDocument.Bookmarks("OverviewBegin").Range.Start, ActiveDocument.Bookmarks("OverviewEnd").Range.End).Delete
.ActiveDocument.Range(ActiveDocument.Bookmarks("InvestmentBegin").Range.Start, ActiveDocument.Bookmarks("InvestmentEnd").Range.End).Delete
.ActiveDocument.Range(ActiveDocument.Bookmarks("OrderSummaryBegin").Range.Start, ActiveDocument.Bookmarks("OrderSummaryEnd").Range.End).Delete
.ActiveDocument.Range(ActiveDocument.Bookmarks("TermsBegin").Range.Start, ActiveDocument.Bookmarks("TermsEnd").Range.End).Delete
End With
End If

But, if I copy and paste that code into a macro-enabled word document (sans the with wordApp parameters) and run it, it works perfectly and deletes the data within those bookmark ranges successfully.

Any ideas? I need to get Excel VBA to initiate the deletion of the data within the listed bookmark ranges.

 

[karoti99]

Would be great if I could avoid loading the object library though

 

[karoti99]

I was able to dig into this further and modified my original code by putting 'wordapp' in front of ActiveDocument and it worked. That alleviated the need to load the reference library.

Seems like double qualified since I already had 'with wordApp' and the previous four lines didn't need it, but it works so....

Final code

With wordApp
.ActiveDocument.SelectContentControlsByTitle("Client").Item(1).Range.Text = Sheets("Data").Range("C1").Value
.ActiveDocument.SelectContentControlsByTitle("Total_Hours").Item(1).Range.Text = Sheets("Data").Range("B1").Value
.ActiveDocument.SelectContentControlsByTitle("Rate1").Item(1).Range.Text = "$" & Sheets("Data").Range("B2").Value
.ActiveDocument.SelectContentControlsByTitle("Rate2").Item(1).Range.Text = "$" & Sheets("Data").Range("B3").Value
.ActiveDocument.Range(wordApp.ActiveDocument.Bookmarks("OverviewBegin").Range.Start, wordApp.ActiveDocument.Bookmarks("OverviewEnd").Range.End).Delete
.ActiveDocument.Range(wordApp.ActiveDocument.Bookmarks("InvestmentBegin").Range.Start, wordApp.ActiveDocument.Bookmarks("InvestmentEnd").Range.End).Delete
.ActiveDocument.Range(wordApp.ActiveDocument.Bookmarks("OrderSummaryBegin").Range.Start, wordApp.ActiveDocument.Bookmarks("OrderSummaryEnd").Range.End).Delete
.ActiveDocument.Range(wordApp.ActiveDocument.Bookmarks("TermsBegin").Range.Start, wordApp.ActiveDocument.Bookmarks("TermsEnd").Range.End).Delete
End With