Уважаемые коллеги программисты и просто знающие люди!
Подскажите, пожалуйста, как решить проблемку со сбросом формата данных.
В экселе запускаю макрос, который открывает вордовский файл "1.doc".
В вордовском документе мы производим замену текста "!Value1" на текст "ЗАМЕНА СДЕЛАНА".
Файл открывается и текст заменяется. Но! Теряется формат текста в вордовском документе.
Я использую объектную модель и делаю замену именно в параметре содержащем чистый текст: objDocument.Content.Text
Если я правильно это понимаю.
Я не очищаю формат документа или формат данных принудительно.
Вопрос, как заменить только чистый текст, чтобы стили и форматы в документе остались?
Может быть можно как-нибудь сохранять формат и позже восстанавливать? Не пойму почему сбрасываются стили и форматы.
PS (слияние не предлагать =))
Буду благодарен за помощь!
Office 2007
Подскажите, пожалуйста, как решить проблемку со сбросом формата данных.
В экселе запускаю макрос, который открывает вордовский файл "1.doc".
В вордовском документе мы производим замену текста "!Value1" на текст "ЗАМЕНА СДЕЛАНА".
Файл открывается и текст заменяется. Но! Теряется формат текста в вордовском документе.
Я использую объектную модель и делаю замену именно в параметре содержащем чистый текст: objDocument.Content.Text
Если я правильно это понимаю.
Я не очищаю формат документа или формат данных принудительно.
Вопрос, как заменить только чистый текст, чтобы стили и форматы в документе остались?
Может быть можно как-нибудь сохранять формат и позже восстанавливать? Не пойму почему сбрасываются стили и форматы.
PS (слияние не предлагать =))
Буду благодарен за помощь!
Office 2007
| Код |
|---|
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", "ЗАМЕНА СДЕЛАНА")
' после замены текста в документе стили слетают
objWord.Visible = True 'отображаем документ
Set myRange = Nothing
Set objDocument = Nothing
Set objWord = Nothing
End Sub |
Изменено: - 06.08.2015 17:16:05
