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
投稿猜你喜欢
- 小 同伴们在WPS表格的 实践 操纵 傍边， 常常会 碰到一些文本的 反复录入 事情，一个个的录入， 事情起来 服从 十分的低。 有无一种
- 我们在平时办公的时候经常需要用到稿纸，而wps为我们提供了多种稿纸的样式，那么，如何在wps中使用稿纸呢?下面就让小编告诉你如何在wps使用
4 月 14 日消息 Adobe 今天发布了 Premiere Rush 的重大更新，增加了对苹果 M1 芯片的全面支持，同时还有一系列小更- 以前我们在Word文档中尝试移动图像或者图表时常常会碰到各种莫名其妙的位置偏差问题，令人抓狂，在新版的Word2013中专门针对这个用户抱怨
- Windows10 消费者预览版怎么启用管理员账号权限？每次登陆的时候都要输入账号密码，如果账号密码比较长的话非常不方便，因此直接使用Adm
- windows系统自带防火墙功能，打开防火墙功能可以保护系统，阻止病毒和黑客的攻击，但有用户反映win7旗舰版32位打开防火墙提示“错误3:
- XP电脑突然没有声音了？看看是否提示了“没有活动混音器设备可用”，如果是这种情况，我们可以按照以下教程进行处理。之所有出现该问题，是因为Wi
- 我们在使用Win7电脑的时候，打开窗口显示在桌面上，却发现窗口里的内容显示不全，只能拖动着移动窗口才能完整阅读整个窗口的内容。这样的情况很影
- 在Excel中经常需要用到把录入的数据给导出，或许还有朋友不知道如何导出数据，如果有需要导出数据的朋友不妨一起来学习学习。下面是由小编分享的
- win7没有无线网络选项怎么办？最近很多小伙伴们都被win7没有无线网络选项的问题难住了！其实只要更改设备管理器设置然后bios设置即可，大
- Win7旗舰版系统性能稳定赢得了众多用户的青睐，但也不尽完美，难免有时会遇到一些问题，比如最近开启Win7系统时，出现了“pxe mof:
- 日常办公中，我们常常需要用到打印机打印文档，而在打印过程中也总是会遇到各种各样的问题，最近就有Win7用户反映，打印文档的时候出现“文档被挂
- 有不少网友下载安装win10系统的时候，相信国内的都是安装了win10中文简体版系统的，对于一些用惯了繁体字的网友来说会有一些使用不便。那么
- 如何保护自己的苹果Apple ID账号?Apple ID作为一个集全功能于一身的帐户，允许用户访问苹果的各种资源。因为一个Apple ID可
- 一般情况下，不建议用户使用管理员账户，当常用账户无法解决问题时，才进入管理员账户进行操作。Win10 9926预览版安装后，有用户发现，使用
- 格式是指字、词、段落、图形的特点，如：颜色、字体、字号、行距、动画效果等。格式刷就是刷这些东西。关键词：文字 段落 图形一、文字格式文字格式
- 我们知道U盘，除了可以用来拷贝文件之外，还能制作启动盘，安装系统，而U盘启动，因为每个品牌的笔记本都有它的U盘启动设置，那么惠普HP笔记本电
- widechar函数是将字符串文本由单字节转换为双字节。1、首先我们打开一个样表。2、插入widechar函数，函数的格式是=widecha
- 浪漫七夕，准备好跟喜欢的女孩表白了吗？说到表白，无非就是走心走心再走心，浪漫的表白方式才更能够打动女孩的心。甜蜜七夕爱她就给她最好的，七夕情
- win10 1909一直没收到安装更新，只是在Windows update页面提示：“2020 年 5 月 Windows 10 更新即将发
