Word и цикл

@serg6789 · Регистрация: 14.01.2019

Студворк — интернет-сервис помощи студентам

Здравствуйте, есть интересный код, который
вот что делает
переходит на 6 страницу в документе, затем
поднимается на 4 параграфа вставляет разрыв страницы
затем поднимает курсор на два параграфа вставляет курсор в конец
параграфа добавляет то что мне нужно
затем после того как добавил
спускает курсор на 2 параграфа
ставит в курсор в начало параграфа
добавляет параграф
переводит курсор на добавленный параграф
и вставляет текст который нужен мне

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Variant activeDoc = vVarApp.OlePropertyGet("ActiveDocument");
int pages = activeDoc.OleFunction("ComputeStatistics", wdStatisticPages);
 
v=vVarApp.OlePropertyGet("Selection");
vVarApp.OlePropertyGet("ActiveWindow").
        OlePropertyGet("ActivePane").
        OlePropertyGet("View").
        OlePropertyGet("Zoom").
        OlePropertySet("PageFit",1);
v.OleProcedure("MoveDown",7,5);
v.OleProcedure("MoveUp",4,4);
v.OleProcedure("InsertBreak",7);
v.OleProcedure("MoveUp",4,2);
v.OleProcedure("EndKey",5);
v.OlePropertyGet("ParagraphFormat").OlePropertySet("SpaceAfter", 12);
v.OleProcedure("TypeParagraph");
AnsiString dolg=ComboBox3->Text+"\n"+Edit7->Text;
//v.OlePropertyGet("ParagraphFormat").OlePropertySet("SpaceBefore",12);
v.OlePropertyGet("Font").OlePropertySet("Size",14);
v.OlePropertyGet("ParagraphFormat").OlePropertySet("Alignment",0);
v.OlePropertyGet("ParagraphFormat").OlePropertySet("FirstLineIndent",0);
v.OlePropertyGet("ParagraphFormat").OlePropertySet("SpaceAfter", 0);
v.OleProcedure("TypeText", WideString(dolg));
v.OlePropertyGet("ParagraphFormat").OlePropertySet("SpaceBefore",0);
v.OleProcedure("MoveDown",4,2);
v.OleProcedure("HomeKey",5);
v.OleProcedure("TypeParagraph");
v.OleProcedure("MoveUp",4,1);
v.OlePropertyGet("ParagraphFormat").OlePropertySet("FirstLineIndent",0);
v.OlePropertyGet("ParagraphFormat").OlePropertySet("SpaceAfter", 12);
v.OlePropertyGet("ParagraphFormat").OlePropertySet("SpaceBefore",12);
AnsiString dop="Дополнение к №__";
v.OlePropertyGet("Font").OlePropertySet("Size",14);
v.OleProcedure("TypeText", WideString(dop));

Внимание , вопрос, как сделать это циклом, или подскажите каким образом (не совсем дружу с циклами),
чтоб программа такая видит что в документе больше 5 страниц
и такая- на каждом 6 получается странице выполняла этот код если их например n-ое количество
-страниц

Добавлено через 5 часов 21 минуту
Так, ну что я все почитал-циклы мало по малу
пришел вот к чему

C++
1
2
3
4
5
6
7
8
for (i =5; i<pages; i=i+6)
{
AnsiString BookmarkName ="\\StartOfDoc";                                   //встаем каждый раз в начало документа
Variant ppp = vVarApp.OlePropertyGet("Selection");
ppp.OleFunction("GoTo", 4294967295, 0, 0, BookmarkName.c_str());
-----------------------------------------------------------------------------
//то что надо сделать
}

Спросите почему 5??? отвечаю заранее страницы начинаются с 1
поэтому, чтоб перейти на 6 страницу вы клавишу PageDown нажмете 5 раз
прошу обратить внимание, что нужно менять вид просмотра на "СТРАНИЦА"
потому как в 100 масштабе это работает чуть не так

Новые блоги и статьи Все статьи Все блоги /
Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .