如何控制word的頁面設置(PageSetup属性)

Question

FWordApp: Variant;
FWordDoc: Variant;  FWordApp := CreateOleObject('Word.Application');
  FWordApp.Visible := False;
  FWordDoc := FWordApp.Documents.open(FileName := FInFile, ReadOnly := False, AddToRecentFiles := False);
  FWordDoc.PageSetUp.Zoom := False;//运行到这里报错"Method 'Zoom' not supported by automation object"
利用Ole方法,怎么才能控制到PageSetup属性

Answer 1

procedure   Word.Normalize;   
  begin   
      //MsWord.ActiveDocument.PageSetup.LineNumbering.Active   :=   False;   
      //MsWord.ActiveDocument.PageSetup.Orientation   :=0;//   wdOrientPortrait;   
      MsWord.ActiveDocument.PageSetup.TopMargin   :=   CentimetersToPoints(0.75);   
      MsWord.ActiveDocument.PageSetup.BottomMargin   :=   CentimetersToPoints(0.2);   
      MsWord.ActiveDocument.PageSetup.LeftMargin   :=   CentimetersToPoints(0.5);   
      MsWord.ActiveDocument.PageSetup.RightMargin   :=   CentimetersToPoints(0.5);   
      MsWord.ActiveDocument.PageSetup.Gutter   :=   CentimetersToPoints(0);   
      MsWord.ActiveDocument.PageSetup.HeaderDistance   :=   CentimetersToPoints(1.27);   
      MsWord.ActiveDocument.PageSetup.FooterDistance   :=   CentimetersToPoints(1.27);   
      //MsWord.ActiveDocument.PageSetup.PageWidth   :=   CentimetersToPoints(21);   
      //MsWord.ActiveDocument.PageSetup.PageHeight   :=   CentimetersToPoints(29.7);   
      //MsWord.ActiveDocument.PageSetup.FirstPageTray   :=0;//   wdPrinterDefaultBin;   
      //MsWord.ActiveDocument.PageSetup.OtherPagesTray   :=0;//   wdPrinterDefaultBin;   
      //MsWord.ActiveDocument.PageSetup.SectionStart   :=2;//   wdSectionNewPage;   
      //MsWord.ActiveDocument.PageSetup.OddAndEvenPagesHeaderFooter   :=   False;   
      //MsWord.ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter   :=   False;   
      //MsWord.ActiveDocument.PageSetup.VerticalAlignment   :=0;//   wdAlignVerticalTop;   
      //MsWord.ActiveDocument.PageSetup.SuppressEndnotes   :=   False;   
      //MsWord.ActiveDocument.PageSetup.MirrorMargins   :=   False;   
      //MsWord.ActiveDocument.PageSetup.TwoPagesOnOne   :=   False;   
      //MsWord.ActiveDocument.PageSetup.GutterPos   :=0;//   wdGutterPosLeft;   
  end;   

Answer 2

自動縮放的屬性是哪個呢?比如word源文件比A4还大,我想把它设置为A4,然后根据A4比例缩放