1些Word快捷编辑、特殊输入操作的域、宏应用实例代码.docVIP

本文大部分代码来自于顾经宇《其实你还没懂word》及其网站或论坛，部分代码经过本人修改，对于方便应用word很有好处。具体应用，请查看原书（ HYPERLINK thunder://QUFodHRwOi8vZWJvb2suMDAwODMuY29tL3VwbG9hZHNvZnQvxuTKtcTju7nDu7aud29yZC5yYXI/NjIyMjQ3NTk3ODB4MTIwODM1NjE3Nng2MjIyOTc0NTg1Ni1hYWI4MDM0NTU4MDZhM2QwYmI2NjFlMmI1NGRjODQ4Zlpa \t _blank 右键点击用迅雷下载pdf版本）。发布于此，一为保留自用，二为共享他人。标题中说是“域、宏应用实例代码”，实际上，把一些域的操作也编制成了宏，所以，以下全是宏代码。至于word如何添加宏，不在本文叙述范围，请自行搜索网络。1. 打开文档时光标返回上次关闭时最后编辑处Sub AutoOpen() AutoOpen Macro宏名称一定要是AutoOpen（大小写无所谓） 宏在 2008-4-16 由 ***** 创建Application.GoBackEnd Sub2. 无格式粘贴Sub 无格式粘贴() 无格式粘贴 Macro 宏在 2006-11-2 由 ***** 创建??Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _??????? wdInLine, DisplayAsIcon:=FalseEnd Sub3. 匹配目标格式粘贴Sub 匹配目标格式粘贴() 匹配目标格式粘贴 Macro，这个宏的功能与上一个好像是一样的，虽然代码不同，都是匹配目标格式粘贴 宏在 2006-11-3 由 ***** 创建Selection.PasteAndFormat (wdFormatSurroundingFormattingWithEmphasis)End Sub4. 删除连续两个换行符Sub 删除连续两个换行符() 删除连续两个换行符 Macro 宏在 2006-11-2 由 ***** 创建Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find??? .Text = ^l^l??? .Replacement.Text = ??? .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:=wdLine, Count:=1End Sub5. 合并连续两个段???标记为一个Sub 替换连续两个段落标记为一个() 替换连续两个段落标记为一个 Macro 宏在 2006-11-2 由 ***** 创建Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find??? .Text = ^p^p??? .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:=wdLine, Count:=1End Sub6. 替换换行符为段落标记Sub 替换换行符为