Параметры страницы MS WORD

[kaa1977]

как при создании из Delphi документа MS Word задать нужные параметры страницы: ориентацию страницы (книжная / альбомная) и поля?

[Скандербег]

    Doc := WApp.Documents.Add;
    Doc.PageSetup.Orientation := wdOrientLandscape; //wdOrientPortrait;
    Doc.PageSetup.TopMargin := 56;
    Doc.PageSetup.LeftMargin := 28;
    Doc.PageSetup.RightMargin := 28;

Doc, WApp : Variant;
Единицы значений полей неизвестного происхождения и подбираются эмпирическим методом.
В этом примере 56 = 1,98 см (~2 см), 28 = 0,99 см (~1 см).

[kaa1977]

СпасиБо!
Получилось!

[chid]

Спасибо!

[Armageddets]

Доброго времени суток, уважаемые эксперты. Пытаюсь выставлять ориентацию как у Вас в примере - но выбивает ошибку что неизвестный метод PageSetup. ComObj подключен в uses. Что я делаю не так?

var
  WordApp, NewDoc, WordTable: Variant;
  iRows, iCols, iGridRows, jGridCols: Integer;
begin
  try
    //попытка создать экземпляр ворда
    WordApp := CreateOleObject('Word.Application');
  except
    Exit;
  end;

  //включаем видимость
  WordApp.Visible := True;

  //создаем документ
  NewDoc := WordApp.Documents.Add;
  NewDoc.PageSetup.Orientation := wdOrientLandscape;

  //указываем кол-во строк и столбцов
  iCols := 8;
  iRows := Form1.DataSource1.DataSet.RecordCount;

  if iRows>0 then
  begin
  //создаем таблицу
  WordTable := NewDoc.Tables.Add(WordApp.Selection.Range, iRows+1, iCols);

  //zagolovki
  WordTable.Cell(0, 1).Range.Text:='ID';
  WordTable.Cell(0, 2).Range.Text:='Дата';
  WordTable.Cell(0, 3).Range.Text:='Выявление_несоответствия';
  WordTable.Cell(0, 4).Range.Text:='Код';
  WordTable.Cell(0, 5).Range.Text:='Мероприятия';
  WordTable.Cell(0, 6).Range.Text:='Ответсвенный';
  WordTable.Cell(0, 7).Range.Text:='Сроки';
  WordTable.Cell(0, 8).Range.Text:='Отметка';

    //переносим строки
    Form1.DataSource1.DataSet.First;
    for iGridRows := 1 to iRows do
    begin
    for jGridCols := 1 to iCols do
      WordTable.Cell(iGridRows+1, jGridCols).Range.Text:=Form1.DataSource1.DataSet.Fields[jGridCols-1].AsString;
    Form1.DataSource1.DataSet.Next;
    end;

  //очистка
  WordApp := Unassigned;
  NewDoc := Unassigned;
  WordTable := Unassigned;
  end;

Прикладываю весь пример с исходным кодом: ИСХОДНЫЙ КОД

[Serge_Bliznykov]

извините, я исходный код не смотрел.
Но, может быть, поможет банальная замена wdOrientLandscape
на константу (согласно оф.сайта, это просто 1)

  NewDoc.PageSetup.Orientation := 1; {wdOrientLandscape}

[Armageddets]

Сообщение от Serge_Bliznykov

извините, я исходный код не смотрел.
Но, может быть, поможет банальная замена wdOrientLandscape
на константу (согласно оф.сайта, это просто 1)

  NewDoc.PageSetup.Orientation := 1; {wdOrientLandscape}

Спасибо огромное - помогло!