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
该宏的整体效果是编辑文档的页眉，选择并剪切所有文本，然后切换到页脚 。进入页脚后，将粘贴页眉的文本，然后选择并剪切页脚的文本 。宏切换回页眉并粘贴页脚的文本 。然后宏关闭标题 。

猜你喜欢

• 快手现象级账号怎么打造？附注意事项
• 怎么使用Word 2007的词库和其他校对工具？
• 怎么在Word 2007中使用超级查找命令？
• 怎么修复Word 2016模板文件？
• Word 2013中段落缩进的基础操作！
• 怎么在Word 2016中检查拼写和修改语法设置？
• 怎么从“开始”按钮打开Word 2007？
• 怎么在Word 2016中编写消息弹出窗口宏？
• 怎么在Word 2016中创建自动图文集模块？
• 怎么在Word 2013中替换文本？