|
Как добавить строку в ворде | ☑ | ||
|---|---|---|---|---|
|
0
URAL
25.05.10
✎
05:09
|
Доброго дня всем.
Подскажите, возможно ли добавить в документе Ms Word строку при использовании макета Active Document. я заменяю данные на, но вот понадобилось вывести табличную часть перебирая строки и ум встал, че делать, подскажите в каком направлении копать |
|||
|
1
Rie
25.05.10
✎
06:19
|
Возможно.
Открываешь Word. Меню Сервис - Макрос - Начать запись... Делаешь что нужно руками. Останавливаешь запись. И смотришь, как это делается программно. |
|||
|
2
URAL
25.05.10
✎
12:29
|
вот на замену
Документ=MSWord.Application.Documents(1); Документ.Activate(); Замена = Документ.Content.Find; запустил макрос на добавление Selection.TypeText Text:="1. Новая запись" Selection.TypeParagraph Selection.TypeText Text:="2. другая запись" Selection.TypeParagraph Selection.TypeBackspace End Sub И как его прописать, ни хр--на не понимаю, помогите |
|||
|
3
apollo
25.05.10
✎
12:30
|
разрешаю )
|
|||
|
4
URAL
25.05.10
✎
12:40
|
(3) спасибо, а теперь решение нарисуй, если знаешь
|
|||
|
5
art_id
25.05.10
✎
12:45
|
(4)тебе добавить надо или просто перейти на следующую строку?
|
|||
|
6
BuHu
25.05.10
✎
12:54
|
ворд = СоздатьОбъект("Word.Application"); ворд.Documents.Open(СокрЛП(КаталогВременныхФайлов()+ВрФайл));
ворд.Selection.EndKey(6); ворд.Selection.Font.Name="Arial"; ворд.Selection.Font.Size=12; ворд.Selection.Font.Bold=1; ворд.Selection.TypeText(" Что то"); |
|||
|
7
BuHu
25.05.10
✎
12:55
|
+(6)ворд.visible =1;
|
|||
|
8
BuHu
25.05.10
✎
12:56
|
EndKey- не обязательно , это если надо переместиться на последнию строчку документа
|
|||
|
9
URAL
25.05.10
✎
12:58
|
и то и другое
|
|||
|
10
art_id
25.05.10
✎
13:00
|
(9)тогда Selection.TypeParagraph это как перевод строки, а просто вниз Selection.MoveDown
|
|||
|
11
URAL
25.05.10
✎
13:22
|
Подождите я получаю макет, а не создаю
Документ=MSWord.Application.Documents(1); Документ.Activate(); Замена = Документ.Content.Find; и метод СоздатьОбъект ???? вылетает ошибк {Документ.АрхеологическиеНаходки(530,12)}: Процедура или функция с указанным именем не определена (СоздатьОбъект) Документ = <<?>>СоздатьОбъект("Word.Application"); |
|||
|
12
art_id
25.05.10
✎
13:24
|
(11)дак СоздатьОбъект в 7.7 используется
|
|||
|
13
URAL
25.05.10
✎
13:40
|
Мля а в 8.1???
|
|||
|
14
URAL
25.05.10
✎
14:12
|
Все разобрался всем спасибо
|
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |