Wordのプロパティ・総ページ数について（VBA絡み）

解決済

質問者：idbr2
質問日時：2005/09/27 14:36
回答数：11件

　初心者です。
エクセルVBAでWordのプロパティ値を取得するためBuiltinDocumentProperties("Number of Pages")を使っているのですが、なぜかページ数が正しく表示されません。
　例えば６ページある文書の総ページ数が２というふうに全然関係ない数字が返ってきます。念のためマクロ後にプロパティ値を再確認すると、表示された２に変わってしまっているんです。もちろん実際の文書に存在するページ枚数は変わっていません。
　文書自体を開いて上書きしてやると、ページ数の数字は戻るのですが、マクロを実行すると同じ結果になります。どうしてでしょうか？
　EXCEL2000です。詳しい方お願いします。

　

通報する

この質問への回答は締め切られました。

質問の本文を隠す

このQ&Aに関連する最新のQ&A

「ワード VBA」に関するQ&A：エクセルのVBAで、ひとつのセル内にある文章に特定のキーワードが含まれているかを返すマクロを作ったの

さらに表示

「Word API」に関するQ&A： Wordマクロでスリープ関数(API)を宣言する方法

「使い方 AS」に関するQ&A：接続詞asの使い方について

「英語スレッド」に関するQ&A：英語では、「スレッド」は、どう表現されますか？

「脚注ワード」に関するQ&A：ワードで脚注の線はひけたのですが削除ができません

「マクロ英語」に関するQ&A：エクセルで英語の頭のみ大文字にするマクロについて

「脚注 Word」に関するQ&A：【Word2000】段組の脚注

回答 (11件中11～11件)

ベストアンサー優先
最新から表示
回答順に表示

No.1

回答者： KenKen_SP
回答日時：2005/09/27 14:59

こんにちは。

KenKen_SP です。

ページ全体の読み込みが完了しないうちに、コードが実行されているとか?

lngPageCount = ActiveDocument.ComputeStatistics( _
　　Statistic:=wdStatisticPages, _
　　IncludeFootnotesAndEndnotes:=True)
MsgBox lngPageCount

だと、どうですか?

以下はオマケ（というより蛇足）の参考ですが、、、

　・IncludeFootnotesAndEndnotes:=False とすると脚注部分を含まない
　・統計情報の取得は文書の変更とみなされる

- 0
- 件

通報する

←前の回答 1 2

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

専門家回答数ランキング

専門家

※過去一週間分の回答数ランキングです。

質問する（無料）

他の専門家の回答をチェック

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qwordで印刷の頁順を変えたい

wordでB5の文書4Pの倍数を作りB4用紙に出力する時
(以後4pの倍数)

通常文書を作成しますと

1頁目
2頁目
3頁目
4頁目
---
5頁目
6頁目
7頁目
8頁目
---
:
:
となりますが

これを下記の順序で印刷する事可能でしょうか
4頁目
1頁目
2頁目
3頁目
---
8頁目
5頁目
6頁目
7頁目
---
:
:
逆頁で印刷というのはあるようですが

１頁づつ移動して行えばできなくはないのですが
修正が入った時などズレを気にしなくてはならず
困っています。

良い方法があったら教えて下さい。
宜しくお願い致します。

Aベストアンサー

ファイル→印刷で
ページを指定して印刷の欄に、印刷したいページを
「4,1,2,3,8,5,6,7」と指定すればその順番で印刷します。（Word2000の場合）

他の回答も見る

Q【ワード（WORD）】印刷文書のページ番号がプレビューと一致しない。（ページ数/総ページ）が（ページ数/ページ数）になる

ページ番号を（ページ数/総ページ数）に設定しており、印刷プレビュー
でもそのように表示されているのですが、印刷すると（ページ数/ページ数）となってしまう場合があります。必ずそうなるわけでなくプレビューどうり表示されるときもありますが、不正な印刷も結構起こります。プロビューでは100パーセント正しく（ページ数/総ページ数）で表示されます。
ちなみに使用しているワードのバージョンは2002で、（ページ数/全体ページ数）のフィールドコードは{PAGE }/{SECTIONPAGES \* MERGEFORMAT}で総ページ数は文書全体の総ページではなく、セクション内の総ページ数を表示する処理にしています。
わかる方がおられましたら、ご指南お願いいただけないでしょうか。
よろしくお願いいたいします。

Aベストアンサー

No1さんの回答はWord2000の問題ですが↓

[WD2000]
印刷時のみ{NumPages} フィールドの値が正しくない
http://support.microsoft.com/kb/234287/ja

Word2002だとこのこと↓かしら？

印刷されたドキュメントのSECTIONPAGES フィールド
のページ番号は、 Word 2002 で間違っています。
http://support.microsoft.com/kb/324329/ja

それから、質問文が読み難いので改行して下さいね。

他の回答も見る

QFORTRANで作成したテキストファイル中で改行・改頁制御する方法を教えてください

FORTRAN90で数表をテキストファイルに書き出すプログラムをつくっています。テキストエディタから印刷したときに改行や改頁ができるように改行コードや改頁コードをファイルに入れたいのですが、
その記述の仕方がわかりません。
たとえば下記のような場合、どのような記載をすればよいのでしょうか？

DO I=Q,R
WRITE(9,"(I4,7(1X,A))") I,(A(J,I),J=O,P)
END DO

どなたか詳しい方、教えていただけませんでしょうか。
よろしくお願いいたします。

Aベストアンサー

#2 の方針をとると, 「指定した ASCII コードを持つ文字」が求まればよいわけだから組み込み関数の ACHAR を使えばよいような感じです.

他の回答も見る

Q【WordやPageで作った文章をそのままブログのページにしたい】無理ですか？WordやPage

【WordやPageで作った文章をそのままブログのページにしたい】無理ですか？

WordやPageで作ったままのレイアウトのままアップすることって出来ないのでしょうか？

Aベストアンサー

できますが、そのまんまというのはブログサービスを選びます。
Wordでいうなら、ファイル→新規作成→「ブログの投稿」とか「新しいブログ」というのがありますよね。
https://support.office.com/ja-jp/article/Word-%E3%81%A7%E3%81%AE%E3%83%96%E3%83%AD%E3%82%B0%E4%BD%9C%E6%88%90-5061eb31-63cd-4373-89ea-bfed8f7fdabb
http://snow-white.cocolog-nifty.com/first/2013/03/word-2013-1082.html

他の回答も見る

Qword 罫線　表　改頁

ＷＯＲＤで表を作ってその表のタイトルで改頁
などしたりしているうち
後でその改頁を削除しようとすると表の中に改頁表示が
埋めこまれて削除不可能になったりします。

きちんと改頁をとるにはどう操作すればよいのでしょうか。
よろしくお願いいたします。

Aベストアンサー

No1の者です。
いろいろ試してみたんですが、おっしゃるような現象は起こりませんでした(^^;)。できましたら、下記を教えてもらえませんか？
○Wordのバージョン
○OSの種類（Windows98とか）
○何行何列の表をいくつぐらい作成したのか。
○もし、「どういうときに起こりやすいか」というのがわかりましたら、より詳しく教えて下さい。

他の回答も見る

Qヘッダーにページ番号／ページ数を設定するときに表紙（1ページ目）をページ数に含めない方法

ワード2003です
ヘッダーにページ番号／ページ数を設定するときに
ページ数に1ページ目（表紙）を含めない方法を教えてください。
具体的には、4ページのファイルの
1ページ目表紙　　ページ番号をつけない
2ページのヘッダーに1/3　3ページ目のヘッダーに2/3
4ページ目のヘッダーに3/3と表示させたい

よろしくお願いします。

Aベストアンサー

簡単な方法としては総ページ数から1を引くことで対応します。

ヘッダーとフッターを開き、ヘッダーのフィールドコードを表示します。
Alt+F9キーでも良いのでフィールドコードが表示されたら以下のように
変更します。

ページ/総ページの場合、フィールドコードの表示にすると
　{ PAGE }/{ NUMPAGE }　になっています。

このままだと表紙ページが含まれるので、総ページから1ページ分引く
ことで対処します。

　{ PAGE }/{ ={ NUMPAGE }-1 }　にすることで表紙を含めないで表示
してくれます。

{ NUMPAGE }を選択状態にして[Ctrl+F9]キーでフィールドの挿入をして
{ { NUMPAGE } }にして{ ={ NUMPAGE }-1 }の数式を入れます。

他の回答も見る

QＷＯＲＤで中綴じ用の頁番号を付けるには？

ＷＯＲＤで中綴じ用の頁番号を付けることは可能でしょうか？

中綴じの場合、例えば、全部で１６頁あったとすると、一枚面の用紙の表側は第１頁と第１６頁（の２頁）、裏側は第２頁と第１５頁（の２頁）のような頁番号になると思いますが、このような形で頁番号を表示し、かつ、その頁番号に該当する頁内容をプリントするにはどうすればよいでしょうか？　自動的に行う方法があるのでしょうか？

