делаю следующее:
...
d1 := w.Documents.Add('myfile.doc');
d2 := w.Documents.Add('');
{копирую содержимое}
for i := 1 to d1.Paragraphs.Count do begin
r1 := d1.Paragraphs.Item(i).Range;
r1.Select;
r1.Copy;
d2.Paragraphs.Item(i).Range.Collapse(wdCollapseEnd);
d2.Paragraphs.Item(i).Range.Paste;
end;

вопрос:
как скопировать сразу все параметры документа (отступы, ориентация и т.д.)?

вариант с перечислением меня не устраивает
d2.PageSetup.PageWidth := d1.PageSetup.PageWidth;
d2.PageSetup.PageHeight := d1.PageSetup.PageHeight;
...
d2.PageSetup.Orientation := d1.PageSetup.Orientation;