一、宏的錄制
在這里舉一實例。例如,在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
再次運行該宏,便可以輕松完成任務。宏的作用由此可略見一斑
在這里舉一實例。例如,在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
再次運行該宏,便可以輕松完成任務。宏的作用由此可略見一斑