一些快捷编辑特殊输入操作的域宏应用实例代码讲解

1、本文大部分代码来自于顾经宇其实你还没懂word及其网站或论坛，部分代码经过本人修改，对于方便应用word很有好处。具体应用，请查看原书（右键点击用 迅雷下载pdf版本。发布于此，一为保留自用，二为共享他人。标题中说是 域、宏应用实例代码”实际上，把一些域的操作也编制成了宏，所以, 以下全是宏代码。至于 word如何添加宏，不在本文叙述范围，请自行搜索网络。1. 打开文档时光标返回上次关闭时最后编辑处Sub AutoOpe n（'AutoOpen Macro宏名称一定要是 AutoOpen（大小写无所谓'宏在2008-4-16由* 创建Applicati on .GoBackEn

2、d Sub2. 无格式粘贴Sub无格式粘贴（I'无格式粘贴Macro'宏在2006-11-2由* 创建Select ion .PasteSpecial Lin k:=False, DataType:=wdPasteText, Placeme nt:= _wdInLine, DisplayAsIcon:=FalseEnd Sub3. 匹配目标格式粘贴Sub匹配目标格式粘贴（I'匹配目标格式粘贴Macro,这个宏的功能与上一个好像是一样的，虽然代码不同,都是匹配目标格式粘贴'宏在2006-11-3由* 创建Select ion .PasteA ndFormat (w

3、dFormatSurro undin gFormatti ngWithEmphasis EndSub4. 删除连续两个换行符Sub删除连续两个换行符(I'删除连续两个换行符Macro'宏在2006-11-2由* 创建ISelect ion.Fin d.ClearFormatt ingSelect ion.Fin d.Replaceme nt.ClearFormatt ing With Select ion.Find.Text = "AlAl".Replaceme nt.Text ="".Forward = True.Wrap = wdFi

4、 ndAsk.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSo un dsLike = False.MatchAllWordForms = FalseEnd WithSelect ion.Fin d.Execute Replace:=wdReplaceAll Selecti on.M oveDow nUnit:=wdLine, Count:=1 End Sub5. 合并连续两个段落标记为一个Sub替换连续两个段落标记为一个（'替换

5、连续两个段落标记为一个 Macro'宏在 2006-11-2 由 *创建Select ion.Fin d.ClearFormatt ingSelect ion.Fin d.Replaceme nt.ClearFormatt ing With Select ion.Find.Text = "ApAp".Replaceme nt.Text = "Ap".Forward = True.Wrap = wdFi ndAsk.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte =

6、 True.MatchWildcards = False.MatchSo un dsLike = False.MatchAllWordForms = FalseEnd WithSelect ion.Fin d.Execute Replace:=wdReplaceAll Selecti on.M oveDow nUnit:=wdLine, Count:=1 End Sub6. 替换换行符为段落标记Sub替换换行符为段落标记（Select ion.Fin d.ClearFormatt ingSelect ion.Fin d.Replaceme nt.ClearFormatt ing With Se

7、lect ion.Find.Text = "Al".Replaceme nt.Text = "Ap".Forward = True.Wrap = wdFi ndAsk.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSo un dsLike = False.MatchAllWordForms = FalseEnd WithSelect ion.Fin d.Execute Replace:=wdRepla

8、ceAll Selecti on.M oveDow nUnit:=wdLine, Count:=1 End Sub7. 段前空半行Sub段前空半行（'段前空半行Macro'宏在2006-11-3由* 创建IWith Selecti on .ParagraphFormat.Lin eU ni tBefore = 0.5End WithEnd Sub8. 段前空一行Sub段前空一行（I'段前空一行Macro'宏在2006-11-3由* 创建IWith Selecti on .ParagraphFormat丄 i neUni tBefore = 1End WithEn

9、d Sub9. 文献标号上标化Sub文献标号上标化（'参考文献上标化Macro'宏在2006-11-3由* 创建Select ion.H omeKey Un it:=wdStorySelect ion.Fin d.Replaceme nt.ClearFormatt ingWith Selectio n.Fi nd.Replaceme nt.F ont.Superscript = TrueEnd WithWith Selectio n.Fi nd.Text = "0-9,0-9,- ".Replaceme nt.Text ="".Match

10、wildcards = TrueEnd WithSelect ion.Fin d.Execute Replace:=wdReplaceAIISelect ion.Fin d.Replaceme nt.ClearFormatt ingWith Selectio n.Fi nd.Replaceme nt.F ont.Superscript = TrueEnd WithWith Selectio n.Fi nd.Text = "0-9,0-9,- ".Replaceme nt.Text ="".MatchWildcards = TrueEnd WithSele

11、ct ion.Fin d.Execute Replace:=wdReplaceAIIEnd Sub10. 箭头上方加文字Sub箭头上方加文字（'箭头上方加文字Macro'宏在2008-4-16由* 创建Selectio n. Fields.Add Ran ge:=Select ion .Ra nge, Type:=wdFieldEmpty, _ PreserveFormatt in g:=FalseSelect ion. TypeBackspaceSelectio n.Delete Un it:=wdCharacter, Coun t:=1Select ion. TypeTex

12、t Text:="eqdo2（ （敲击Delete键清除此段文字，改填所需文字,酌情增减箭头长度，最后同时按下shift和F9"Select ion.M oveLeft Un it:=wdCharacter, Coun t:=2Selection.MoveLeft Unit:=wdWord, Count:=25, Extend:=wdExtend ,顾经宇的代码是26,改成25更好End Sub11. 输入分式Sub分式（I'公式Macro'宏在2008-4-16由* 创建ISelectio n. Fields.Add Ran ge:=Select ion

13、.Ra nge, Type:=wdFieldEmpty, _PreserveFormatt in g:=FalseSelect ion. TypeBackspaceSelectio n.Delete Un it:=wdCharacter, Coun t:=1Selectio n. TypeText Text:="eq f（分子，分母"End Sub12. 输入平均值Sub平均值（'平均值Macro没有在顾经宇的书和网站中找到这个宏，是本人录制编辑的'宏在2008-4-17由* 创建Selectio n. Fields.Add Ran ge:=Select i

14、on .Ra nge, Type:=wdFieldEmpty, _PreserveFormatt in g:=FalseSelect ion. TypeBackspaceSelectio n.Delete Un it:=wdCharacter, Coun t:=1Select ion. TypeText Text:="eq o("Selectio n.Fon t.Italic = wdToggleSelect ion. TypeText Text:="x"Selectio n.Fon t.Italic = wdToggleSelectio n.TypeT

15、ext Text:二",sdo1("Selectio n.l nsertSymbol Fon t:=味体", CharacterNumber:=175, Uni code:=TrueSelect ion. TypeText Text:二""End Sub13. 插入无空格的域Sub插入域（,word的插入域命令,输入光标前后会有空格，有时候转换成域的结果时,后面的 空格也会显示，这个宏会先删除掉空格再让你编辑域代码'宏在2008-4-17由* 录制ISelectio n. Fields.Add Ran ge:=Select ion .R

16、a nge, Type:=wdFieldEmpty, _ PreserveFormatt in g:=False Selecti on. TypeBackspace Selecti on .DeleteUnit:=wdCharacter, Count:=1 End Sub 简单分害U线 -个宏为添加使用参考文献提供方便以下5个宏 为添加使用参考文献提供方便 添加参考文献格式一，14.添加参考文献格式一，参 考文献在文档末尾以1. 2. 3.格式排列Sub添加参考文献格式一(''添加参考文 献 Macro '宏在 2008-4-17 由 * 创建'Selectio

17、n.Style = ActiveDocument.Styles(” 尾注引用"Selection.TypeText Text:="" Selection.MoveLeft Unit:=wdCharacter,Coun t:=1 With ActiveDocume nt.E ndno tes .Start in gNumber = 1 .NumberStyle = wdNoteNumberStyleArabic End With ActiveDocume nt.E ndn otes.AddRan ge:=Select ion .Ra nge, Refere nee:

18、二""Selecti on.M oveLeft Uni t:=wdCharacter,Coun t:=1 Selecti on.M oveLeft Uni t:=wdCharacter, Coun t:=1, Exte nd:=wdExte nd Selection.Style = ActiveDocument.Styles('默认段落字体"Selection.MoveRightUni t:=wdCharacter, Coun t:=1 Selectio n.Delete Un it:=wdCharacter, Coun t:=1 Selection.Ty

19、peText Text:=". " End Sub添加参考文献格式二 参考文献在文档末尾 以1式二，格式排列，15.添加参考文献格式二，参考文献在文档末尾以1 2 3格式排列，修 改自格式一的代码Sub添加参考文献格式二(''添加参考文献 Macro '宏在 2008-4-17 由 * 创建'Selection.Style = ActiveDocument.Styles(尾注 引用"Selectio n.TypeText Text:="" Selectio n.MoveLeft Uni t:=wdCharacte

20、r, Cou nt:=1With ActiveDocume nt.E ndno tes .Starti ngNumber = 1 .NumberStyle = wdNoteNumberStyleArabic End WithActiveDocume nt.E ndno tes.Add Ran ge:=Selectio n.Ra nge, Refere nee:二""Selectio n.MoveLeft Un it:=wdCharacter, Cou nt:=1 Selectio n.MoveLeftUnit:=wdCharacter, Count:=1, Extend:=

21、wdExtend Selection.Style =ActiveDocument.Styles(”默认段落字体"Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.TypeText Text:="" Selectio n.MoveLeft Uni t:=wdCharacter + 2, Cou nt:=1 Selectio n.TypeText Text:="" End Sub 16.返回正文

22、Sub返回正文('返回正文Macro宏在2008-4-16由*创建'If ActiveWi ndow.ActivePa ne.View.Type = wdPageView Or ActiveWi ndow. _ActivePa ne.View.Type = wdOn li neView Or ActiveWi ndow.ActivePa ne.View.Type _ = wdPri ntPreview The n ActiveWi ndow.View.SeekView = wdSeekMa in Docume nt Else ActiveWi ndow.Pa nes(2.Close End If Selectio n.MoveRight Uni t:=wdCharacter, Cou nt:=2 End Sub 17.再次引用已有参考文献 Sub引用编号('引用编号Macro '宏在2008-4-16 由 * 创建'Selection.Font.Superscript = wdToggle Selection.TypeText Text:="" Selectio n.Move