Find and replace a text with a field

[eduzs]

I need a code to find and replace a text "Name" with a field "{ DOCVARIABLE MyVar \* MERGEFORMAT }".


Thanks all

[macropod]

It's a waste of time trying to replace the displayed content of a field as it will revert to its previous value immediately anything causes the field to refresh; you need to change the contents of the variable itself. That can be done with code like:
ActiveDocument.Variables("MyVar").Value = "some name"

[eduzs]

Thanks. I know that.
In my project I have some docvariables in many documents, it's all works fine.
Those fields will be filled automatically with actvdoc.variables("xxxx").value = "zzzz" / fiels update / fields unlink, to create a document.
The problem is that I want to change a single word with another field (docvariable).
I need to automatically find/replace a text with this field.
Thanks

[macropod]

Pperhaps you could be clearer about what you're trying to do. For example, what are you trying to change - the variable named in the DOCVARIABLE field, or the displayed value? If it's the latter, see my previous reply.

[eduzs]

Thanks. It's simple to explain, suppose that I have a simple plain text in a DOCX file like that:
"That beautiful blue house at the hill belongs to Mary a good person."
I want to do a find/replace the text with a field (all occurrences), that the paragraph will be:
"That beautiful blue house at the hill belongs to { DOCVARIABLE TheName \* MERGEFORMAT } a good person."
I dont think useful to explain why doing this, because it is complex and would take a lot of time.
Thanks.

[gmayor]

The following should work

Sub Macro1()
ReplaceWithDocVar "Mary", "TheName"
End Sub


Sub ReplaceWithDocVar(strFind As String, strVarName As String)
Dim oStory As Range
    For Each oStory In ActiveDocument.StoryRanges
        With oStory.Find
            Do While .Execute(FindText:=strFind, MatchWholeWord:=True)
                oStory.Text = ""
                oStory.Fields.Add Range:=oStory, _
                                  Type:=wdFieldDocVariable, _
                                  Text:=Chr(34) & strVarName & Chr(34), _
                                  PreserveFormatting:=True
                oStory.Collapse 0
            Loop
        End With
        If oStory.StoryType <> wdMainTextStory Then
            While Not (oStory.NextStoryRange Is Nothing)
                Set oStory = oStory.NextStoryRange
                With oStory.Find
                    Do While .Execute(FindText:=strFind, MatchWholeWord:=True)
                        oStory.Text = ""
                        oStory.Fields.Add Range:=oStory, _
                                          Type:=wdFieldDocVariable, _
                                          Text:=Chr(34) & strVarName & Chr(34), _
                                          PreserveFormatting:=True
                        oStory.Collapse 0
                    Loop
                End With
            Wend
        End If
    Next oStory
    Set oStory = Nothing
lbl_Exit:
    Exit Sub
End Sub

[eduzs]

Works fine gmayor.
Thanks all