Word 巨集編寫

昨天去XD家裡聽草咩說他在打字賺外快，
我大致上看了一下可以用巨集的方式省下不少時間，
因為她每次都要打
　　主：談話內容．．．．
　　次：回答內容．．．．
　　．．．．．．
看來每次都要輸入〔主：〕〔次：〕
有點浪費時間，所以想了一個辦法，
現在只要不停的輸入內容，碰到主次的變化時就按下Enter直接換行，
省下了要打〔主次〕的時間，打起字來也比較順，
等到文章全打完時只要把巨集執行一次就可以自動把〔主：〕〔次：〕給填上，
相關的程式碼如下
'=============================================
'定義 bolSC 為布林值型態,並設成全域變數,
'主要是判斷要寫入"主："或"次："
Dim bolSC As Boolean

Sub 巨集1()
    '定對暫存變數 strTmp 為字串型態
    Dim strTmp As String
    '先將 bolSC 設成 True ,
    '表一開始先寫入"主："
    bolSC = True
    '從第一段落到最後一段落
    For i = 1 To ActiveDocument.Paragraphs.Count
        '寫入
        If bolSC = True Then
           Selection.TypeText Text:="主："
            bolSC = False
        Else
           Selection.TypeText Text:="次："
            bolSC = True
        End If
        '移到下一行
        Selection.Move Unit:=wdParagraph
    Next
End Sub
'=================================================
若要改成一行一行插入文字可以利用下面的指令
　　'換到下一行
　　Selection.MoveDown Unit:=wdLine, Count:=1

以上短短的幾行就可以省了不少時間啦！
若要程式好一點就改成現在遊標的位置一直替換到最後一個段落，
這部份若有需要改天再寫好了。