word中默认粘贴无格式文本

1、word中按ALT+F8,打开宏窗口。输入宏名称,创建,然后自动打开,在右边宏代码定义栏粘贴上以下代码
程序代码 程序代码

 Sub 贴上文本()
 Selection.PasteSpecial DataType:=wdPasteText
 End Sub

使用ALT+Q关闭宏定义框。

2、word》视图》工具栏》自定义》命令》左边列表中选“宏”》右边选择刚才命名的那个宏的名字,左键按住不放,拖到工具栏中形成一个按钮。

3、在网上复制资料,到word中先点刚才这个按钮,资料自动去除格式并粘贴到word中。

广告位 文章来自: 网络
引用通告: 查看所有引用 | 我要引用此文章
Tags:
评论: 1 | 引用: 0 | 查看次数: 1234
yelom[2008-12-16 08:43 PM | del]
同理,去除空行代码
引用内容 引用内容

Sub 去除空行()
    '删除空行,by不见不散,2006-1-15
    Dim p As Paragraph
    Dim r As Range
    Dim s As String
    Dim l As Long
    For Each p In ActiveDocument.Paragraphs
        Set r = p.Range
        s = CStr(r.Text)
        l = Asc(s)
        If (l = 13 or l = 11) Then r.Text = ""
    Next p
End Sub
发表评论
你没有权限发表留言!
广告