Ответ гораздо проще, чем приведенные здесь. Не используйте замену. Просто выберите текст, который вы хотите заменить, а затем ТИП над ним.
ользую следующий макрос и иногда он дает слишком длинную ошибку. как я могу решить это?
Sub BoldFirstLetterInSentence()
Dim s As Range
Dim doc1 As Document
Dim doc2 As Document
Set doc1 = Word.Documents("Doc1.docx")
Set doc2 = Word.Documents("Doc2.docx")
For Each s In doc1.Sentences
If s.Characters(1).Bold = True Then
Debug.Print s
With doc2
Selection.Find.ClearFormatting
With Selection.Find
.Text = s
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
a = Selection.Find.Execute
If a = True Then
Selection.Font.Bold = True
End If
End With
End If
Next
End Sub