1、Word宏應(yīng)用實(shí)例 一、宏的錄制 在這里舉一實(shí)例。例如，在Word 97中，要插入字符，則往往要到符號(hào)框中查找半天。對(duì)于一些常用的符號(hào)，如“￥”，便可以使用宏來(lái)使工作簡(jiǎn)化。 1.單擊“工具”選單中“宏”子選單，再單擊“錄制新宏”選項(xiàng)。 2.給宏取名為“Yuan”，再單擊“鍵盤(pán)”。 3.在彈出的對(duì)話框中指定快捷鍵，可指定為“CtrlY”，再關(guān)閉該對(duì)話框回到“錄制宏”對(duì)話框。單擊“確定”按鈕啟動(dòng)記錄器。 4.運(yùn)行“插入”選單中的“符號(hào)”子選單，從彈出的“符號(hào)”框中選擇“￥”，插入后再關(guān)閉。另外，也可以指定到工具欄，從彈出的“自定義”對(duì)話框中的“命令”欄中把“Normal.NewMacro1.Yua

2、n”拖放到工具欄中。 5.單擊“停止錄制”工具欄中的“停止錄制”按鈕。 6.單擊“工具”選單中“宏”子選單，再單擊“宏”命令。 7.選擇第二步中的宏名稱，再單擊“編輯”按鈕。 這時(shí)我們可以從中看到以下代碼： Sub Yuan() Selection.InsertSymbol Font:=楷體GB2312,CharacterNumber:=27,Unicode:=True End Sub 以后，當(dāng)你需要插入字符“￥”時(shí)，只需按下快捷鍵“CtrlY”，或者是在工具欄點(diǎn)擊“Normal.NewMacrol.Yuan”便可以了。 二、宏的編輯 宏錄制器將以上宏操作翻譯為Visual Basic代碼。但

3、是，錄制宏時(shí)會(huì)受到一些限制。許多復(fù)雜的宏，例如，要用到循環(huán)語(yǔ)句，便無(wú)法錄制。為了提高錄制的宏的功能，就可能需要修改錄制到模塊中的代碼。 具體操作為：?jiǎn)螕簟肮ぞ摺边x單中“宏”子選單，再單擊“宏”命令。選擇第二步中的宏名稱，再單擊“編輯”按鈕。 然后便加載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)

