No.1ベストアンサー
- 回答日時:
No.2
- 回答日時:
こんにちは。
以下は、マクロが分かる人を対象にしていますが、MsgBox で出すか、イミディエイトウィンドウに出してしまえばよいと思います。MsgBox 側の先頭に、「'」をつけて、Debug.Print 側の先頭に、「'」を外せばよいです。Visual Basic Editor 画面で、Ctrl + G で見れます。
ただ、これは、いずれにしても読むに時間が掛かります。ページ数の多いドキュメント(100ページを超える)は、Repaginage(以下は入れてあります) して、タイムラグを取らないと、Wordではうまくいかない可能性が強いです。待つことをしたくない場合は、DSOFile.dll を使って、一気に読ませる方法があります。
http://support.microsoft.com/kb/224351/ja
Sub GetWordProperties()
Dim wdDoc As Word.Document
Dim Fname As Variant
Dim Fnames As Object
Dim msg As String
Dim wdCnt As Long, wdtitle As String 'ページ数とタイトル
With Application.FileDialog(msoFileDialogOpen)
.Show
Set Fnames = .SelectedItems
If Fnames.Count = 0 Then
Exit Sub
Exit Sub
End If
End With
For Each Fname In Fnames
Set wdDoc = Application.Documents.Open(Fname, , True)
With wdDoc
.Repaginate
wdtitle = .BuiltInDocumentProperties(wdPropertyTitle)
wdCnt = .BuiltInDocumentProperties(wdPropertyPages)
.Close False
End With
Set wdDoc = Nothing
msg = msg & vbCrLf & wdtitle & " 総ページ数: " & wdCnt
'大量にあるなら、イミディエイトウィンドウに出したほうが早い
'Debug.Print wdtitle; " 総ページ数: "; wdCnt Next Fname
If msg <> "" Then
MsgBox msg
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Excel(エクセル) Excelから複数のWordファイルを操作する方法について教えて頂きたい。 やりたいことは、複数のW 2 2022/07/26 20:11
- Word(ワード) PCで作ったwordをスマホで編集しようとすると「このファイルは読み取り専用です。」と表示される。 3 2023/05/30 14:51
- システム科学 レポートについて 3 2022/11/01 18:45
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Visual Basic(VBA) Wordマクロで指定したフォルダ名に保存する方法について 8 2022/12/13 11:35
- Word(ワード) 9枚の写真がA4 1枚に印刷できました。しかし配列が思うようになりません。 5 2023/07/02 17:15
- Word(ワード) 例えば、1ページから28ページまでの字数を数える時に、 WORDファイルで1ページから28ページまで 3 2023/01/11 09:09
- CAD・DTP A3のWORDファイルをTIFFに変換したい 6 2022/12/15 16:00
- Word(ワード) office365 ファイルを削除したい 2 2023/05/03 07:46
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで「同じ名前のファイルが...
-
エクスプローラーに音楽ファイ...
-
エクセルのTMPファイルを開く方法
-
名前を変えたら開けなくなりま...
-
メディアプレイヤーの曲が削除...
-
iPodのプレイリスト On The Go...
-
VCSファイルをCSVファイル に変...
-
イラストレーターのレイヤーパ...
-
勝手に作られるファイル"File00...
-
isoファイルの複数書き込み...
-
解凍後の.zipファイルは消して...
-
【初心者です】izhというファイ...
-
4.7GB以上のデータをDVDに書き...
-
“.vbs”のファイルが実行できない
-
ファイルを閉じても開いている...
-
ワードのデータをUSBに保存した...
-
拡張子をtxtからdatに
-
誤ってAdobe ReaderでZIPファ...
-
誤って変更した拡張子を元に戻...
-
Total Uninstall以外のアンイン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで「同じ名前のファイルが...
-
VCSファイルをCSVファイル に変...
-
エクスプローラーに音楽ファイ...
-
Premiere Proのプレビューファ...
-
.svn-baseというファイルが消え...
-
realplayerでDLし、その後削除...
-
wordファイルのページ枚数を知...
-
ファイルの最終アクセス日の確...
-
isoファイルの複数書き込み...
-
エクセルのTMPファイルを開く方法
-
ImgBurn いつまでたっても終了...
-
隠しファイルの探し方を教えて...
-
メディアプレイヤーの曲が削除...
-
DAEMON TOOLSでマウントが出来...
-
Windows 7フロッピーディスクド...
-
ituneの使い方 重複する曲の削除
-
PCのハードディスク容量を増や...
-
aiファイルをレイヤー保持した...
-
ViXについて
-
AviUtlを初期状態からやり押したい
おすすめ情報