iT邦幫忙

DAY 32
6

WSH研習記錄系列 第 34

WSH研習記錄--Office應用程式操作篇(Word應用二)

看了一個晚上,怎麼看Word使用的方法跟Excel真是像啊
誰叫它們倆是兄弟...
儲存文件(Save方法、SaveAs方法)
這個的用法跟Excel蠻像的..
利用Word.Documents物件的Save方法來將文件做覆蓋寫入的動作
另外也可以用SaveAs方法來做另存新檔的動作
看個例子..

Option Explicit
Private tmp
Private ThisDir
Private DocPath
With CreateObject(“Scripting.FileSystemObject”)
	Tmp = WScript.ScriptingFullName
	ThisDir = .GetParentFolderName(tmp)
	DocPath = .BuildPath(ThisDir, Tmp & “.doc”)
End With

With CreateObject(“Word.Application”).Documents.Add
	.Application.Visible = Ture
	.Content.Text = “iT邦幫忙:iT知識分享社群”
	.SaceAs DocPath
End With

製作一個新文件並輸入一些文字,再儲存..

結束Word(Quit方法)
利用Word.Application物件的Quit方法來關閉Word。
呵呵~又跟Excel用法差不多咧…
看個例子先…

Option Explicit
Private wdAp
On Error Resume Next
Set wdAp = GetObject(, “Word.Application”)
On Error GoTo 0
If Not IsEmpty(wdAp) Then wdAp.Quit 0
Set wdAp = Nothing

這個例子會對已啟動的Word,將所有的文件在未儲存的狀態下關閉
使用請小心..

提供給有需要的人..


上一篇
WSH研習記錄--Office應用程式操作篇(Word應用)
下一篇
WSH研習記錄--資料庫操作篇(資料庫連結)
系列文
WSH研習記錄42

尚未有邦友留言

立即登入留言