如何编写Word 2016宏以交换文本元素?
发布时间:2022-12-22 15:44:36
使用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
该宏的整体效果是编辑文档的页眉,选择并剪切所有文本,然后切换到页脚。进入页脚后,将粘贴页眉的文本,然后选择并剪切页脚的文本。宏切换回页眉并粘贴页脚的文本。然后宏关闭标题。


猜你喜欢
- 咱们在 操纵WPS 笔墨与Word 笔墨 停止 一样平常办公时, 常常 需求给 笔墨 增加 林林总总的图片来 帮助 咱们更好地 理解文章,但
- 有不少使用Win7笔记本电脑的朋友会遇到电脑休眠后唤醒起来就没有网络了,这是什么情况,应该怎么解决这个问题,让电脑不会因为休眠而导致断网,下
- 在安装和更新win101909版系统后,一些小型合作伙伴发现计算机在使用过程中运行效率不是很高,因此他们希望优化我们的计算机。所以对于这个问
- 鸿蒙系统正式版2.0已经发布了,其中华为有将近百种手机型号都支持升级为HarmonyOS2.0,很多使用华为手机的用户都想升级鸿蒙系统使用看
- 今天微软推送了2016年首个win10预览版10586.63,这次推送和预想的一样,是通过累计补丁推送了,想更新Windows10 TH2
- 首次连接网络时显示名称为“网络1”,断开后再次连接,显示为“网络2”,那么如何修改网络链接名称呢?虽然可以直接修改,但本文为大家介绍下通过修
- Microsoft已发布新的Mac版office Insider预览版(测试版)。最新的Insider Preview Build为Outl
- Win10系统电脑使用久了会经常遇到各种各样的问题,有不少用户发现win10开机显示拒绝访问,那么win10开机显示拒绝访问怎么解决?别着急
- 你可能用不到,但你不能不知道! 我是猿来如此,点击上方“关注”,每天为你分享玩机、办公小技巧,解密你不知道的事。Word在我们平时工作和学习
- 最近有用户在更新自己系统的时候,出现了win10更新一直安装失败无法更新的情况,这个情况该如何解决呢?这里小编为大家带来了详细解决方法介绍,
- Win10系统对命令提示符的改进还是蛮大的,支持Ctrl+C/V复制粘贴、自动换行等等,那么如何在Win10中修改命令提示符的不透明度呢?关
- win10如何卸载应用商店下载的应用?win10如何卸载应用商店下载的应用。我们知道在开始屏幕上显示的也是我们的应用图标。我们该如何卸载我们
- 很多用户在更新win10正式版之后,想要快速关机,但一直无法找到很好的方法,下面小编就为大家介绍Win10创建快速关机的快捷方式,用鼠标、键
- 8 月 3 日消息 苹果现已推出带有触控 ID 和数字小键盘的妙控键盘,适用于配备苹果芯片的 Mac,售价 1249 元。此前,用户只能通过
- win10手机技术预览版升级后,大家是否对键盘输入法语言切换按钮消失感到不适。今天脚本之家小编就为大家分享win10手机预览版怎么快速切换键
- 打印时,为了节约成本,我通常都会把一些小尺寸的表格设置成为右对齐且文字环绕方式。但是在排版的过程中发现表的右边框总是超出版心(正文边框)约2
- Win7系统adobe flash player因过期而遭到阻止是我们在使用谷歌浏览器时会遇到的问题,大既然有问题我们就要去解决,所以接下来
- 很多朋友不知道PPT放映的小技巧, 下面小编为大家分享下,大家可以学习下。1.快速放映无需点击菜单栏中“观看放映”选项,直接按F5 键,幻灯
- 如何创建Word文档的快捷方式?Word 2013使创建基本文档变得容易。您可以输入在启动时自动打开的空白文档,也可以选择提供的模板之一。这
- 如果要用函数返回工作表名称,可以用下面的公式:=MID(CELL("filename",$A$1),FIND("