Имя: Пароль:
1C
 
Как добавить строку в ворде
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
Все разобрался всем спасибо