Уважаемые пользователи!
Подскажите, пожалуйста, как решить проблему.
Пользователем был размещен отличный код для замены текста макросом VBA встроенные средствами Word.
Я совсем плохо знаю VBA поэтому прошу помочь с проблемой. Как сделать автоматическое сохранение документа после автозамены?
Подскажите, пожалуйста, как решить проблему.
Пользователем был размещен отличный код для замены текста макросом VBA встроенные средствами Word.
Я совсем плохо знаю VBA поэтому прошу помочь с проблемой. Как сделать автоматическое сохранение документа после автозамены?
| Код |
|---|
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.Find.Execute "!Value", False, False, False, False, False, True, 1, False, "ЗАМЕНА СДЕЛАНА", 2
' после замены текста стили не слетают
objWord.Visible = True 'отображаем документ
Set myRange = Nothing
Set objDocument = Nothing
Set objWord = Nothing
End Sub |
