Добрый день.
Пытаюсь с Excel файла передать текст в Word, затем нужно все четвёрки сделать жирными.
Такой код:
только передаёт текст, но не делает четвёрки жирными.
В чём причина?
Пытаюсь с Excel файла передать текст в Word, затем нужно все четвёрки сделать жирными.
Такой код:
Код |
---|
Sub ddww() Set wd1 = CreateObject("Word.Document") Set wd2 = wd1.Application wd2.Selection.typetext "4 рамка 4 спорт 6 шляпа 4 просто 8" wd2.Selection.WholeStory wd2.Selection.Find.ClearFormatting wd2.Selection.Find.Replacement.ClearFormatting wd2.Selection.Find.Replacement.Font.Bold = True With wd2.Selection.Find .Text = "4" .Replacement.Text = "4" End With wd2.Selection.Find.Execute Replace:=wdReplaceAll wd1.SaveAs CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Док1.docx", wdFormatXMLDocument wd2.Quit End Sub |
В чём причина?