Всем привет! Подскажите, что не так. Пишу под MS Word. Создаю параграф, задаю ему выравнивание, шрифт. А он его не принимает? Я думаю дело в смещении параграфов, но я всегда спускался на то место, которое хочу форматировать. | Код |
WordDocument.Content.Font.Size = 12;
WordDocument.Content.Font.Bold = 0;
WordDocument.Content.ParagraphFormat.Alignment =
Word.WdParagraphAlignment.wdAlignParagraphRight;
// Создание шапки заявки
object oMissing = System.Reflection.Missing.Value;
WordDocument.Paragraphs.Add(oMissing);
WordParagraph = WordDocument.Paragraphs[1];
WordParagraph.Range.Text = "От _________________";
// Переместились
unit = Word.WdUnits.wdParagraph;
extend = Word.WdMovementType.wdMove;
count = 1;
WordApp.Selection.MoveDown(ref unit, ref count, ref extend);
// Абзац
WordDocument.Paragraphs.Add(oMissing);
WordParagraph = WordDocument.Paragraphs[2];
WordParagraph.Range.Text = "Отдел _________________";
// Переместились
unit = Word.WdUnits.wdParagraph;
extend = Word.WdMovementType.wdMove;
WordApp.Selection.MoveDown(ref unit, ref count, ref extend);
// Создание заголовка
WordDocument.Paragraphs.Add(oMissing);
WordParagraph = WordDocument.Paragraphs[3];
WordParagraph.Range.Bold = 1;
WordParagraph.Range.Text = "ЗАЯВКА";
WordParagraph.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter;
// Переместились
unit = Word.WdUnits.wdLine;
extend = Word.WdMovementType.wdMove;
WordApp.Selection.MoveDown(ref unit, ref count, ref extend);
// Текст заявки
WordDocument.Paragraphs.Add(oMissing);
WordParagraph = WordDocument.Paragraphs[4];
WordParagraph.Range.Bold = 0;
WordParagraph.Range.Text = "Прошу вывести на печать чертежи по объекту:";
WordParagraph.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter;
// Переместились
unit = Word.WdUnits.wdParagraph;
extend = Word.WdMovementType.wdMove;
WordApp.Selection.MoveDown(ref unit, ref count, ref extend);
// Абзац
WordDocument.Paragraphs.Add(oMissing);
WordParagraph = WordDocument.Paragraphs[5];
WordParagraph.Range.Text = ObjName;
WordParagraph.Alignment = Word.WdParagraphAlignment.wdAlignParagraphJustify;
WordParagraph.Range.Italic = 1; // этот параграф выводится без курсива и смщение остаётся по центру
// Переместились
unit = Word.WdUnits.wdParagraph;
extend = Word.WdMovementType.wdMove;
WordApp.Selection.MoveDown(ref unit, ref count, ref extend);
// Абзац
WordDocument.Paragraphs.Add(oMissing);
WordParagraph = WordDocument.Paragraphs[6];
WordParagraph.Range.Text = "Шифр проекта: " + CipherPrj;
WordParagraph.Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft;
// Переместились
unit = Word.WdUnits.wdParagraph;
extend = Word.WdMovementType.wdMove;
WordApp.Selection.MoveDown(ref unit, ref count, ref extend);
// Абзац
WordDocument.Paragraphs.Add(oMissing);
WordParagraph = WordDocument.Paragraphs[7];
WordParagraph.Range.Italic = 0;
// Перемистились
WordApp.Selection.MoveDown(ref unit, ref count, ref extend);
// Абзац
WordDocument.Paragraphs.Add(oMissing);
// Переместились
unit = Word.WdUnits.wdStory;
extend = Word.WdMovementType.wdMove;
WordApp.Selection.EndKey(unit, extend);
// Абзац
WordDocument.Paragraphs.Add(oMissing);
WordParagraph = WordDocument.Paragraphs[9];
WordParagraph.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter;
// Создание первой таблицы (на данный момент создаём единственную таблицу)
CreateTable(1);
// Переместились
unit = Word.WdUnits.wdStory;
extend = Word.WdMovementType.wdMove;
WordApp.Selection.EndKey(unit, extend);
// Абзац
WordDocument.Paragraphs.Add(oMissing);
WordParagraph = WordDocument.Paragraphs.Last;
WordParagraph.Range.Text = "Начальник отдела ___________________________________ Дата ________________";
WordParagraph.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter;
|
|
Положение параграфов 
Загрузка ...
