[求助]如何复制不带格式的文本？

yourcells · 发表于 2006-5-29 15:21

word中复制文字总是带有格式的（字体、颜色等），粘贴到其他应用软件中非常不方便。能否给段简单的vba代码，在复制过程中把文字的格式去掉，让剪切板里面的文字变成无格式的纯文本？我录制过一段宏，但是不起作用，希望高手能给段代码解决这个问题。谢谢。

konggs · 发表于 2006-5-29 16:10

去掉格式的快捷键是CTRL+Q。

试试

yourcells · 发表于 2006-5-29 16:51

非常感谢您的建议。我试过了，ctrl+Q不行，去不掉格式。我用word xp。请再给点建议，谢谢。能给行去掉格式代码么？

[此贴子已经被作者于2006-5-29 16:53:15编辑过]

未来 · 发表于 2006-5-29 16:59

在WORD中，在点“编辑/选择性粘贴”，在出现的对话框中选择你需要的格式。或者打开一个文本文件，粘贴为无格式的文本，再粘到你想要用的软件中。这可能有点麻烦，我只会这种。

konggs · 发表于 2006-5-29 17:10

好。

Sub 选择性贴()
Selection.Range.PasteSpecial DataType:=wdPasteText

End Sub

yourcells · 发表于 2006-5-29 17:21

多谢各位，已经搞定！

Sub CopyText()

Dim MyData As dataobject
Set MyData = New dataobject

MyData.SetText Selection
MyData.PutInClipboard

End Sub

aichong · 发表于 2006-5-30 00:55

		自动登录	找回密码
密码			免费注册