VBA判断Word的选择性粘贴是否选择无格式文本
发布时间：2023-12-13 22:54:22
标签：VBA判断Word的选择性粘贴是否选择无格式文本
代码如下，如果想判断为其它格式的，请自行修改。
Option Explicit
Sub EditPasteSpecial()
'''当用户单击选择性粘贴命令时,Word自动调用本过程
Dim myDlg As Word.Dialog
Dim strDataType As String
Set myDlg = Word.Dialogs(wdDialogEditPasteSpecial) '''选择性粘贴对话框
If myDlg.Show = -1 Then
strDataType = UCase$(myDlg.DataType) '''获取数据类型
End If
Set myDlg = Nothing
If strDataType = "TEXT" Then '''无格式文本
MsgBox "无格式文本方式已被选中!", vbInformation, "Rousoft Office"
End If
End Sub
0
投稿猜你喜欢
微软表示，Office 2016的测试工作已经进行了数月，现在是时候向IT专业人员、商业合作伙伴和开发者展示最新的进展就在最新版Office- 本周早些时候，苹果已经给出预告称，将在北京时间6月23日凌晨1点，在线上举行WWDC 2020开发者大会，届时将发布iOS 14、iPadO
- 我们在使用Word2010编辑文档的时候，如果经常需要输入某些符号，则可以为这些符号设置键盘快捷键，这样的话可以帮助我们提高工作效率。本篇教
- 用自己的电脑来共享，还要输入网络凭据。这不就像要证明钱包里的钱是我的道理？让人觉得有点麻烦又不爽，这其实是可以解决的，毕竟是自己在用的电脑，
- 1、单击“插入”选项卡，在“插图”控件组中单击“SmartArt”，在“选择SmartArt图形”对话框中单击左侧的“层次结构”，在中间栏中
- 有win10系统用户在连接局域网络的时候，出现了无internet安全的提示，这让后续很多网络配置无法继续，尝试重装驱动也无法解决？那出现无
- 页眉和页脚是文档中每个页面的顶部、底部和两侧页边距中的区域。 可以在页眉和页脚中插入或更改文本或图形。例如，可以添
- 由于office2019更新了很多的新功能，所以在此分享office2019官方正式版安装激活教程。首先点击Office Tool Plus
- ①写好了论文，怎么自动生成目录呢?这是毕业生经常问的问题之一，下面，我在Word2007中演示，首先我随便输入一些标题，方便之后目录的生成。
- 这篇文章主要介绍了多方面分析office365和office2016有何区别的相关资料,需要的朋友可以参考下本文详细内容介绍office软件
- 在Word文档中，有时内容太多，不方便查看，为了能够使内容一目了然，我们可以使用折叠功能。不仅可以对文字进行折叠，而且还能折叠图片。要怎么操
- Office2016预览版怎么激活？对于已安装有Office2016办公软件的用户，需要手动激活此版本的软件，以使用Office2016的全
- 用户在办公的时候，通常会遇到在办公材料中输入一些事情的发展流程或者是操作流程的麻烦，而smartArt图形很好的解决了这一问题。操作步骤：1
- 操作步骤如果用户知道文档的某些更详细的资料(属性)，可以使用高级文件搜索，这样能精确地找到符合条件的文件。1、选择“文件”菜单的“搜索...
- 当我们还在为重装win10操作系统做准备的时候，有些小伙伴可能正在想雨林木风win10哪个版本最好下载操作系统。关于这个问题小编觉得首先这些
- 当我们使用win10操作系统电脑时，有些小伙伴可能在日常使用过程中会遇到系统出现蓝屏，并出现错误代码的情况。对这类问题小编觉得可能是由于系统
- 我们在制作或编辑表格的时候，可能偶尔会将表格排错。如果我们重新删除某行或某列，可能会浪费一些时间。不如尝试一下如何在Word文档中复制、剪切
- 情景一：在制作英语试卷的阅读理解时，最麻烦的就是在英语的文章中输入带下划线的数字了。常规的方法是用“格式刷“工具一个一个地复制格式，太繁琐了
- PDF文件中怎么提取一个页面做为单独文件？pdf文件一般都有很多页面，但是如果只需要其中一个小分支页面，该怎么单独提取出来作文一个独立的文件
- 设置系统还原点可以在我们win10电脑出现故障或者问题的时候，还原到我们需要的那个状态，保证系统的继续使用而不需要重新装。但是对于系统还原点