4、閉該活動(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

5、 document Documents.Open FileName:=i .doc ActiveDocument.SaveAs FileName: =i .txt, FileFormat:=wdFormatText ActiveWindow.Close next i End Sub 再次運(yùn)行該宏，便可以輕松完成任務(wù)。宏的作用由此可略見(jiàn)一斑您正在看的Word教程是:Word統(tǒng)計(jì)文字出現(xiàn)次數(shù) Word宏應(yīng)用實(shí)例。有的時(shí)候，我們要在一個(gè)文檔中查找某個(gè)文本出現(xiàn)的總次數(shù)，也就是查找該文本的總數(shù)量，例如在一份違紀(jì)登記表格中查找一個(gè)姓名被記載的總數(shù)，類(lèi)似的應(yīng)用還有很多。但Word沒(méi)有這樣的功能，我編寫(xiě)了一個(gè)

6、宏，使Word具有統(tǒng)計(jì)單個(gè)文本總數(shù)量的功能。下面介紹實(shí)現(xiàn)方法。 第二步 在彈出的VisualBasic編輯器的代碼窗口中完成以下內(nèi)容：Sub FindText()Text = InputBox(請(qǐng)輸入要查找的文本：, 提示)With ActiveDocument.Content.FindDo While .Execute(FindText:=Text) = Truetim = tim + 1LoopEnd WithMsgBox (當(dāng)前文檔查找到 + Str(tim) + 個(gè) + Text), 48, 完成End Sub第三步 錄入完畢后，單擊菜單文件關(guān)閉并返回到Micrcsoft后Word。第

7、四步 單擊菜單工具自定義，單擊“命令”選項(xiàng)卡，在“類(lèi)別”中選擇“宏”，將右邊的“Normal.NewMacros.FindText”命令拖入“編輯”菜單中，并右擊拖入的命令，在“命名”框中重命名為“查找文本數(shù)量”(如圖)。以后要統(tǒng)計(jì)文本數(shù)量時(shí)，只要單擊編輯查找文本數(shù)量，按提示輸入要查找的內(nèi)容，單擊確定就得到統(tǒng)計(jì)結(jié)果。宏應(yīng)用實(shí)例三：將大量的Word文檔.doc文件轉(zhuǎn)換為.htm文件2007-11-15 14:12【分析】我們知道，利用word可以將.doc文件轉(zhuǎn)換為.htm文件，方法是：在Doc文件編輯窗口中，選擇菜單“文件/另存為”，在“保存類(lèi)型”下列列表中選擇“html document”，

8、按“保存”。單獨(dú)進(jìn)行幾個(gè)doc文件的轉(zhuǎn)換還不算繁瑣，但要大批量地進(jìn)行轉(zhuǎn)換工作時(shí)，比如：按章節(jié)輸入了一本書(shū)，形成了幾十個(gè).doc文件，要對(duì)這些文件進(jìn)行轉(zhuǎn)換成.htm文件的工作，這時(shí)，就不能采用手工一個(gè)個(gè)處理的笨辦法了！怎么實(shí)現(xiàn)呢？請(qǐng)往下看。【實(shí)現(xiàn)步驟】假設(shè)大批量.doc文檔所在目錄為c:docs，文件名為1.1.doc，1.2.doc .1、 啟動(dòng)word2、 關(guān)閉當(dāng)前默認(rèn)打開(kāi)的空文檔3、 選擇菜單“工具/宏/錄制新宏”，輸入宏名稱“doctohtml”，按“確定”，進(jìn)入了宏錄制過(guò)程。4、 選擇菜單“文件/打開(kāi)”，選擇目錄c:docs，選擇文件1.1.doc，按“確定”。5、 選擇菜單“文件/另

9、存為”，在“保存類(lèi)型”下列列表中選擇“html document”， 按“保存”。6、 選擇菜單“文件/關(guān)閉”7、 選擇菜單“工具/宏/停止錄制”8、 選擇菜單“工具/宏/宏”9、 在出現(xiàn)的“宏”窗口左部選中doctohtml，單擊右邊的按鈕“編輯”10、宏代碼改造：在出現(xiàn)的“Microsoft Visual Basic”窗口中，可以看到如下的宏代碼：Sub doctohtml() doctohtml Macro 宏在 99-11-8 由 xxx 錄制 ChangeFileOpenDirectory C:docs Documents.Open FileName:=1.1.doc, Confir

10、mConversions:=False, ReadOnly:= _ False, AddToRecentFiles:=False, PasswordDocument:=, PasswordTemplate:= _ , Revert:=False, WritePasswordDocument:=, WritePasswordTemplate:=, _ Format:=wdOpenFormatAuto ActiveDocument.SaveAs FileName:=1.1.htm, FileFormat:=100, LockComments:= _ False, Password:=, AddTo

11、RecentFiles:=True, WritePassword:=, _ ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ False ActiveDocument.CloseEnd Sub對(duì)上面的代碼進(jìn)行改造，如下：Sub doctohtml(myfile as string) doctohtml Macro 宏在 99-11-8 由 xxx 錄制 ChangeFileOpenD

12、irectory C:docs If FileExists(gwfile + .doc) Then Documents.Open FileName:=myfile+.doc, ConfirmConversions:=False, ReadOnly:= _ False, AddToRecentFiles:=False, PasswordDocument:=, PasswordTemplate:= _ , Revert:=False, WritePasswordDocument:=, WritePasswordTemplate:=, _ Format:=wdOpenFormatAuto Activ

13、eDocument.SaveAs FileName:=myfile+.htm, FileFormat:=100, LockComments:= _ False, Password:=, AddToRecentFiles:=True, WritePassword:=, _ ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ False ActiveDocument.Close end i

14、f End Sub并加入下面兩個(gè)過(guò)程：判斷文件是否存在的函數(shù)Function FileExists(ByVal FileName As String) As Boolean On Error Resume Next FileExists = Dir$(FileName) If Err.Number 0 Then FileExists = False End If On Error GoTo 0End Function實(shí)際的轉(zhuǎn)換函數(shù)Sub mydoctohtml() If MsgBox(確認(rèn)執(zhí)行轉(zhuǎn)換doc到html文件嗎？, vbOKCancel + vbDefaultButton2) = _

15、vbCancel Then GoTo eeeddd Call doctohtml(conver) Call doctohtml(content) Call doctohtml(qianyan) Call doctohtml(fl) Call doctohtml(1.1) Call doctohtml(1.2) . Call doctohtml(1.10) . Call doctohtml(2.1) . Call doctohtml(3.1) . . Call doctohtml(9.1) . eeeddd:End Sub至此，全部代碼改造完畢！關(guān)閉“Microsoft Visual Basic

16、”窗口，回到Word窗口。11、選擇菜單“工具/宏/宏”，出現(xiàn)“宏”窗口，在左邊的宏列表中，可以看到“mydoctohtml”一項(xiàng)，選中它，按右邊的按鈕“運(yùn)行”，出現(xiàn)提示窗口“確認(rèn)執(zhí)行轉(zhuǎn)換doc到html文件嗎？”，選擇“確定”，批量轉(zhuǎn)換工作開(kāi)始了！【后記】上面應(yīng)用宏的例子，看起來(lái)雖然步驟很多，其實(shí)做起來(lái)卻非常簡(jiǎn)單，技術(shù)上關(guān)鍵在于2個(gè)環(huán)節(jié)：第一、根據(jù)某個(gè)任務(wù)錄制初始的宏；第二、對(duì)初始的宏代碼進(jìn)行改造，已滿足滿足特殊的需求Word宏命令巧妙應(yīng)用一例文章出處：/course/5_office/word/wordshl/23377.html由于工作和學(xué)習(xí)的需要，

17、筆者經(jīng)常在網(wǎng)上閱讀大量的信息，但由于網(wǎng)上的文字格式不一，所以筆者喜歡將它保存下來(lái)，并且用Word打開(kāi)，精心設(shè)置其字體與背景后再閱讀?？蛇@樣每次閱讀都需重新設(shè)置一番，挺麻煩的。不久前看到了Word里的宏命令，仔細(xì)研究后發(fā)現(xiàn)，它可以幫我的大忙呢。只需進(jìn)行如下設(shè)置，以后這樣的事情一個(gè)按鈕就可以搞定。1. 任意打開(kāi)一篇文擋，用鼠標(biāo)任選一段文字。2. 執(zhí)行“工具宏錄制新宏”命令，打開(kāi)如圖1所示對(duì)話框。3. 在“錄制宏”對(duì)話框的“宏名”文本框中輸入宏的名稱“讀前設(shè)置”，在“將宏保存在”下拉列表框中選擇“所有文檔（normal.dot）”，然后單擊工具欄按鈕，打開(kāi)圖2所示“自定義”對(duì)話框。4. 在“自定義”

18、對(duì)話框中選擇“命令”選項(xiàng)卡，在“命令”列表框中將顯示輸入的宏名。在該名稱上按下鼠標(biāo)左鍵將其拖到“常用”工具欄上，這樣工具欄上就多了一個(gè)讀前設(shè)置按鈕了。 圖1錄制新宏5. 單擊關(guān)閉進(jìn)入宏的錄制過(guò)程。此時(shí)，“停止”浮動(dòng)工具欄將出現(xiàn)在屏幕上，此工具欄上有兩個(gè)按鈕，左邊是停止，右邊是暫停（如圖3）。6. 執(zhí)行“格式字體”命令，在打開(kāi)的“字體”對(duì)話框中選擇“字體”選項(xiàng)卡，在對(duì)話框的“中文字體”下拉列表中選擇“宋體”，在“字形”下拉列表中選擇“常規(guī)”，在“字號(hào)”下拉列表中選擇“小四”，在“字體顏色”下拉列表中選擇“灰度-80%”，單擊確定。7. 執(zhí)行“格式背景其他顏色”命令，在打開(kāi)的“顏色”框中選擇一種很

19、淺的灰色，單擊確定。8. 單擊“停止”工具欄上的停止按鈕結(jié)束錄制。 圖2 “自定義”對(duì)話框 圖3“停止”工具欄這樣，以后只要在網(wǎng)上閱讀文字，在Word里打開(kāi)，先用“Ctrl+A”全選后，單擊“常用”工具欄上的宏按鈕讀前設(shè)置，就可以看到很舒服的文字效果了。文章出處：/course/5_office/word/wordshl/23377.html一些Word快捷編輯、特殊輸入操作的域、宏應(yīng)用實(shí)例代碼2008-04-26 08:50本文大部分代碼來(lái)自于顧經(jīng)宇其實(shí)你還沒(méi)懂word及其網(wǎng)站或論壇，部分代碼經(jīng)過(guò)本人修改，對(duì)于方便應(yīng)用word很有好處。具體應(yīng)用，請(qǐng)查看原

20、書(shū)（右鍵點(diǎn)擊用迅雷下載pdf版本）。發(fā)布于此，一為保留自用，二為共享他人。標(biāo)題中說(shuō)是“域、宏應(yīng)用實(shí)例代碼”，實(shí)際上，把一些域的操作也編制成了宏，所以，以下全是宏代碼。至于word如何添加宏，不在本文敘述范圍，請(qǐng)自行搜索網(wǎng)絡(luò)。1. 打開(kāi)文檔時(shí)光標(biāo)返回上次關(guān)閉時(shí)最后編輯處Sub AutoOpen() AutoOpen Macro宏名稱一定要是AutoOpen（大小寫(xiě)無(wú)所謂） 宏在 2008-4-16 由 * 創(chuàng)建Application.GoBackEnd Sub2. 無(wú)格式粘貼Sub 無(wú)格式粘貼() 無(wú)格式粘貼 Macro 宏在 2006-11-2 由 * 創(chuàng)建 Selection.PasteSp

21、ecial Link:=False, DataType:=wdPasteText, Placement:= _ wdInLine, DisplayAsIcon:=FalseEnd Sub3. 匹配目標(biāo)格式粘貼Sub 匹配目標(biāo)格式粘貼() 匹配目標(biāo)格式粘貼 Macro，這個(gè)宏的功能與上一個(gè)好像是一樣的，雖然代碼不同，都是匹配目標(biāo)格式粘貼 宏在 2006-11-3 由 * 創(chuàng)建Selection.PasteAndFormat (wdFormatSurroundingFormattingWithEmphasis)End Sub4. 刪除連續(xù)兩個(gè)換行符Sub 刪除連續(xù)兩個(gè)換行符() 刪除連續(xù)兩個(gè)換行符

22、 Macro 宏在 2006-11-2 由 * 創(chuàng)建Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find .Text = ll .Replacement.Text = .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike

23、 = False .MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllSelection.MoveDown Unit:=wdLine, Count:=1End Sub5. 合并連續(xù)兩個(gè)段落標(biāo)記為一個(gè)Sub 替換連續(xù)兩個(gè)段落標(biāo)記為一個(gè)() 替換連續(xù)兩個(gè)段落標(biāo)記為一個(gè) Macro 宏在 2006-11-2 由 * 創(chuàng)建Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Fin

24、d .Text = pp .Replacement.Text = p .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllSelection.MoveDown Unit:=wd

25、Line, Count:=1End Sub6. 替換換行符為段落標(biāo)記Sub 替換換行符為段落標(biāo)記()Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find .Text = l .Replacement.Text = p .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards

26、 = False .MatchSoundsLike = False .MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllSelection.MoveDown Unit:=wdLine, Count:=1End Sub7. 段前空半行Sub 段前空半行() 段前空半行 Macro 宏在 2006-11-3 由 * 創(chuàng)建With Selection.ParagraphFormat.LineUnitBefore = 0.5End WithEnd Sub8. 段前空一行Sub 段前空一行() 段前空

27、一行 Macro 宏在 2006-11-3 由 * 創(chuàng)建With Selection.ParagraphFormat.LineUnitBefore = 1End WithEnd Sub9. 文獻(xiàn)標(biāo)號(hào)上標(biāo)化Sub 文獻(xiàn)標(biāo)號(hào)上標(biāo)化() 參考文獻(xiàn)上標(biāo)化 Macro 宏在 2006-11-3 由 * 創(chuàng)建 Selection.HomeKey Unit:=wdStory Selection.Find.Replacement.ClearFormatting With Selection.Find.Replacement.Font .Superscript = True End With With Sele

28、ction.Find .Text = -，0-9,- .Replacement.Text = .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.Replacement.ClearFormatting With Selection.Find.Replacement.Font .Superscript = True End With With Selection.Find .Text = -，0-9,- .Replacement.Text = .MatchWildc

29、ards = True End With Selection.Find.Execute Replace:=wdReplaceAllEnd Sub10. 箭頭上方加文字Sub 箭頭上方加文字() 箭頭上方加文字 Macro 宏在 2008-4-16 由 * 創(chuàng)建 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeBackspace Selection.Delete Unit:=wdCharacter, Count:=1 Selecti

30、on.TypeText Text:=eq o(sdo2(),sup5(敲擊Delete鍵清除此段文字，改填所需文字，酌情增減箭頭長(zhǎng)度，最后同時(shí)按下shift和F9) Selection.MoveLeft Unit:=wdCharacter, Count:=2 Selection.MoveLeft Unit:=wdWord, Count:=25, Extend:=wdExtend 顧經(jīng)宇的代碼是26，改成25更好End Sub11. 輸入分式Sub 分式() 公式 Macro 宏在 2008-4-16 由 * 創(chuàng)建 Selection.Fields.Add Range:=Selection.Ra

31、nge, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeBackspace Selection.Delete Unit:=wdCharacter, Count:=1 Selection.TypeText Text:=eq f(分子,分母)End Sub12. 輸入平均值Sub 平均值() 平均值 Macro 沒(méi)有在顧經(jīng)宇的書(shū)和網(wǎng)站中找到這個(gè)宏，是本人錄制編輯的 宏在 2008-4-17 由 * 創(chuàng)建 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldE

32、mpty, _ PreserveFormatting:=False Selection.TypeBackspace Selection.Delete Unit:=wdCharacter, Count:=1 Selection.TypeText Text:=eq o( Selection.Font.Italic = wdToggle Selection.TypeText Text:=x Selection.Font.Italic = wdToggle Selection.TypeText Text:=,sdo1( Selection.InsertSymbol Font:=宋體, Characte

33、rNumber:=175, Unicode:=True Selection.TypeText Text:=)End Sub13. 插入無(wú)空格的域Sub插入域()word的插入域命令，輸入光標(biāo)前后會(huì)有空格，有時(shí)候轉(zhuǎn)換成域的結(jié)果時(shí)，后面的空格也會(huì)顯示，這個(gè)宏會(huì)先刪除掉空格再讓你編輯域代碼 宏在 2008-4-17 由 * 錄制 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeBackspace Selection.Delete Uni

34、t:=wdCharacter, Count:=1End Sub-簡(jiǎn)單分割線-以下5個(gè)宏為添加使用參考文獻(xiàn)提供方便14. 添加參考文獻(xiàn)格式一，參考文獻(xiàn)在文檔末尾以1 2 3 格式排列Sub 添加參考文獻(xiàn)格式一() 添加參考文獻(xiàn) Macro 宏在 2008-4-17 由 * 創(chuàng)建 Selection.Style = ActiveDocument.Styles(尾注引用) Selection.TypeText Text:= Selection.MoveLeft Unit:=wdCharacter, Count:=1 With ActiveDocument.Endnotes .StartingNumb

35、er = 1 .NumberStyle = wdNoteNumberStyleArabic End With ActiveDocument.Endnotes.Add Range:=Selection.Range, Reference:= Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.Style = ActiveDocument.Styles(默認(rèn)段落字體) Selection.MoveRight U

36、nit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.TypeText Text:= End Sub15. 添加參考文獻(xiàn)格式二，參考文獻(xiàn)在文檔末尾以1 2 3 格式排列，修改自格式一的代碼Sub 添加參考文獻(xiàn)格式二() 添加參考文獻(xiàn) Macro 宏在 2008-4-17 由 * 創(chuàng)建 Selection.Style = ActiveDocument.Styles(尾注引用) Selection.TypeText Text:= Selection.MoveLeft Unit:=wdCha

37、racter, Count:=1 With ActiveDocument.Endnotes .StartingNumber = 1 .NumberStyle = wdNoteNumberStyleArabic End With ActiveDocument.Endnotes.Add Range:=Selection.Range, Reference:= Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.

38、Style = ActiveDocument.Styles(默認(rèn)段落字體) Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.TypeText Text:= Selection.MoveLeft Unit:=wdCharacter + 2, Count:=1 Selection.TypeText Text:= End Sub16. 返回正文Sub 返回正文()返回正文 Macro宏在 2008-4-16 由 * 創(chuàng)建If ActiveWin

39、dow.ActivePane.View.Type = wdPageView Or ActiveWindow. _ ActivePane.View.Type = wdOnlineView Or ActiveWindow.ActivePane.View.Type _ = wdPrintPreview Then ActiveWindow.View.SeekView = wdSeekMainDocument Else ActiveWindow.Panes(2).Close End If Selection.MoveRight Unit:=wdCharacter, Count:=2End Sub17.

40、再次引用已有參考文獻(xiàn)Sub 引用編號(hào)()引用編號(hào) Macro宏在 2008-4-16 由 * 創(chuàng)建 Selection.Font.Superscript = wdToggle Selection.TypeText Text:= Selection.MoveLeft Unit:=wdCharacter, Count:=1 With Dialogs(wdDialogInsertCrossReference) .InsertAsHyperlink = True .Show End With Selection.MoveRight Unit:=wdCharacter, Count:=1 Selecti

41、on.Font.Superscript = wdToggleEnd Sub18. 查找被刪參考文獻(xiàn)遺留引用，Sub 查找被刪編號(hào)()要?jiǎng)h除某個(gè)參考文獻(xiàn)，應(yīng)該在原始引用處刪除引用，這樣可以一并刪除參考文獻(xiàn)，而不是在文檔末尾文獻(xiàn)列表處刪除 Selection.WholeStory Selection.Fields.Update Selection.Find.ClearFormatting With Selection.Find .Text = 錯(cuò)誤！未定義書(shū)簽。 End With Selection.Find.Execute Selection.MoveLeft Unit:=wdCharacter

42、, Count:=1 Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtendEnd Sub以上宏除第一個(gè)打開(kāi)word文檔自動(dòng)運(yùn)行之外，為了方便應(yīng)用，建議自己編輯設(shè)置工具按鈕，想用的時(shí)候點(diǎn)擊即可，不需要繁瑣的菜單、對(duì)話框?qū)ふ覄?dòng)作。我自己設(shè)置的按鈕如下圖，從左至右，分別對(duì)應(yīng)宏2-18。至于如何把宏設(shè)置成按鈕，請(qǐng)查看原書(shū)或搜索百度、google。附：Sub 合并所選多個(gè)段落為一段() 合并所選段落為一段，即刪除選擇范圍內(nèi)的所有段落標(biāo)記。一定要選中某幾個(gè)段落才可以使用，否則把從當(dāng)前光標(biāo)開(kāi)始的所有段落都合并為一段 Macro 宏

43、在 2008-4-19 由 * 錄制 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = p .Replacement.Text = .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .CorrectHangulEndings = False .MatchAllWordFo

44、rms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub妙用word實(shí)現(xiàn)“復(fù)印”功能2008-04-26 08:55一個(gè)同事愁眉苦臉地拿著一張表格來(lái)請(qǐng)我?guī)兔?，原?lái)這是一張省級(jí)先進(jìn)的呈報(bào)表，只有這么一份，必須一次填好，不允許涂改，沒(méi)有多余表格備用?？蛇@位老兄不知怎的，偏偏填錯(cuò)了，省先進(jìn)呀，千載難逢的好機(jī)會(huì)??！你說(shuō)他急不急！ 如果能在計(jì)算機(jī)上模擬一張全新的表格就好了，給Wo

45、rd添加一個(gè)1:1全真顯示的工具按鈕吧!說(shuō)做就做，取得了打印結(jié)果與屏幕顯示對(duì)應(yīng)關(guān)系的比例數(shù)據(jù)后，編寫(xiě)了一個(gè)宏命令。同事的苦惱隨之煙消云散，現(xiàn)將方法寫(xiě)出來(lái)，或許對(duì)大家有所幫助。 取得與打印完全一致的屏幕顯示比例 由于各人使用的顯示器尺寸不同及畫(huà)幅調(diào)整的習(xí)慣不同，因此在此無(wú)法給出一個(gè)具體的數(shù)據(jù)。請(qǐng)先將顯示器的畫(huà)幅調(diào)整妥當(dāng)，以能夠最大限度地顯示出完整的全屏幕窗口為準(zhǔn)。找到你要使用的紙型，用尺子量取紙的寬度，精確到毫米。因?yàn)闃?biāo)稱開(kāi)本的紙張，其實(shí)際大小并不一定與標(biāo)稱值相同。然后，打開(kāi)Word新建一空白文檔，并設(shè)置為“頁(yè)面”視圖，在文件頁(yè)面設(shè)置選定紙型，再將“紙型”選項(xiàng)卡中的紙張寬度設(shè)置為精確值。 再以這

