Word宏應用實例

一、宏的錄制

　　在這里舉一實例。例如，在Word 97中，要插入字符，則往往要到符號框中查找半天。對于一些常用的符號，如“￥”，便可以使用宏來使工作簡化。

　　1.單擊“工具”選單中“宏”子選單，再單擊“錄制新宏”選項。

　　2.給宏取名為“Yuan”，再單擊“鍵盤”。

　　3.在彈出的對話框中指定快捷鍵，可指定為“Ctrl＋Y”，再關閉該對話框回到“錄制宏”對話框。單擊“確定”按鈕啟動記錄器。

　　4.運行“插入”選單中的“符號”子選單，從彈出的“符號”框中選擇“￥”，插入后再關閉。另外，也可以指定到工具欄，從彈出的“自定義”對話框中的“命令”欄中把“Normal.NewMacro1.Yuan”拖放到工具欄中。

　　5.單擊“停止錄制”工具欄中的“停止錄制”按鈕。

　　6.單擊“工具”選單中“宏”子選單，再單擊“宏”命令。

　　7.選擇第二步中的宏名稱，再單擊“編輯”按鈕。

　　這時我們可以從中看到以下代碼：

　　Sub Yuan()

　　 Selection.InsertSymbol Font:=″楷體—GB2312″,CharacterNumber:=－27,Unicode:=True

　　End Sub

　　以后，當你需要插入字符“￥”時，只需按下快捷鍵“Ctrl＋Y”，或者是在工具欄點擊“Normal.NewMacrol.Yuan”便可以了。

　　二、宏的編輯

　　宏錄制器將以上宏操作翻譯為Visual Basic代碼。但是，錄制宏時會受到一些限制。許多復雜的宏，例如，要用到循環語句，便無法錄制。為了提高錄制的宏的功能，就可能需要修改錄制到模塊中的代碼。

　　具體操作為：單擊“工具”選單中“宏”子選單，再單擊“宏”命令。選擇第二步中的宏名稱，再單擊“編輯”按鈕。

　　然后便加載Visual Basic編輯器，我們可以看到所錄制的宏自動生成的Visual Basic代碼。

　　例如，在C:\My Document中有200個Word文檔，依次命名為“1.doc”，“2.doc”，“3.doc”，…“200.doc”，我們需要把文件格式改變為文本文件，即txt文件。

　　先以1.doc為例，錄制一個宏，打開文檔，另存為txt文件，再關閉該活動文檔。生成的Visual Basic代碼如下：

　　Sub Macro1()

　　 ChangeFileOpenDirectory ″C:\My document″

　　Documents.Open FileName:=″1.doc″

　　ActiveDocument.SaveAs FileName:=″1.txt″,FileFormat:=wdFormatText

　　ActiveWindow.Close

　　End Sub

　　下一步便進行編輯，用一個循環語句依次打開各個文件，轉化后再關閉。代碼如下：

　　Sub Macro1()

　　dim i

　　for i=1 to 200

　　 ChangeFileOpenDirectory ″C:\My document″

　　 Documents.Open FileName:=i ＆ ″.doc″

　　 ActiveDocument.SaveAs FileName:

　　 =i ＆ ″.txt″,

　　 FileFormat:=wdFormatText

　　 ActiveWindow.Close

　　next i

　　End Sub

　　再次運行該宏，便可以輕松完成任務。宏的作用由此可略見一斑