プロが教えるわが家の防犯対策術!

以前、http://oshiete1.goo.ne.jp/qa3914477.html
にてWordファイルに埋め込まれているページ数情報をVBスクリプトで
抜き出す方法(temtecomai2に回答いただいている方法です。
そのほかの方法だと最新のプロパティ情報を抜き出せないようです)
を教えていただきましたが、
今度はページ数ではなく、個々のWordファイルの会社名やタイトル
表題なども「wscript.Echo」で表示したいと思っています。
(本当はテキストファイルに出力したいのですが、その部分は自分でやります。)
http://msdn.microsoft.com/ja-jp/library/microsof …
に書かれているwdCompanyなどで会社名を表示できるのかと思ったのですが、うまくいきません。
objDoc.ComputeStatistics(wdStatisticPages)のカッコ内を
何に変えると会社名やタイトルなどが得られるのかお分かりに
なるかたいらっしゃいましたら教えていただけませんでしょうか。
「ここを自分で見て調べなさい」といった情報でも全然かまいませんので
よろしくお願いします。

A 回答 (1件)

この点詳しくないのだが、前の質問に拘っている意味がわからないのだが、>ワードのプロパティ情報、をという言葉を頼りにやってみた。


メモ帳に下記コードを貼り付け、.vbsで保存。当方実行まではテスト済み。当然文書名、フルパスは書き換えること。
on error resume next
msgbox "property"
Set oWord = CreateObject("Word.Application")
Set oDoc = GetObject("C:\Documents and Settings\xxxx\My Documents\doc1.doc")
n=odoc.BuiltInDocumentProperties.count
For i = 1 To n
msgbox i & " " & odoc.BuiltInDocumentProperties(i).name & "="
x =odoc.BuiltInDocumentProperties(i).Value
msgbox x
Next
ーー
質問の路線と違うような(<ーobjDoc.ComputeStatistics(wdStatisticPages)。
こちらはワードのメニュのファイループロパティで出る情報だと思います。
    • good
    • 0
この回答へのお礼

早速の回答ありがとうございました。
会社名だけが欲しかったので
Set oWord = CreateObject("Word.Application")
Set oDoc = GetObject("C:\aaa.doc")
msgbox odoc.BuiltInDocumentProperties(21).Value
で表示できました。
odoc.BuiltInDocumentProperties(n).Value
というのがあるのですね。
objDoc.ComputeStatistics(wdStatisticPagesはワードの
メニューのファイル→プロパティで出る情報だということですが、
それと今回教えていただいた
odoc.BuiltInDocumentProperties(n).Value
で取得できる情報は違うものなのでしょうか。
どちらもファイルの会社名情報のような気がするのですが。
取り急ぎありがとうございました。m(_ _)m

お礼日時:2008/12/05 23:34

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