亚洲中文字幕页面|国产露脸精品国产沙发|日韩亚洲欧美精品综合拍摄|日产日韩亚洲欧美综合在线

  • <delect id="cctnl"></delect>
        <strike id="cctnl"></strike>
      1. VIP標(biāo)識(shí) 上網(wǎng)做生意,首選VIP會(huì)員| 設(shè)為首頁(yè)| 加入桌面| | 手機(jī)版| RSS訂閱
        食品伙伴網(wǎng)服務(wù)號(hào)
         

        Word宏應(yīng)用實(shí)例

        放大字體  縮小字體 發(fā)布日期:2006-06-10
        一、宏的錄制

          在這里舉一實(shí)例。例如,在Word 97中,要插入字符,則往往要到符號(hào)框中查找半天。對(duì)于一些常用的符號(hào),如“¥”,便可以使用宏來(lái)使工作簡(jiǎn)化。

          1.單擊“工具”選單中“宏”子選單,再單擊“錄制新宏”選項(xiàng)。

          2.給宏取名為“Yuan”,再單擊“鍵盤(pán)”。

          3.在彈出的對(duì)話框中指定快捷鍵,可指定為“Ctrl+Y”,再關(guān)閉該對(duì)話框回到“錄制宏”對(duì)話框。單擊“確定”按鈕啟動(dòng)記錄器。

          4.運(yùn)行“插入”選單中的“符號(hào)”子選單,從彈出的“符號(hào)”框中選擇“¥”,插入后再關(guān)閉。另外,也可以指定到工具欄,從彈出的“自定義”對(duì)話框中的“命令”欄中把“Normal.NewMacro1.Yuan”拖放到工具欄中。

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

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

          7.選擇第二步中的宏名稱(chēng),再單擊“編輯”按鈕。

          這時(shí)我們可以從中看到以下代碼:

          Sub Yuan()

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

          End Sub

          以后,當(dāng)你需要插入字符“¥”時(shí),只需按下快捷鍵“Ctrl+Y”,或者是在工具欄點(diǎn)擊“Normal.NewMacrol.Yuan”便可以了。

          二、宏的編輯

          宏錄制器將以上宏操作翻譯為Visual Basic代碼。但是,錄制宏時(shí)會(huì)受到一些限制。許多復(fù)雜的宏,例如,要用到循環(huán)語(yǔ)句,便無(wú)法錄制。為了提高錄制的宏的功能,就可能需要修改錄制到模塊中的代碼。

          具體操作為:?jiǎn)螕?ldquo;工具”選單中“宏”子選單,再單擊“宏”命令。選擇第二步中的宏名稱(chēng),再單擊“編輯”按鈕。

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

          例如,在C:\My Document中有200個(gè)Word文檔,依次命名為“1.doc”,“2.doc”,“3.doc”,…“200.doc”,我們需要把文件格式改變?yōu)槲谋疚募,即txt文件。

          先以1.doc為例,錄制一個(gè)宏,打開(kāi)文檔,另存為txt文件,再關(guān)閉該活動(dòng)文檔。生成的Visual Basic代碼如下:

          Sub Macro1()

           ChangeFileOpenDirectory ″C:\My document″

          Documents.Open FileName:=″1.doc″

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

          ActiveWindow.Close

          End Sub

          下一步便進(jìn)行編輯,用一個(gè)循環(huán)語(yǔ)句依次打開(kāi)各個(gè)文件,轉(zhuǎn)化后再關(guān)閉。代碼如下:

          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

          再次運(yùn)行該宏,便可以輕松完成任務(wù)。宏的作用由此可略見(jiàn)一斑
         

         

         
        推薦圖文
        推薦食品專(zhuān)題
        點(diǎn)擊排行
         
         
        Processed in 0.025 second(s), 18 queries, Memory 0.88 M