Обновление связей Word с Excel макросом из Excel.

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Michael_S

Дата: Вторник, 29.11.2016, 12:20 | Сообщение № 1

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация: 373 ±

Замечаний: 0% ±

Excel2016

Доброго здоровья.
Проблема у меня такая. Есть файл Excel и связанный с ним Word. В файле Excel, через ВПР в нужные ячейки макросом подставляются выбранные значения, затем word сохраняется как ПДФ.
У меня 2016 офис, обновление worda происходит автоматически после сохранения Excel, а в 2007 ворд обновляться не хочет...
Записал в Worde такой макрос:
[vba]

Код

Sub Макрос3()
'
' Макрос3 Макрос
' Обновление связей-2
'
Selection.WholeStory 'Ctrl+A
Selection.Fields.Update 'F9
End Sub

[/vba]

Вопрос - как запустить его из файла Excel?
Если нужны примеры - постараюсь сделать что-то, что будет отвечать правилам форума; а так файлы очень большие и конфиденциальные.

UDP
Или, может есть другие варианты? может что в настройках связей изменить?

Сообщение отредактировал Michael_S - Вторник, 29.11.2016, 12:23

Ответить

Pelena

Дата: Вторник, 29.11.2016, 12:51 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19403

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте, Михаил.
Попробуйте перед Selection поставить объектную переменную, обозначающую приложение Word
Что-то типа
[vba]

Код

Set WApp = CreateObject("Word.Application")
...
WApp.Selection.WholeStory 'Ctrl+A
WApp.Selection.Fields.Update 'F9

[/vba]
Обновить все поля в документе Word можно ещё, "сходив" в режим предварительного просмотра. При этом обновляются также поля, находящиеся в колонтитулах
[vba]

Код

WDoc.PrintPreview
WDoc.ClosePrintPreview

[/vba]
WDoc соответственно переменная, обозначающая документ