Wordファイルのページ番号を取得するには？

解決

kazu 2003-12-24 04:13:25 No: 6353

お世話になります。

Wordファイルを開いて、はじめのページと最後のページのページ番号を
取得したいと思っております。VBAでは取得できるのでDelphiアプリから
も可能だと思うのですが、VBAのマクロに対応するプロパティが分からず
困っております。よろしくお願いします。

//  Dim st As Integer
//  Dim en As Integer
//  st = Selection.Sections(1).Headers(1).PageNumbers.StartingNumber
//  en = Selection.Information(wdNumberOfPagesInDocument)

procedure TForm1.Button1Click(Sender: TObject);
var
  Path:OleVariant;
begin
  Path:=ExtractFilePath(Application.ExeName)+'文書1.doc';
  WordApplication1.Connect;
  WordApplication1.Visible:=True;
  WordApplication1.Documents.Open(FilePath,
    EmptyParam,EmptyParam,EmptyParam,EmptyParam,
    EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
  WordDocument1.ConnectTo
                   (WordApplication1.ActiveDocument as _document);

//文書1.docのページ番号を取得
WordDocument1.??
end;

よろしくお願いします。

kazu 2003-12-24 06:18:43 No: 6354

文字化けしてしまいました。すみません m(_ _)m
もう一度書き込んでみます。（環境：WinXp Pro + IE6）

Mr.XRAY URL 2003-12-24 06:29:34 No: 6355

wdNumberOfPagesInDocument
などのプロパティの取得方法でしたら

V:=WordApplication1.Selection.Information
[wdNumberOfPagesInDocument];

で可能です．VはOleVariantですが，次に使用する予定がなければ
Integerでもいいようです．

kazu 2003-12-24 08:10:19 No: 6356

Mr.XRAYさん、できました！！
ありがとうございました。

//開始ページ番号
st:=WordApplication1.Selection.Information
[wdActiveEndAdjustedPageNumber];
//ページ数
en:=WordApplication1.Selection.Information
[wdNumberOfPagesInDocument];
//終了ページ番号
en:=st+en-1;