<div>
<div class="content wysiwyg-content">
Access 2013<br />
Excel 2010<br />
<br />
I'm trying to find/replace text in a word doc from access vba. &nbsp;The following code works except when &quot;[A]&quot; is inside a textbox in the word file. &nbsp;What am I missing?<br />
<br />
<br />
Const wdReplaceAll = 2<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <br />
&nbsp;Set objapp = CreateObject(&quot;Word.Applica<wbr />tion&quot;)<br />
<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objapp.Visible = True<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objapp.Activate &nbsp;'Bring to front<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set w = objapp.Documents.Open(&quot;Tem<wbr />plate.docx<wbr />&quot;, ReadOnly:=True)<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set s = objapp.Selection<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; s.Find.Text = &quot;[A]&quot;<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; s.Find.Replacement.Text = &quot;123&quot;<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; s.Find.Execute , , , , , , , , , , wdReplaceAll
</div>
</div>


Access 2013
Excel 2010

I'm trying to find/replace text in a word doc from access vba.  The following code works except when "[A]" is inside a textbox in the word file.  What am I missing?


Const wdReplaceAll = 2
            
 Set objapp = CreateObject("Word.Application")

            objapp.Visible = True
            objapp.Activate  'Bring to front
            Set w = objapp.Documents.Open("Template.docx", ReadOnly:=True)
            Set s = objapp.Selection
            s.Find.Text = "[A]"
            s.Find.Replacement.Text = "123"
            s.Find.Execute , , , , , , , , , , wdReplaceAll

Using Access VBA to Find/Replace text in a Word doc

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.