Troitsky
Водник Водкин | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Igor2005
Лучше на VBA это делать непосредственно из Excel'я.
Подключаешь в VBA библиотеку Microsoft Word XX Object Library и создаешь макрос с подобным кодом:
Код: Dim objWord As Word.Application
Dim objDocument As Word.Document
Set objWord = CreateObject("Word.Application")
If Err.Number Then
MsgBox "Can't open Word."
Exit Sub
End If
Set objDocument = objWord.Documents.Open(Filename:="C:\DocName.doc")
Set myRange = objDocument.Content
myRange.Find.ClearFormatting
myRange.Find.Execute FindText:="!Значение1", ReplaceWith:=Sheets(1).Cells(1, 1).Text, Replace:=wdReplaceAll
myRange.Find.Execute FindText:="!Значение2", ReplaceWith:=Sheets(1).Cells(2, 1).Text, Replace:=wdReplaceAll
' и так далее
objWord.Visible = True 'если нужно показать документ
objDocument.Save 'если нужно сохранить документ
Set myRange = Nothing
Set objDocument = Nothing
Set objWord = Nothing |
Замены можно и в цикле производить, так проще будет.
Добавлено:
Забыл сказать, что в тех местах текста, куда следует вставлять данные из Excel, должны быть слова типа "!Значение1", "!Значение2" и т.д. Эти слова и будут заменяться текстом из ячеек таблиц.
Добавлено:
По поводу
Цитата:| число нужно вносить в формулу ворда |
тоже интересуюсь. Сильно не копал, но очевидного способа это сделать не нашел. Если кто знает как такое осуществить, подскажите.
----------
Мы в хорошем настроении гуляем по лесам.
Кто обидеть нас захочет – сам получит по усам.
Сам полу- получит по усам. Сам полу- получит по усам! |
|
, но знаю, что их очень много. В разделе 
