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("второй абзац");
И первый и второй абзац выравниваются по центру. Подскажите, как правильно сделать?
|
|