46、張紙為依據(jù)，確定屏幕顯示比例。在視圖顯示比例輸入框中反復(fù)手工調(diào)整顯示比例，系統(tǒng)本身只提供幾種固定的比例，其實(shí)我們完全可以直接輸入任意一個(gè)整數(shù)。比如我的17英寸顯示器在設(shè)置為81%后，屏幕上的頁(yè)面大小與真實(shí)紙張完全一致，這個(gè)“81”就是下一步需要的數(shù)據(jù)。 編寫(xiě)宏命令 在Word的編輯界面按Alt+F8，打開(kāi)“宏”對(duì)話框，在“宏名”編輯框中輸入“全真1:1顯示”，然后單擊創(chuàng)建按鈕，打開(kāi)VisualBasic編輯器，在代碼編輯窗口輸入下列代碼： PublicSub全真1:1顯示() ActiveWindow.ActivePane.View Zoom.Percentage=81 EndSub 注意：Z

47、oom.Percentage的值應(yīng)靈活更改為與你的顯示器對(duì)應(yīng)的真實(shí)比例數(shù)字。 創(chuàng)建1:1全真顯示的工具欄按鈕 按Alt+V+T+C，調(diào)出工具欄“自定義”對(duì)話框，選擇“命令/宏”，右邊的列表框中會(huì)顯示出所有已經(jīng)存在的宏。找到剛才編輯的那個(gè)“全真1:1顯示”的宏，將它拖入Word主界面的工具欄中的任意位置，這時(shí)工具欄中會(huì)出現(xiàn)一個(gè)與宏名對(duì)應(yīng)的按鈕，右擊新按鈕，在彈出的快捷菜單的“命名”編輯框中更改按鈕名稱為“1:1”。按關(guān)閉按鈕退出設(shè)置。用宏批量定位word中圖片位置2008-04-26 08:46用宏批量定位word中圖片位置懸賞分：200 - 解決時(shí)間 2008-4-17 16:54我有一個(gè)wo

