Форум по VBA, Excel и Word

VBA, Excel => VBA, макросы в Excel => Тема начата: Посетитель 20.10.2022 от 22 Ноябрь 2022, 17:44

Название: Excel Макрос Excel вставка разрыва страницы в документ Word
Отправлено: Посетитель 20.10.2022 от 22 Ноябрь 2022, 17:44
Здравствуйте, форумчане. Проблема в следующем.
Нужно перенести таблицу Excel в документ Word так, чтобы на листе было два дня. Тема диплома может занимать от одной до трёх строк - высота таблицы на листе разная. Количество экзаменуемых на разных специальностях разное.
Если можно вставлять разрыв страницы, до делалось-бы это элементарно.

Dim wdDoc As Object ...
Закладка.Select
wdDoc.Selection.InsertBreak Type:=wdPageBreak

Курсор в Word на закладку становится, а на разрыве страницы ошибка Run-time error '438':
Object doesn't support this property or method

Заранее признателен за совет.
Название: Re: Excel Макрос Excel вставка разрыва страницы в документ Word
Отправлено: Администратор от 23 Ноябрь 2022, 17:11
Написал вам два письма на почту с заголовком "Письмо с Форума по VBA, Excel и Word". Написал именно на почту, а не на форум.

Вы хотите с помощью макроса поставить разрыв страницы в то место, где стоит закладка (объект "Bookmark")?
Вы запускаете макрос из Экселя? Если да, то Экселю не известны константы Ворда, поэтому вместо констант нужно использовать значения констант. В вашем коде используется константа "wdPageBreak", вместо этой константы запишите число:
wdDoc.Selection.InsertBreak Type:=7