Inserting string into Word as find/replace

[DblDocWhitaker]

I am not a programmer, but am trying to build a user interface in Excel that will facilitate my colleagues in auto completing letters and forms. Right now I have the interface moving the user thru a series of questions to identify the form too be used and the info to be inserted (info put into text box or drop down menu saved as strings). I also have it set to open the appropriate document/template. However, I cannot figure out how to to find text in the word document and replace it with the string entered into the text box. I can get the doc to open.

For example, I have:
Dim NameFull As String
NameFull = Me.txNameFull.Value
'open word doc code here

In the Document I have <<Full name>> that I want to replace with the string saved as NameFull. I tried controlcontent and had no luck - figured find/replace might be easier. So far not really.

Thanks!!

 

[6StringJazzer]

I use something like this:

   With Selection.Find
      .ClearFormatting
      .replacement.ClearFormatting
      .Text = "<<Full name>>"
      .replacement.Text = NameFull
      .Forward = True
      .Wrap = wdFindContinue
      .MatchAllWordForms = False
      .Execute Replace:=wdReplaceAll
   End With

 

[6StringJazzer]

Since you are doing this in Excel, if you are using late binding you will have to define these constants:

Const wdFindContinue = 1
Const wdReplaceAll = 2

 

[DblDocWhitaker]

I'm getting a similar error as before. It does not like:
With Selection.Find
Right now it is giving me
Run-time error 450
Wrong number of arguments or invalid property assignment.
Thought? I so much appreciate your help.

 

[6StringJazzer]

I forgot you were doing this in Excel. I need to see all your code to see what binding you are using and how you have declared Word objects.

 

[DblDocWhitaker]

Part of my code is below. I inserted your suggested "Const wdFindContinue = 1; Const wdReplaceAll = 2" before and inside the Find.Selection.

Thanks again!!


*******code below*********

Private Sub cmdCreate_Click()

Dim NameFull As String
NameFull = Me.txNameFull.Value
Dim Address1 As String
Address1 = Me.txAddress1.Value
' continue w remainder of blanks to fill in

'Select appropriate template; I've only been working on only 1 document for now
If BarDate <> "" And Type = "CRADA" Then
'MsgBox "BAR DATE CRADA"
ElseIf BarDate <> "" And Type = "FAR" Then
'MsgBox "BAR DATE FAR"
ElseIf BarDate = "" And Type = "CRADA" Then
'MsgBox "No bar date CRADA"
ElseIf BarDate = "" And Type = "FAR" Then
'MsgBox "No bar date FAR"
Set objDoc = objWord.Documents.Open("C:\ ... .docx")
'objWord.Visible = True
End If

With Selection.Find
.ClearFormatting
.replacement.ClearFormatting
.Text = "<<KFullName>>"
.replacement.Text = KNameFull
.Forward = True
.Wrap = wdFindContinue
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With

End Sub

 

[6StringJazzer]

I don't see where objWord is declared and set but I'll assume it's your Word application object.

Try it this way

With objWord.Selection.Find

If that doesn't work then

With objDoc.Selection.Find

 

[Macropod]

Change:
With Selection.Find
to:
With objDoc.Content.Find

A better way, IMHO, would be to bookmark the various ranges you want to replace and simply overwrite what's bookmarked with code like:
objDoc.Bookmarks("KFullName").Range.Text = KFullName