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)

相关推荐

  • Word.Excel中选择性粘贴怎么用?Word.Excel选择性粘贴使用技巧

    复制粘贴在电脑操作中是常用的功能，然而在Word、Excel中不有一种粘贴是选择性粘贴，那么这2种粘贴有什么区别以及选择性粘贴怎么用呢。 一、粘贴与选择性粘贴的区别 普通的粘贴能够把复制的内容进行默认 ...

  • 巧用Word中的选择性粘贴保存文档格式

    不少朋友将网页中的内容复制后在Word中进行粘贴，发现粘贴后的内容与网页界面类似，甚至部分内容还会超出边界。其实，这时只想复制其中的内容、传统的Ctrl+V就不适合使用了，应该会用选择性粘贴。 如果想 ...

  • 怎样在word2007中默认设置粘贴无格式文本

    在编辑Word文档的时候,经常会粘贴各种各样的文本.这些文本和文档格式一致还好,可以直接"Ctrl+C".但是如果不一致?我们只能选择"粘贴"→"选择 ...

  • ppt2013中怎么复制粘贴无格式文本?

    PPT的功能强大,下面我们一起来看看如何粘贴无格式的文本. 1.打开Microsoft powerpoint 2003. 2.复制需要的文字. 3.执行"编辑"-"选择性 ...

  • wps文字：粘贴无格式文本

    wps文字:粘贴无格式文本 1.常规做法 01 复制我们需要复制的文字,一般为网络上的文字. 02 点击工具栏"开始",在"开始"列表中找到"粘贴&q ...

  • macOS如何复制粘贴无格式文本?

    macOS如何复制粘贴无格式文本?

    macOS如何复制粘贴无格式文本?文字工作者经常需要使用复制粘贴,这是在所难免的.文章撰写完成之后,再将文本复制粘贴到网站后台,进行最后的编辑发布.相信很多人都跟我有同样的写作习惯,但是这里会遇到一个 ...

  • vba判断WORD字体是否是粗体

    使用下面的代码，你就可以判断WORD内容是否使用了粗体的字形。 Dim doc As Document Dim objWD As Word.Application Set objWD = Create ...

  • wps怎样设置粘贴无格式文本

    我们在使用国产officewps中的word的时候,总会遇到一个问题就是复制粘贴的文本会带着原来的格式,这就导致我们在后面必须要通过字体调整格式或者是格式刷来调整,如果复制粘贴的内容比较杂,比较多,就 ...

  • vba判断word文字颜色是否为蓝色

    ①第一种代码 On Error GoTo ErrHandle Set myRange = ActiveDocument.Range(Selection.Start, ActiveDocument.Co ...