Создать приложение, которое будет запускать Word

@Сестра_Ветра · Регистрация: 21.04.2011

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

Помогите с работой в Word.
Задание следующее:
Создать приложение, которое будет запускать Word, создавать новый документ, добавлять в него пару строк и таблицу. Таблица должна быть заполнена некоторыми данными. После добавления таблицы должна добавляться еще одна, в которой будут заполнены одна-две ячейки. После второй таблицы следует добавить некоторый текст, проверить правописание, и если проверка прошла успешно, отобразить документ в режиме предварительного просмотра печати.
Остановилась на том, что пытаюсь добавить вторую таблицу и заполнить её.

Visual Basic
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
35
'Создаем новый экземпляр сервера автоматизации Word
        Dim MyWord As New Word.Application
        Dim My_Table As Word.Table
        Dim My_Table2 As Word.Table
        Dim WdLine As Integer
        WdLine = 5
        'Dim My_Range As Word.Range
        'Делаем программу Word видимой
        MyWord.Visible = True
        'Добавляем в Word новый документ
        MyWord.Documents.Add()
        'Вставляем в документ строку
        MyWord.ActiveDocument.Range.InsertAfter("Отчет: " + MyWord.ActiveDocument.FullName + " по дисциплине Информационные технологии")
        MyWord.ActiveDocument.Paragraphs.Add()
        MyWord.ActiveDocument.Paragraphs.Add()
        MyWord.Selection.TypeText("Изученные темы представлены в данной таблице:")
        MyWord.ActiveDocument.Paragraphs.Add()
        My_Table = MyWord.ActiveDocument.Tables.Add(MyWord.ActiveDocument.Range, 4, 2)
        My_Table.Cell(1, 1).Range.Text = "Содержание"
        My_Table.Cell(1, 2).Range.Text = "Объем"
        My_Table.Cell(2, 1).Range.Text = "Работа с формами"
        My_Table.Cell(2, 2).Range.Text = "4 страницы"
        My_Table.Cell(3, 1).Range.Text = "Базовые конструкции языка "
        My_Table.Cell(3, 2).Range.Text = "9 страниц"
        My_Table.Cell(4, 1).Range.Text = "Обработка ошибок"
        My_Table.Cell(4, 2).Range.Text = "1 страница"
        MyWord.ActiveDocument.Paragraphs.Add()
        My_Table2 = MyWord.ActiveDocument.Tables.Add(MyWord.ActiveDocument.Range, 2, 2)
        My_Table2.Cell(1, 1).Range.Text = "Тема реферата"
        My_Table2.Cell(1, 2).Range.Text = "Экстремальное программирование"
        My_Table2.Cell(2, 1).Range.Text = "Дата защиты"
        My_Table2.Cell(2, 2).Range.Text = "1 декабря"
        'My_Table.Cell(1, 1).Borders(Word.WdBorderType.wdBorderTop).Color = Word.WdColor.wdColorBrown
        'Удаляем экземпляр сервера автоматизации Word
        MyWord = Nothing

Ошибок не выдает, и фактически всё работает.
Но!!!! Сначала появляются две строки текста, затем на его месте - таблица, затем на её месте - вторая таблица.
В общем, после всех действий в документе остается только одна последняя! таблица.
Нельзя ли сделать так, что вновь добавленные фрагменты не заменяли предыдущие, а накладывались ниже?

@auts · 28.11.2011, 17:06

Используй для создания команду:

Visual Basic
1
Set TableWord = DocWord.Tables.Add(DocWord.Application.Selection.Range, x, y)

она добавляет таблицу туда где стоит курсор, а не заменяет.
tot полезная команда - это выделить конечную ячейку, а затем сместить курсор вправо, т.е. ровно под таблицу:

Visual Basic
1
2
TableWord.Cell(x, y).Select 'тут мы выделяем последнюю ячейку
DocWord.Application.Selection.MoveRight wdCharacter, 1 'тут мы перемещаем курсор вправо на 1

с назначением каждой таблице своего имени я не заморачивался, т.к. они заполнялись сразу, и в дальнейшем я к ним не обращался. Последующие таблицы вставляются точно такой же командой без дополнительного объявления.
Плюс еще вроде есть команда поиска по таблицам в ворде, но я с ней не работал за ненадобностью.

@Сестра_Ветра · 28.11.2011, 18:22 **[ТС]**

Сообщение от auts

Используй для создания команду:

Visual Basic
1
Set TableWord = DocWord.Tables.Add(DocWord.Application.Selection.Range, x, y)

она добавляет таблицу туда где стоит курсор, а не заменяет.
tot полезная команда - это выделить конечную ячейку, а затем сместить курсор вправо, т.е. ровно под таблицу:

Visual Basic
1
2
TableWord.Cell(x, y).Select 'тут мы выделяем последнюю ячейку
DocWord.Application.Selection.MoveRight wdCharacter, 1 'тут мы перемещаем курсор вправо на 1

с назначением каждой таблице своего имени я не заморачивался, т.к. они заполнялись сразу, и в дальнейшем я к ним не обращался. Последующие таблицы вставляются точно такой же командой без дополнительного объявления.
Плюс еще вроде есть команда поиска по таблицам в ворде, но я с ней не работал за ненадобностью.

ругается на wdCharacter

@auts · 28.11.2011, 23:33

Нужно подгрузить библиотеку ворда:
project-reference-microsoft word 14 object library (14 если у вас 2010й офис)

@Сестра_Ветра · 29.11.2011, 08:12 **[ТС]**

Сообщение от auts

Нужно подгрузить библиотеку ворда:
project-reference-microsoft word 14 object library (14 если у вас 2010й офис)

нет, офис у меня 2007.
Ругается студия на wdCharacter

@auts · 29.11.2011, 09:38

а у вас приложения ворда активно на данный момент? может проблема в том что когда надо сдвинуть курсор - ворд или закрыт или неактивен?
в начале я прописываю:

Visual Basic
1
2
3
Dim WordApp As Word.Application ' экземпляр приложения ворда
Dim DocWord As Word.Document    ' экземпляр документа ворда
Dim TableWord As Word.Table     ' экземпляр таблицы ворда

а потом:

Visual Basic
1
2
3
4
Set WordApp = New Word.Application
  WordApp.Visible = False 'в режиме отладки тут лучше поставить тру, т.к. все наглядно и пошагово видно как все происходит
  Set DocWord = WordApp.Documents.Add
  DocWord.Activate

если это не поможет - не знаю))) я сам недавно стал бейсик изучать, но конкретно по этой теме.
З.Ы. не читал правила форума, поэтому не знаю, можно ли кидать ссылки на информацию вне форума и т.п. Есть очень полезная статейка в интернете как раз с взаимодействием с вордом через VB

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@auts 13 / 13 / 0 Регистрация: 18.11.2011 Сообщений: 44
	28.11.2011, 23:33
	Нужно подгрузить библиотеку ворда: project-reference-microsoft word 14 object library (14 если у вас 2010й офис) 0