Word无格式粘贴及与周围格式相匹配粘贴

官方Selection.PasteAndFormat () 方法介绍-链接: WdRecoveryType参数.

a.无格式粘贴 宏

这一类适用于从各处复制过来的文本，粘贴时只想保留无格式文本。

Sub 无格式文本粘贴()
'
' 无格式文本粘贴 宏
'
'
  Selection.PasteAndFormat (wdFormatPlainText)
End Sub

b.格式与周围文本格式匹配粘贴 宏

无格式文本粘贴有一个缺陷，在进行表格覆盖的时候，格式会与原来的格式不匹配，此时通过与周围格式相匹配粘贴就很好解决了这个问题（下面的参数只对粘贴到单元格时有效，参见）。

Sub 格式与周围文本格式匹配粘贴()
'
' 格式与周围文本格式匹配粘贴 宏
'
'
  Selection.PasteAndFormat (wdFormatSurroundingFormattingWithEmphasis)

End Sub

设置宏为快捷键Ctrl+V替原来的粘贴键

详参考系统之家的：Word设置无格式文本粘贴快捷键的方法.

注：这里系统之家是设置Ctrl+ Shift+V为快捷键，我个人建议是删除原来的粘贴快捷键，把宏的快捷键设置成Ctrl+V.