Top > VBScript > Word.Application


CreateObject("Word.Application")

Dim objWord

Set objWord = CreateObject("Word.Application")

' Word表示.
objWord.Visible = True
' 警告メッセージをOFF.
objWord.DisplayAlerts = False
' ファイルオープン.
objWord.Documents.Open( "./xxxxx.doc" )
' 行数を表示.
WScript.Echo objWord.Paragraphs.Count
' Word終了.

objWord.Quit wdDoNotSaveChanges
Set objWord = Nothing


Quitの保存について
操作 定数
0 保存しない wdDoNotSaveChanges
-1 保存する wdSaveChanges
-2 確認する wdPromptToSaveChanges

Wordの行数を取得するサンプルです。

Wordで気をつけないといけないのが、Quit時の設定をお忘れなく。



Copyright © 2015 AchaPorutePiipo All Rights Reserved.