Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/15: Рейтинг темы: голосов - 15, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 21.04.2011
Сообщений: 91
1

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

28.11.2011, 14:37. Показов 2905. Ответов 5
Метки нет (Все метки)

Помогите с работой в 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
Ошибок не выдает, и фактически всё работает.
Но!!!! Сначала появляются две строки текста, затем на его месте - таблица, затем на её месте - вторая таблица.
В общем, после всех действий в документе остается только одна последняя! таблица.
Нельзя ли сделать так, что вновь добавленные фрагменты не заменяли предыдущие, а накладывались ниже?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.11.2011, 14:37
Ответы с готовыми решениями:

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

Создать приложение, которое будет работать точно как Т-триггер
Нужно создать приложение,которое будет работать точно как Т-триггер. T-триггер — это счетный...

Нужно создать приложение с библиотеки WinForms которое будет выводить массив в TextBox
Доброго времени суток, начал изучать F#... Нужно создать приложение с библиотеки WinForms которое...

Как создать меню, которое будет запускать внешние программы?
Подскажите плз как создать менюшку которая будет запускать внешние програмки написанные на Паскаль...

5
13 / 13 / 0
Регистрация: 18.11.2011
Сообщений: 44
28.11.2011, 17:06 2
Используй для создания команду:
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
с назначением каждой таблице своего имени я не заморачивался, т.к. они заполнялись сразу, и в дальнейшем я к ним не обращался. Последующие таблицы вставляются точно такой же командой без дополнительного объявления.
Плюс еще вроде есть команда поиска по таблицам в ворде, но я с ней не работал за ненадобностью.
0
0 / 0 / 0
Регистрация: 21.04.2011
Сообщений: 91
28.11.2011, 18:22  [ТС] 3
Цитата Сообщение от 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
0
13 / 13 / 0
Регистрация: 18.11.2011
Сообщений: 44
28.11.2011, 23:33 4
Нужно подгрузить библиотеку ворда:
project-reference-microsoft word 14 object library (14 если у вас 2010й офис)
0
0 / 0 / 0
Регистрация: 21.04.2011
Сообщений: 91
29.11.2011, 08:12  [ТС] 5
Цитата Сообщение от auts Посмотреть сообщение
Нужно подгрузить библиотеку ворда:
project-reference-microsoft word 14 object library (14 если у вас 2010й офис)
нет, офис у меня 2007.
Ругается студия на wdCharacter
0
13 / 13 / 0
Регистрация: 18.11.2011
Сообщений: 44
29.11.2011, 09:38 6
а у вас приложения ворда активно на данный момент? может проблема в том что когда надо сдвинуть курсор - ворд или закрыт или неактивен?
в начале я прописываю:
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
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.11.2011, 09:38

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Консольное приложение. Создать меню, которое будет располагаться по середине
Всем привет. Как всегда курсовая :wall: Нужно создать меню, которое будет располагаться по...

Необходимо создать приложение, которое будет автоматически обновляться с API
Мне необходимо создать сайт, который извлекает данные из биржи по API. Мне нужно чтобы серверная...

Создать приложение, которое будет работать даже при выключенном компьютере
которая будет помогать браузерному дополнению imacros работать даже при выключенном компе. Вы мне...

Программа в Delphi 10 Seattle. Создать приложение, которое будет выводить изображение домика
Создать приложение, которое будет выводить изображение домика.

Приложение, которое будет на ПК уведомлять об уведомлениях на телефоне
Как "отлавливать" уведомления всех приложений? Хочу сделать приложение, которое будет на ПК...

PHP приложение которое будет собират информация с других сайтов
Доброе утро! Люди, дайте совет: как написать php приложение которое будет собират информация...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.