国产2020最新精品视频,国产呦系列呦交,91天天在线综合播放,h片欧美日最新在线网站

<s id="mwkus"></s>

<output id="mwkus"><div id="mwkus"><ol id="mwkus"></ol></div></output>

<sup id="mwkus"><center id="mwkus"><label id="mwkus"></label></center></sup>

        <output id="mwkus"></output>
      1. VIP標(biāo)識 上網(wǎng)做生意,首選VIP會員| 設(shè)為首頁| 加入桌面| | 手機(jī)版| RSS訂閱
        食品伙伴網(wǎng)服務(wù)號
         
        當(dāng)前位置: 首頁 » 食品專題 » 辦公軟件-word使用技巧 » 正文

        Word宏應(yīng)用實例

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

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

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

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

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

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

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

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

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

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

          Sub Yuan()

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

          End Sub

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

          二、宏的編輯

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

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

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

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

          先以1.doc為例,錄制一個宏,打開文檔,另存為txt文件,再關(guān)閉該活動文檔。生成的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)行編輯,用一個循環(huán)語句依次打開各個文件,轉(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ù)。宏的作用由此可略見一斑
         

         

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