Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
223 / 314 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【293】ワードの印刷枚数を数える方法 みや 05/4/24(日) 16:26 質問[未読]
【294】Re:ワードの印刷枚数を数える方法 アール 05/4/25(月) 23:41 回答[未読]
【295】Re:ワードの印刷枚数を数える方法 みや 05/4/26(火) 22:32 お礼[未読]
【293】ワードの印刷枚数を数える方法
質問  みや  - 05/4/24(日) 16:26 -
引用なし
パスワード
   初めて投稿いたします。お願いいたします。

ワードでフォルダに格納してあるドキュメントすべての
印刷枚数を数えて、結果を表示したいのですが。

エクセルだと、フォルダをApplication.FileSearchで検索して
ページ数 = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)
な感じで検索結果のファイルの全シートを検索することで
できるのですが・・・。

ワードのVBAに慣れていないので、今ひとつ思いつきません。
お願いいたします。
【294】Re:ワードの印刷枚数を数える方法
回答  アール  - 05/4/25(月) 23:41 -
引用なし
パスワード
   ページ数を数えるには
ActiveDocument.BuiltInDocumentProperties
というコレクションの中にNameプロパティが"Number of pages"という値の
アイテムがあり、コレのValueプロパティの値をつかえばいいと思います。


▼みや さん：
>初めて投稿いたします。お願いいたします。
>
>ワードでフォルダに格納してあるドキュメントすべての
>印刷枚数を数えて、結果を表示したいのですが。
>
>エクセルだと、フォルダをApplication.FileSearchで検索して
>ページ数 = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)
>な感じで検索結果のファイルの全シートを検索することで
>できるのですが・・・。
>
>ワードのVBAに慣れていないので、今ひとつ思いつきません。
>お願いいたします。
【295】Re:ワードの印刷枚数を数える方法
お礼  みや  - 05/4/26(火) 22:32 -
引用なし
パスワード
   ありがとうございました。
早速試してみます！！。

▼アール さん：
>ページ数を数えるには
>ActiveDocument.BuiltInDocumentProperties
>というコレクションの中にNameプロパティが"Number of pages"という値の
>アイテムがあり、コレのValueプロパティの値をつかえばいいと思います。
>
>
>▼みや さん：
>>初めて投稿いたします。お願いいたします。
>>
>>ワードでフォルダに格納してあるドキュメントすべての
>>印刷枚数を数えて、結果を表示したいのですが。
>>
>>エクセルだと、フォルダをApplication.FileSearchで検索して
>>ページ数 = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)
>>な感じで検索結果のファイルの全シートを検索することで
>>できるのですが・・・。
>>
>>ワードのVBAに慣れていないので、今ひとつ思いつきません。
>>お願いいたします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
223 / 314 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
207387
(SS)C-BOARD v3.8 is Free