Word Macro not finding bookmarks IF they are inside textboxes

jmfloyd · Aug 16th 2019

Hi there! Thank you for taking the time to read my question.

I am working on a report generator in VBA that runs from a macro-enabled word document, and queries a macro-enabled excel workbook.

I have managed to get values within specific cells to update bookmarks within the word document.

However, I get errors that certain bookmarks cannot be found, but only the ones that are within text boxes.

Here is my code:

Code

Public Sub RepGenWord()


    Dim oDoc As ThisDocument


    Dim xlApp As Excel.Application
    Dim xlSh As Excel.Workbook
    Dim FileToOpen As String
    
    Dim XAddress As String, XClient As String, XPhone As String, XEmail As String
    
    Set xlApp = CreateObject("Excel.Application")
    'xlApp.Visible = True
    
    FileToOpen = Excel.Application.GetOpenFilename("AD Sample Floor Excel Files (*.xlsm), *.xlsm", , "Select AD Sample Floor Excel File", , False)
    xlApp.Visible = True
    Set xlSh = xlApp.Workbooks.Open(FileToOpen)
    
    xlSh.Activate
    XClient = xlSh.Sheets("Job Details").Cells(3, 2)
    XAddress = xlSh.Sheets("Job Details").Cells(4, 2)
    XPhone = xlSh.Sheets("Job Details").Cells(7, 2)
    XEmail = xlSh.Sheets("Job Details").Cells(8, 2)
    
    SetBookmarkText ThisDocument, "Client1", XClient
    SetBookmarkText ThisDocument, "Client2", XClient
    
    SetBookmarkText ThisDocument, "Address1", XAddress
    SetBookmarkText ThisDocument, "Address2", XAddress
    
    SetBookmarkText ThisDocument, "Phone", XPhone
        
    SetBookmarkText ThisDocument, "Email", XEmail




End Sub

Display More

This is the error I am getting:

Code

Bookmark 'Client1' not found in document
'5555R001.XX.YYMMDD.docm'
Content not updated

The error repeats for 'Address1' but all the other ones update as expected.

Thank you and have a good day!

**royUK** · Aug 16th 2019

Can't you remove the TextBox?

jmfloyd · Aug 18th 2019

Hi Roy

The text boxes are part of my standard report which needs to be consistent. Thank you for the suggestion, but I am in need of a technical solution.

Cheers

**Carim** · Aug 26th 2019

Hello,

When dealing with VBA for Word ... you can jump to[SIZE=12px] Graham Mayor's excellent site :[/SIZE]

http://www.gmayor.com/word_vba_examples.htm

Code

Public Sub FillBM(strBMName As String, strValue As String)
' Function to fill BookMark
Dim oRng As Range
With ActiveDocument
On Error GoTo lbl_Exit
Set oRng = .Bookmarks(strBMName).Range
oRng.Text = strValue
oRng.Bookmarks.Add strBMName
End With
lbl_Exit:
Exit Sub
End Sub

Display More

Hope this will help

jmfloyd · Sep 2nd 2019

Hi Carim

Thank you for the tip! I will try this out and let you know how I go.

Cheers

gaby montena · Sep 16th 2019

I was working on a report in MS word that runs from a macro enabled and there in faced this issue and also it was showing error on that page. As I am using Microsoft Office 2013 it was showing error code 0x4004f00c on that page. I found the way out from it and it really worked.

**Carim** · Sep 16th 2019

Glad you could fix your problem ...:smile:

**royUK** · Sep 16th 2019

Gaby, welcome to the Forum. Please don't post in other members questions unless suggesting a solution.

Word Macro not finding bookmarks IF they are inside textboxes

Participate now!

Share