Как удалить все связи в Word из макроса в Excel ?

[Snekich]

Добрый день.
Буду очень признателен, если поможете.
Почти все сделал, осталось дело "за малым".

Полная задача следующая:
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...
Помогите плиз

[kuklp1]

Кросс:
http://www.programmersforum.ru/showthread.php?t=296582