Aベストアンサー

次のような方法があります。

1) 印刷するページの順番を指定して印刷する。
2) プリンタの「冊子印刷」機能を利用する。
3) Wordの小冊子印刷機能を利用する。

「用紙の両面に印刷し、綴じて製本する」
http://pc.nikkeibp.co.jp/pc21/tech/word50/36/index.shtml

「「Word」による「小冊子」の作成」
http://www1.odn.ne.jp/nsc-ob/cont203.htm

「小冊子を印刷する」
http://office.microsoft.com/ja-jp/word/HP030729491041.aspx

他の回答も見る

Qページ設定が縦横まざった文書で同じ位置にページ数をつけるには？

　説明しづらいんですが、なんとかわかってください。
ページ設定で、縦と横がまざった文書があります。縦方向は文書・横方向は図が入っているのですが、ページ数をわりつけると、縦と横のページ数の入っている位置が違ってしまいます。どうにか縦方向のページ数の位置とそろえたいんですが、どうしたらいいのでしょうか？
　言い方をかえると、ページ数が長方形の長辺の部分についてるページと、短辺についてるページがあるんですが、全ページ短辺につくようにするにはどうすればいいですか？

Aベストアンサー

#1です。補足です。

忘れていた方法がわかりましたので、お伝えします。
すでに作成済みの文章ですと説明しにくいので、新規文書で一から設定する方法をご案内します。

横向きページの短辺部分にページ番号を入れ、そのページ番号を90度回転させる方法です。

1.表示→ヘッダー/フッター→ヘッダー/フッターツールバーでヘッダーとフッターの切り替え
2.挿入→ページ番号
3.挿入されたページ番号をクリックすると枠が付きます。枠をドラッグするとページ番号を任意の位置に移動できます。
4.移動後、書式→縦書きと横書き→任意の文字方向を選択

いかがでしょうか？これで3つご提案したわけですが、ご要望に添えますでしょうか？

他の回答も見る

QWord2010の頁番号の付け方で質問です

Word2010で、５頁の文書を作りました。１～３頁まで頁番号を付け、４頁と５頁には付けないという事は出来るでしょうか？３頁文末にセクション区切りを挿入して試してみましたが、上手くいきませんでした。宜しくお願いします。

Aベストアンサー

まず、「挿入」→「ヘッダーとフッター」→「ページ番号」で、ページ番号を挿入します。
この状態では、4ページと5ページにもページ番号が入っていると思います。

次に、4ページのページ番号が入っているフッターの部分にカーソルを置いて、「ヘッダー/フッターツール」「デザイン」→「ナビゲーション」の中の「前と同じヘッダー/フッター」をクリックします。
これで、4ページと5ページのページ番号が消えるはずです。

他の回答も見る

Qワード文書に1ページを占める罫線表を挿入すると次ページが空白になり、空白ページを削除できない

WindowsXPでword2002(10.6804.6811)SP3を使っています。
1ページ全体を占める罫線表のページが続く場合、1ページおきに空白ページが表示されることがあり、この空白ページの削除方法が分かりません。表の高さを少し縮めると空白ページが消えることもありますが、1ページに2ページ分の内容が重なって表示されたり、2ページ分の表が結合されて余白部分にもいっぱいに表示されたりします。自分のPCでもこれだけ微妙では、異なるバージョンのワードを使う方を含め他の方に正しく表示していただけるかどうか心配です。よい解決策がありましたらお教えくださいませ。

Aベストアンサー

ANo2です

>入力は縦書きにしています。罫線表の中も同様に
>縦書きにしています。この辺りに問題があるのかも
この可能性が高いと思います。

1ページ目は[縦書き]で作成したままで結構ですから、
[改ページ]を挿入するのでなく、[セクション区切り]
を入れて改ページをします。

2ページ目からの表は、[横書き]の[ページ設定]にして
表内の範囲だけを縦書き設定にします。

ANo2でアドバイスしたように、各ページごとの設定で
表を作成しておけばトラブルが少ないと思います。

[表]は[HTML関連]の仕様のようですから、[ページ設定]
が[縦書き]だとトラブルに対処し難いのです。

Wordは[横書き]が基準で、[縦書き]に対しては不具合
が多いので、トラブルの元です。
基本が横書きだと頭の片隅においておいて、作成する
ことで、縦書き時のトラブルを減らすことが出来ると
思います。