48、rd文檔，里面有多幅圖，但圖片的縮進(jìn)位置不統(tǒng)一，有些靠右，有些居中，有些靠左等等。能否通過(guò)編制宏一次完成調(diào)整，讓所有圖片靠左，或居中。我知道通過(guò)宏可以批量完成一個(gè)word中所有圖片大小的修改，在次與大家共享，也希望可以給大家參考。1、Alt+F8調(diào)出宏編輯窗口2、點(diǎn)創(chuàng)建按鈕，創(chuàng)建新宏，setpicsize,內(nèi)容如下：Sub setpicsize()設(shè)置圖片大小 宏在 2008-3-31 由 hero_thm 錄制Dim j 計(jì)數(shù)圖片個(gè)數(shù)For j = 1 To ActiveDocument.InlineShapes.Count 文件中圖片總個(gè)數(shù)，圖片類(lèi)型為inlineshapesActiveD

49、ocument.InlineShapes(j).Height = 362 設(shè)置高度ActiveDocument.InlineShapes(j).Width = 481.87 設(shè)置寬度Next jEnd Sub3、保存退出，點(diǎn)運(yùn)行setpicsize宏，word中所有的圖片統(tǒng)一調(diào)整為寬17cm，高12.77cm問(wèn)題補(bǔ)充：TO 2樓word 2003應(yīng)該可以支持的，我提供的宏批量處理圖片大小就可以實(shí)現(xiàn)To 3樓、5樓感謝兩位的回答試了兩位的方法，正常圖片沒(méi)有首行縮進(jìn)的都能夠?qū)崿F(xiàn)，但我的圖片都是有首行縮進(jìn)的，兩位的方法我都試了，都無(wú)法解決縮進(jìn)的問(wèn)題此外3樓的方法會(huì)在圖片周?chē)砑右粋€(gè)虛框，不知是否有辦

