2006年11月24日 星期五

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

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

沒有留言:

張貼留言