兩個專利說明書使用得到的巨集

http://www.nifty.com/download/win/business/patent/index.htm
兩個巨集，對各位寫美專時，一定會有很大的幫助。

第一個巨集，在每一段落前，新增希望標記段落的「預設標記【0000】」。 代碼:

Sub P_ini()
'
' 巨集錄製於 2006/1/4，錄製者 Friz.zzz
'
Selection.TypeText Text:="【0000】"
End Sub

第二個巨集，對每個「預設標記【0000】」，依順進行修改成正確的段落標記。 代碼:

Sub P_number()
'
'原作者／連絡方式
'岡田 稔 ／E-mail: okada@office.email.ne.jp
'
'中文化作者／連絡方式 
'keeping a diary patently/E-mail: Friz.zzz@gmail.com
'
Dim AddStr
Dim Num
Dim Flg_Conv
Dim Msg_Title
Msg_Title = "通知"
Num = 1
Flg_Conv = 0
Set myRange = ActiveDocument.Range()
With myRange.Find
.ClearFormatting
.Text = "【^#^#^#^#】"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
Do While .Execute = True
With .Parent
Flg_Conv = 1
.Delete
'
'日文說明書使用全形的「 vbWide 」；英說使用半形的「 vbWide 」
'，可自由選擇。
'
' AddStr = "【" + StrConv(Format(Num, "0000"), vbWide) + "】"
AddStr = "【" + StrConv(Format(Num, "0000"), vbNarrow) + "】"
.Font.Reset
.InsertAfter (AddStr)
.Move
End With
Num = Num + 1
Loop
End With
If Flg_Conv = 1 Then
MsgBox StrConv(Num - 1, vbNarrow) + " 個段落被置換", , Msg_Title
Else
MsgBox "沒有發現預設段落標記", , Msg_Title
End If

End Sub

安裝及使用方法：
1、alt鍵+F11鍵
2、點選左側欄的專案normal下的模組下的「NewMacros」
3、貼上上面的程式碼
4、儲存後，按alt+F8，之後選「 P_ini」巨集或「 P_number」巨集。

其他：
雖然段落預設標記是「【0000】」，但是卻不限定於此，只要是任意4個數字皆可，所以若有已完成的檔案，想要刪除一整段時，可以考慮使用第二個程式，用第二個程式來修正刪除一整段落後所造成的順序錯誤。