国产精品二区按摩片,亚州另类欧美综合一区,亚洲日韩国产一区二区,国产在线观看片免费人成视频

<dfn id="yldih"></dfn>
  • <ul id="yldih"><td id="yldih"></td></ul>

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

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

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

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

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

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

        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.選擇第二步中的宏名稱,再單擊“編輯”按鈕。

        這時(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)語句,便無法錄制。為了提高錄制的宏的功能,就可能需要修改錄制到模塊中的代碼。

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

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

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

        先以1.doc為例,錄制一個(gè)宏,打開文檔,另存為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)語句依次打開各個(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ù)。宏的作用由此可略見一斑
       

       

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