[文書情報を取得する]

ワードファイル（C:\Temp\Test.doc）の文書情報を取得します。

【ソースコード】

[tips0174.vbs]
Option Explicit
On Error Resume Next

Dim objWdApp        ' Word オブジェクト
Dim objWdDoc        ' Document オブジェクト
Dim objPpty         ' Property オブジェクト

Set objWdApp = WScript.CreateObject("Word.Application")
If Err.Number = 0 Then
    Set objWdDoc = objWdApp.Documents.Open("C:\Temp\Test.doc")
    If Err.Number = 0 Then
        For Each objPpty In objWdDoc.BuiltInDocumentProperties
            WScript.Echo objPpty.Name & ": " & objPpty.Value
        Next
        objWdDoc.Close
        objWdApp.Quit
    Else
        WScript.Echo "エラー：" & Err.Description
    End If
Else
    WScript.Echo "エラー：" & Err.Description
End If

Set objWdDoc = Nothing
Set objWdApp = Nothing

【実行結果】

C:\> cscript //NoLogo tips0174.vbs
Title: テストのドキュメント
Subject: サブタイトル
Author: tonton
Keywords:
Comments: テストで作成したドキュメントです。
Template: Normal.dot
Last author: tonton
Revision number: 10
Application name: Microsoft Word 9.0
Creation date: 2005/04/02 10:14:00
Last save time: 2005/04/03 16:20:00
Total editing time: 2
Number of pages: 1
Number of words: 16
Number of characters: 16
Security: 0
Category:
Format:
Manager:
Company:
Number of bytes: 19456
Number of lines: 3
Number of paragraphs: 3
Hyperlink base:
Number of characters (with spaces): 16