請問以下VBA程式如何轉delphi ActiveWindow.View.Type = wdWebView If ActiveWindow.View.SplitSpecial = wdPaneNone Then ActiveWindow.ActivePane.View.Type = wdPrintView Else ActiveWindow.View.Type = wdPrintView End If 謝謝

var
  Word:TWordApplication;    begin
  ...
  ...
  Word.ActiveWindow.View.type_:=wdWebView;
  if Word.ActiveWindow.View.SplitSpecial=wdPaneNone then
    Word.ActiveWindow.ActivePane.View.type_ := wdPrintView
  else
    Word.ActiveWindow.View.type_ := wdPrintView;
  ...
end;

＠瞭解越多.懂得越少＠ 發表人 - chris_shieh 於 2005/02/02 13:49:48