No.3ベストアンサー
- 回答日時:
こんばんは。
最初に、BuiltInDocumentProperties は、一旦、開いて、開いたページを、Repaginate しないと取れません。#1の方の引用先のコードは、小さなファイルは可能ですが、大きなファイルでは正しいページが出てこないはずです。
私の考えたものです。
Sub GetWordProperties()
Dim wdApp As Word.Application
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
Next Fname
MsgBox msg
End Sub
開かないで、ページ数などの情報を取れる、Dsofile という、タイプライブラリを使う方法があるのですが、ひとつ欠陥があります。一旦、印刷していないものは出来ません。
http://support.microsoft.com/kb/224351/ja
Visual Basic .NET 2003 および Visual Basic .NET 2002 で Dsofile.dll を使用すると Office がなくても Office ドキュメントのプロパティを編集できる
それから、ファイル-ファイルを開くで、プロパティ表示をしたらどうでしょうか。人が一旦作って保存したものなら、プロパティが出てくるはずですから、1,000ぐらいなら、何とかなるかもしれません。ただ、すべてのDocument にプロパティが見れるとは限りません。
No.2
- 回答日時:
目安にしかならないかもしれませんが、
マイコンピュ-タやエクスプローラで
名前 サイズ 種類 更新日時
などとなっている部分の上でマウス右クリック
→その他...
→□ページ数 にチェックを入れる
でどうでしょうか?
※現在のフォルダ以外にも有効にしたいときは、
ツール
→フォルダオプション
→表示
→すべてのフォルダに適用
No.1
- 回答日時:
一般機能で出来るかは分かりません。
VBAですべてのドキュメントをループで開き、
アクティブなドキュメントのページ数を取得、
となると思います。
↓はワードVBAですが、エクセルVBAに移植(ある程度の
改造は必要)して、エクセルに情報を転記、としては
いかがでしょう?
http://www.aa.alpha-net.ne.jp/pcfriend/word/Word …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Chrome(クローム) Chromeのアドレスバーに履歴等を表示させないようにしたい 2 2022/09/08 14:20
- アプリ Edgeを操作するアプリについて 4 2023/05/11 22:48
- WordPress(ワードプレス) ワードプレスで、投稿一覧ページにタグを表示する方法 投稿につけたタグを、記事一覧ページにもカテゴリと 1 2023/05/10 21:41
- Visual Basic(VBA) 複数ページあるPDFファイル内の文字列等の情報をキーにPDFをグループ分け分割したい。 2 2022/06/25 09:51
- HTML・CSS htmlのデータをwebページみたいに見る方法 5 2023/06/23 17:47
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- マルウェア・コンピュータウイルス PCのセキュリティについて gmailにOneDriveから「ランサムウェアの兆候が検出されました」 1 2023/01/18 18:04
- その他(ブラウザ) IE・edgeで日増しに観られるサイトが減ってくる。 1 2022/10/04 22:40
- PDF EXCEL ページを指定してPDF出力するVBAを教えてください。 2 2023/02/09 10:27
- 楽天市場 楽天の離島送料 2 2022/09/12 15:46
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
再起動が必要です
-
ワードで大量の図形を一括でグ...
-
ワードで作成した画像を保存す...
-
ワード レイアウトの崩れ
-
20×20のワードを37×36のtxtに...
-
ワードが白と黒が反転してしま...
-
ワードの行間
-
ワードで名刺作成。枠線の同じ...
-
「niger fk」 ↑外国人にこの文...
-
エクスプローラーについて。
-
ワードでルビを振ると「単語が...
-
ワードでプリンターがA4までな...
-
ワード PDF化した際、背景の...
-
chatgptで、2000000トークンと...
-
理想的な行数、文字数、フォント
-
参照用数字配列がいつの間か変...
-
Officeソフトで印刷の入稿デー...
-
目次は文書中の先頭にのみにし...
-
大学のレポートについてです。...
-
IMEパッドの手書き入力
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCEL のドキュメントの回復に...
-
エクセル「テンポラリドキュメ...
-
ワードを開かずにページ数だけ...
-
wordで保存を押したらドキュメ...
-
Excel のファイルを開くと複数...
-
ExcelWord2003が開けない「ウイ...
-
MS Word:ファイル内のゴ...
-
CSVのエクセルファイルで ハイ...
-
イラレのCS4で白フチを作る方法
-
エクセルで特定のファイルだけ...
-
MSNメッセンジャー7.5 最大化...
-
サムネと実際の写真がぜんぜん違う
-
Wordの表示倍率を一定にしたい
-
pcのエクスプローラーについて...
-
パワーポイントでPDFファイルを...
-
一太郎の保存文書が開かなくな...
-
SDカード内の内容をインデック...
-
ファイルの内容表示
-
HP掲示板の保存の仕方 と フ...
-
internet Explorerの履歴欄
おすすめ情報