1 2 3 4 5 6

廣告

網友您好,若是您覺得我寫的工具或文章對您有幫助,
而您或者您的朋友有在博客來購物,可以透過底下連結

如何在博客來購物贊助網站或是點選計數器下方的博客來圖示來讓網站可以永續經營。

2009年1月10日 星期六

如何在Word中寫巨集-1.即時運算視窗環境設定篇

很多人要使用Word的巨集,通常不知道要如何操作,這時候可以透過即時運算視窗來練習指令,底下說明如何把即時運算視窗打開,以後我會寫一些常用的巨集指令,就可以直接在這個視窗做練習。
1.選[工具]/[巨集]/Visual Basic編輯器,或是按[Alt]+[F11] 2.[檢視]/[即時運算視窗],或是按[Ctrl]+[G]
3.這時即時運算的視窗
4.您可以輸入? word.就會出現相關的屬性及方法
5.顯示目前word檔案名稱
6.ActiveDocment是指目前作用中的word檔案(就是目前您正在看的word的)
如果您開啟很多word檔,可以用Documents來指定是第幾個word的檔案名稱
或是直接把檔案名稱來存取也是可以的
PS:?是print指令的快速用法,也可直接輸入print word.ActiveDocument.Name

3 則留言:

Chih-Kai 提到...

您好,無意間瀏覽到您的blog,受益良多,
最近有個問題一直困擾者我還是無法解決,
我的狀況是:
有1000多筆相同格式的資料,我要利用巨集批次把每筆資料的案號做索引
(格式為 編號:A12345678),
我有使用錄製巨集的方式試著做出來,
但是發現無法自動跳到下一頁做建立索引的動作,而且會當掉....目前查了很多網路資料還是找不到方向,因此只好向您詢問,以下是我的原始碼。
若造成您的困擾,還請見諒,謝謝。
Sub 服務申請表()
'
' 服務申請表 巨集
'
'
Dim i As Integer

For i = 1 To 100

Selection.Find.ClearFormatting
With Selection.Find
.Text = "編號:"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Selection.Find.Execute


Selection.MoveRight Unit:=wdCharacter, Count:=8, Extend:=wdExtend
Selection.Copy
Dim str As String
str = Selection.Text

ActiveWindow.ActivePane.View.ShowAll = True
ActiveDocument.Indexes.MarkEntry Range:=Selection.Range, Entry:= _
str & ":服務申請表", EntryAutoText:="A11111111", CrossReference:="", _
CrossReferenceAutoText:="", BookmarkName:="", Bold:=False, Italic:=False, _
Reading:=":ㄈㄨˊㄨˋㄕㄣㄑㄧㄥˇㄅㄧㄠˇ"



Next

End Sub

一整天 提到...

Chih-Kai 您好:
方便寄檔案給我嗎?這樣我比較好幫您看問題出在那?

Chih-Kai 提到...

您好,
不好意思這麼晚才看到這封信,Orz
關於這個問題,我後來採用分割步驟且分批次的方式處理就沒有發生當機的狀況,
雖然方法笨了點,但也是大大縮短了時間,
多虧您的教學文章,
在此還是謝謝板主您撥空回覆,感恩。

贊助

彰化一整天粉絲團