Имя: Пароль:
1C
1С v8
Ворд и 1с
,
0 evgenyivanov
 
27.07.12
13:28
Задача: вывести в вордовский файл два абзаца. Первый с выравниванием по правому краю, второй по центру.

Пишу:

Word = Новый COMОбъект("Word.Application");
Word.Documents.Add();
Word.Visible=1;
Word.ActiveDocument.Application.Selection.Font.Name = "Times New Roman";
Word.ActiveDocument.Application.Selection.Font.Size = 12;
Word.ActiveDocument.Application.Selection.Font.Bold = 1;

Word.ActiveDocument.Application.Selection.TypeText("Адресат");
Word.ActiveDocument.Application.Selection.ParagraphFormat.Alignment = 2;
Word.ActiveDocument.Application.Selection.TypeText(Символ(11));

Для нн=1 по 11 Цикл
    Word.ActiveDocument.Application.Selection.TypeText(Символ(11))
КонецЦикла;

Word.ActiveDocument.Application.Selection.TypeParagraph;
Word.ActiveDocument.Application.Selection.Font.Name = "Times New Roman";
Word.ActiveDocument.Application.Selection.Font.Size = 12;
Word.ActiveDocument.Application.Selection.Font.Bold = 1;

Word.ActiveDocument.Application.Selection.Font.Bold = 1;
         Word.ActiveDocument.Application.Selection.ParagraphFormat.Alignment = 1;

Word.ActiveDocument.Application.Selection.TypeText("второй абзац");

И первый и второй абзац выравниваются по центру. Подскажите, как правильно сделать?