Private Sub toWord_Click()
 
    Set objWord = CreateObject("Word.Application")
    
    If Err.Number Then
       MsgBox "Can't open Word."
       Exit Sub
    End If
     
    pt = "C:\Автоматизация\1.doc"
    Set objDocument = objWord.Documents.Open(Filename:=pt)
    ' здесь мы получили исходный документ
 
'    objDocument.Content.Text = Replace(objDocument.Content.Text, "!Value1", "ЗАМЕНА СДЕЛАНА")
    ' после замены текста в документе стили слетают
    With objDocument.Content
        .Find.ClearFormatting
        .Find.Replacement.ClearFormatting
        With .Find
            .Text = "!Value1"
            .Replacement.Text = "ЗАМЕНА СДЕЛАНА"
            .Forward = True
            .Wrap = 1 'wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
    .Find.Execute Replace:=2 'wdReplaceAll
    End With
 
    objWord.Visible = True 'отображаем документ
     
    Set myRange = Nothing
    Set objDocument = Nothing
    Set objWord = Nothing
         
End Sub