[求助]自动实现以无格式文本粘贴的一个宏

tuotuohe

看得网页中感兴趣的内容，我喜欢复制下来用word保存，这涉及到选择性粘贴的问题，一般希望用无文本格式来保存，正常情况下有如下几步操作：编辑||选择性粘贴|无文本格式。我想在工具栏上直接放置一个名为“复制网页”的按钮，每次复制了网页，在点击“复制网页”按钮，网页上的内容就一无文本格式复制到word中了。利用自己录制的宏制作按钮成功以后，达不到自己的要求，看到如下宏代码：

Sub 复制网页()

'

' 复制网页 Macro

' 宏在 2007-5-7 由 uuyy录制

'

    Selection.PasteAndFormat (wdPasteDefault)

End Sub

 

可以发现Selection.PasteAndFormat的参数为wdPasteDefault，望文生义进行判断，上述参数表示默认的格式粘贴，也就是与control+v的效果完全一样，所以无法达到我的要求，请问以文本格式粘贴的参数是什么？

LangQueS

不错！

chylhr

参数应为wdFormatPlainText

雨雪霏霏

QUOTE:

以下是引用tuotuohe在2007-5-7 23:36:07的发言：

看得网页中感兴趣的内容，我喜欢复制下来用word保存，这涉及到选择性粘贴的问题，一般希望用无文本格式来保存，…………

可以发现Selection.PasteAndFormat的参数为wdPasteDefault，望文生义进行判断，上述参数表示默认的格式粘贴，也就是与control+v的效果完全一样，所以无法达到我的要求，请问以文本格式粘贴的参数是什么？

以下是konggs版主的一个宏代码（见《选择性粘贴的快捷键——无格式文本的》7楼），请tuotuohe兄参考：

QUOTE:

Sub 选择性粘贴()
Selection.pasteandformat Type:=wdFormatPlainText '粘贴为无格式的纯文本文字
End Sub
‘把此代码放到VBA中，然后设置这个的快捷键即可。

以下是守柔版主的四个宏代码（见《如何将[选择性粘贴]中[无格式文本]填加到鼠标右键菜单中呢？》3楼）：

QUOTE:

请楼主参考以下代码：

Sub MyControl()
'直接将选择性粘贴命令加入右键
Dim NewButton As CommandBarButton
Set NewButton = Application.CommandBars("text").Controls.Add(msoControlButton, ID:=755)
End Sub
  

Sub ControlsAdd()
'为右键新增一个命令
Dim MyControl As CommandBarControl
Set MyControl = Application.CommandBars("text").Controls.Add(Type:=msoControlButton)
With MyControl
.FaceId = 1250
.OnAction = "MySub"
.Caption = "无格式文本"
End With
End Sub
  

Sub mysub()
'以无格式文本形式进行粘贴剪贴板上内容,并在插入点插入
Selection.Collapse Direction:=wdCollapseStart
Selection.Range.PasteSpecial DataType:=wdPasteText
End Sub
  

Sub resetcontrol()
'恢复原有设置
Application.CommandBars("text").Reset
End Sub
建议使用第一个宏。
第二个宏需和第三个宏配套
第四个宏为恢复原有右键（光标位于文本）的恢复。

对于处理网文，守柔版主写有极具实用价值的“粘贴文本并删除空行”代码（见《[分享]添加自定义命令按钮 》），请tuotuohe兄参考使用。

另外，在konggs版主的置顶帖《[整理贴]新手提问》里还有许多关于网文处理（如删除空行）方面的精彩链接，tuotuohe兄有兴趣的话不妨去看看。

[此贴子已经被作者于2007-5-8 10:38:50编辑过]

tuotuohe

感谢chylhr及时告知，使用wdFormatPlainText成功地实现了我的要求。

随即又有两个问题：

1 为什么直接录制的时候，获得的参数总是wdPasteDefault而不是wdFormatPlainText？

2  要获得文本格式粘贴的参数，chylhr告知为wdPasteDefault，这样的参数是如何获取的？

谢谢！

tuotuohe

感谢雨兄热情而详细的解答，我回复上面的帖子时没有刷新页面，所以没有看到雨兄的解答，现在发现很多问题，此论坛上早已经解决，而我没有搜索，不过是一种浪费注意力的重复。

再次表示感谢！

chylhr

QUOTE:

以下是引用tuotuohe在2007-5-8 10:34:45的发言：

感谢chylhr及时告知，使用wdFormatPlainText成功地实现了我的要求。

随即又有两个问题：

1 为什么直接录制的时候，获得的参数总是wdPasteDefault而不是wdFormatPlainText？

2  要获得文本格式粘贴的参数，chylhr告知为wdPasteDefault，这样的参数是如何获取的？

谢谢！

1、我想这是宏录制功能的缺陷，可以参看konggs版主的贴子http://club.excelhome.net/viewthread.php?tid=201128&px=0。

2、将光标定位至PasteAndFormat，点功能键F1即可。