50、法去除5樓的我試著添加了 ActiveDocument.InlineShapes(i).FirstLineIndent = CentimetersToPoints(0)也是沒(méi)有效果因此麻煩2位看看能否解決首行縮進(jìn)的問(wèn)題詳細(xì)信息請(qǐng)看鏈接/thread-5425-1-1.html 提問(wèn)者：hero_thm最佳答案幫你稍微修改了一下，使所有嵌入式圖片居中。對(duì)于所有圖片，可以用ActiveDocument.Shapes.Count注意：這里的Shapes（InlineShapes）不僅僅是指圖片，也包含其它的，自選圖形、任意多邊形、OLE 對(duì)象、ActiveX 控

51、件、圖片等。Sub setpicsize()設(shè)置圖片大小 宏在 2008-3-31 由 hero_thm 錄制Dim j 計(jì)數(shù)圖片個(gè)數(shù)For j = 1 To ActiveDocument.InlineShapes.Count 文件中圖片總個(gè)數(shù)，圖片類(lèi)型為inlineshapesActiveDocument.InlineShapes(j).Select 選中圖片Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter 圖片居中；wdAlignParagraphLeft左對(duì)齊Next jEnd Sub上面，我補(bǔ)充的語(yǔ)句，其實(shí)也是錄制宏的方式，生成的。（先選中圖片，再點(diǎn)居中按鈕）另外