Добрый день.
Буду очень признателен, если поможете.
Почти все сделал, осталось дело "за малым".
Полная задача следующая:
1) Все делается из макроса в Excel
2) В файле Word есть данные, связанные с открытым файлом Excel (через специальную ставку). Надо открыть и закрыть файл Word, что бы обновились связи. - не знаю другого способа обновить связи.
3)Но перед сохранением этого нового файла надо удалить все связи из новых файлов Word, что бы при следующем открытии случайно не поменялись данные.
Вот с 3 пунктом у меня и проблема.
Сделал следующее:
Sub ModWordCover()
Dim ActiveWorkbook_Path As String
Dim Folder_New As String
Dim NewName As String
Dim i As Long, lLastRow As Long
ActiveWorkbook_Path = ActiveWorkbook.Path
Folder_New = ActiveWorkbook_Path & "\Standart\"
NewName = Folder_New & "Book1.docx" 'путь и имя файла
' далее открываем и закрываем с сохранением файлы что бы связи обновились
Set wa = CreateObject("Word.Application") ' Создаем приложение Word
wa.Visible = True ' делаем Word видимым. надо ли?
Set WD = wa.Documents.Open(NewName) 'открываем файл
' далее удаляем все связи и сохраняем
' !!! СЮДА НАДО ВСТАВИТЬ КОД ПО УДАЛЕНИЮ ВСЕХ СВЯЗЕЙ В ФАЙЛЕ WORD
' Selection.WholeStory
' Selection.Fields.Unlink - не работает
WD.Close True 'закрываем файл с сохранением
End Sub
Записал в word действия: выделить все и ctrl+shift+f9 - получилось следующее:
Selection.WholeStory
Selection.Fields.Unlink
Но этот код не работает т.к. макрос для word, а мне надо что бы они работали из макроса в excel...
Помогите плиз
Кросс:
http://www.programmersforum.ru/showthread.php?t=296582