使用Word 2016中的文档（尤其是较长的文档）时，您将需要额外的便利性和宏功能，这些宏可以在周围交换文本单词，短语或元素。要创建宏，您可能需要使用Visual Basic for Applications（VBA）编程语言，该语言庞大，复杂且令人生畏。这意味着它具有巨大的潜力，但您不会在一个悠闲的下午坐下来学习。
这里有一些“交换”宏，可帮助您开始自定义Word体验。
Word 2016中的单词交换
这是一个方便的宏，您可能会一直使用。该Word_swap宏交换两个单词。它剪切第一个单词，然后将其粘贴在第二个单词之后：
Sub Word_swap()
‘
‘ Word_swap Macro
‘ Swap two Words, left-right
‘
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Cut
Selection.MoveRight Unit:=wdWord, Count:=1
Selection.Paste
End Sub
记录这些击键是为了创建此宏：
1.Ctrl + Shift + →选中光标右侧的单词。
2.Ctrl + X单词被剪切。
3.Ctrl + →光标移动到第二个单词之后。
4.Ctrl + V粘贴原始单词。
提示：Word宏无法记录鼠标单击。当您需要选择文本时，请使用光标键和Shift键，或使用F8（扩展选择）键。同样，为了使此宏起作用，插入指针必须位于第一个单词的开头。
和/或Word 2016中的单词交换
您可能会经常使用的另一个单词交换宏and_or_Word_swap宏。与常规的单词交换不同，此宏的目标是在连接的任一侧交换单词。例如，将此或该更改为该或此。
与Word_swap宏一样，该宏是从按键输入中记录的：
Sub and_or_Word_swap()
‘
‘ and_or_Word_swap Macro
‘ Swap two Words in a conjunction
‘
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Cut
Selection.MoveRight Unit:=wdWord, Count:=1
Selection.Paste
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Cut
Selection.MoveLeft Unit:=wdWord, Count:=2
Selection.Paste
End Sub
这是用于记录此宏的击键：
1.Ctrl + Shift + →
2.Ctrl + X第一个单词被剪切。
3.CTRL + →插入指针跳跃过的同时，和或或。
4.Ctrl + V将单词粘贴在连接词之后。
5.Ctrl + Shift + →
6.Ctrl + X选择并剪切连接词之后的单词（现在是在步骤4中粘贴的第一个单词之后）。
7.Ctrl + ← ，Ctrl + ←光标移回到连词之前。
8.Ctrl + V粘贴第二个单词。
这些键盘快捷键的最终效果是在and或or的一侧剪切一个单词，然后在另一侧粘贴该单词。然后第二个字剪切并粘贴之前和或或。
提示：为使此宏有效，插入指针必须在第一个单词的开头闪烁。
在Word 2016中交换句子
正如您可以连续交换两个单词一样，您也可以交换两个句子。该swap_sentences宏就是这样做的。并且，与其他文本操作宏一样，使用键盘（而不是鼠标）选择文本。
在下面的代码中，Selection.Extend命令表示按下键盘上的F8键。当您三次按该键时，将选择一个句子。
Sub swap_sentences()
‘
‘ swap_sentences Macro
‘ Swap two sentences
‘
Selection.Extend
Selection.Extend
Selection.Extend
Selection.Cut
Selection.Extend
Selection.Extend
Selection.Extend
Selection.EscapeKey
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.Paste
End Sub
以下是记录用来创建swap_sentences宏的击键：
1.F8，F8，F8选择当前句子。
2.Ctrl + XF8，F8，F8选择下一个句子。
3.Esc， →取消选择，并将插入指针放在下一个句子的开头。
4.Ctrl + V将第一个句子粘贴在第二个句子之后。
运行此宏时，请确保将插入指针设置在第一句中的某个位置。
在Word 2016中交换页眉和页脚文本
该swap_header_footer宏交换文档的标题文本和页脚文本。您可以手动完成此过程，但是问题是宏不能准确记录所有动作。因此，尽管可以记录基本的击键，但是必须返回Visual Basic编辑器以完成宏：
Sub swap_header_footer()
‘
‘ swap_header_footer Macro
‘ Exchange header/footer text
‘
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.WholeStory
Selection.Cut
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Selection.HomeKey Unit:=wdLine
Selection.Paste
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Cut
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.Paste
ActiveWindow.ActivePane.View.SeekView = wdSeekMaindocument
End Sub
该宏的整体效果是编辑文档的页眉，选择并剪切所有文本，然后切换到页脚。进入页脚后，将粘贴页眉的文本，然后选择并剪切页脚的文本。宏切换回页眉并粘贴页脚的文本。然后宏关闭标题。
图片声明：本站部分配图来自人工智能系统AI生成,觅知网授权图片,PxHere摄影无版权图库。本站只作为美观性配图使用,无任何非法侵犯第三方意图,一切解释权归图片著作权方,本站不承担任何责任。如有恶意碰瓷者,必当奉陪到底严惩不贷!
内容声明：本文中引用的各种信息及资料（包括但不限于文字、数据、图表及超链接等）均来源于该信息及资料的相关主体（包括但不限于公司、媒体、协会等机构）的官方网站或公开发表的信息。部分内容参考包括:(百度百科,百度知道,头条百科,中国民法典,刑法,牛津词典,新华词典,汉语词典,国家院校,科普平台)等数据,内容仅供参考使用,不准确地方联系删除处理！本站为非盈利性质站点,发布内容不收取任何费用也不接任何广告!
免责声明：我们致力于保护作者版权，注重分享，被刊用文章因无法核实真实出处，未能及时与作者取得联系，或有版权异议的，请联系管理员，我们会立即处理，本文部分文字与图片资源来自于网络，部分文章是来自自研大数据AI进行生成,内容摘自(百度百科,百度知道,头条百科,中国民法典,刑法,牛津词典,新华词典,汉语词典,国家院校,科普平台)等数据,内容仅供学习参考,不准确地方联系删除处理!的,若有来源标注错误或侵犯了您的合法权益，请立即通知我们，情况属实，我们会第一时间予以删除，并同时向您表示歉意,谢谢!
