小男孩‘自慰网亚洲一区二区,亚洲一级在线播放毛片,亚洲中文字幕av每天更新,黄aⅴ永久免费无码,91成人午夜在线精品,色网站免费在线观看,亚洲欧洲wwwww在线观看

分享

Word宏應(yīng)用實(shí)例 -- Office學(xué)院

 songminxing 2011-03-20
一、宏的錄制

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

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

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

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

  4.運(yùn)行“插入”選單中的“符號(hào)”子選單,從彈出的“符號(hào)”框中選擇“¥”,插入后再關(guān)閉。另外,也可以指定到工具欄,從彈出的“自定義”對(duì)話(huà)框中的“命令”欄中把“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)螕?#8220;工具”選單中“宏”子選單,再單擊“宏”命令。選擇第二步中的宏名稱(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)一斑。

    本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間,所有內(nèi)容均由用戶(hù)發(fā)布,不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購(gòu)買(mǎi)等信息,謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請(qǐng)點(diǎn)擊一鍵舉報(bào)。
    轉(zhuǎn)藏 分享 獻(xiàn)花(0

    0條評(píng)論

    發(fā)表

    請(qǐng)遵守用戶(hù) 評(píng)論公約

    類(lèi)似文章 更多