[分享]添加自定义命令按钮

守柔

说明：

这是一个自动向模板添加右键菜单的范例。

范例意义：通过低宏打开的文档，自动向模板添加名为"Text"的工具栏的一个命令,此命令的作用在于以无格式文本方式粘贴来自于HTML格式的文本内容,并自动完成空行的删除,并复制.

主要用途:

网友们对于WORD帮助文件中的复制的内容,往往不加甄别直接粘贴于网页的回复贴子中,造成不必要的误会.如果你使用了本命令"粘贴文本并删除空行命令",则可以方便地解决此类问题.

操作方法:

选中并复制需要粘贴的内容,回到WORD页面中,右击,点选"粘贴文本并删除空行命令",则自动会在光标所在处以无格式文本形式粘贴,并自动删除其中的空白段落.如果你需要,无需再次复制,直接回到网页中,粘贴即可.

以下代码供网友参考:

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By I Love You_Word!@ExcelHome 2005-1-31 11:32:15
'仅测试于System: Windows NT Word: 10.0 Language: 2052
'^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Private Sub Document_Open()
    Application.OrganizerCopy Source:=Me.FullName, _
                              Destination:=NormalTemplate.FullName, Name:="AddText", _
                              Object:=wdOrganizerObjectProjectItems
End Sub
'----------------------

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By I Love You_Word!@ExcelHome 2005-1-31 11:32:31
'仅测试于System: Windows NT Word: 10.0 Language: 2052
'^The Code CopyIn [标准模块-AddText]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By 守柔(ShouRou)@ExcelHome 2005-1-31 6:13:59
'仅测试于System: Windows NT Word: 10.0 Language: 2052
'^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Sub AutoOpen()
    Dim MyBar As CommandBarControl
    On Error Resume Next
    Application.CommandBars("Text").Controls("粘贴文本并删除空行").Delete
    Set MyBar = Application.CommandBars("Text").Controls.Add(Before:=4)
    With MyBar
        .Caption = "粘贴文本并删除空行"
        .FaceId = 480
        .OnAction = "PasteAndDel"
    End With
End Sub
'----------------------

Sub PasteAndDel()
    Dim StartRange As Long, EndRange As Long, MyRange As Range, OldEnd As Long
    Dim i As Paragraph
        On Error Resume Next
    '判断剪贴板是否有内容
    If Application.CommandBars.FindControl(ID:=22).Enabled = False Then Exit Sub
    Application.ScreenUpdating = False
    '原文档结束点位置
    OldEnd = ActiveDocument.Content.End
    With Selection
        .Collapse Direction:=wdCollapseEnd    '折叠到选定位置的末端
        StartRange = .Start    '获得一个位置
        .Range.PasteSpecial DataType:=wdPasteText    '光标处选择性粘贴为文本格式
        '获得粘贴后文本的末位置
        EndRange = StartRange + ActiveDocument.Content.End - OldEnd
        ActiveDocument.Range(StartRange, EndRange).Select    '选定该段文本
        For Each i In .Paragraphs    '指定段落中循环
            If Len(i.Range) = 1 Then i.Range.Delete    '如果为空行则删除
        Next
        .Copy    '重新复制,以便调用
    End With
    Application.ScreenUpdating = True
End Sub
'----------------------
'----------------------
以下为截图图片:

gS4IPuEY.rar (12.12 KB, 下载次数: 227)

2005-1-31 18:49 上传

点击文件名下载附件
[分享]添加自定义命令按钮

[此贴子已经被konggs于2007-2-9 9:11:42编辑过]

cxffxc

收藏起来，抽时间研究研究

谢谢

七叶一枝梅

非常实用！

[em17][em17][em17][em17]

我过去使用的办法是录了一个“无格式粘贴”的宏，指定快捷键，复制粘贴后，再用守柔过去给的那个删空段的宏来删空段，就没有想过要把它集成到右键菜单中，好！

[em17][em17][em17][em17]

守柔

七兄，这段代码的意义远不止这些吧，一不小心，就可以****？

七叶一枝梅

以下是引用守柔在2005-1-31 16:02:00的发言： 七兄，这段代码的意义远不止这些吧，一不小心，就可以****？

确实确实，一不小心就…………不过解决起来应该快了，我已将我的想法发给总版主了。

huposhhy

运行时错误：‘5940’：不能复制方案项。

这是为什么？？？

huposhhy

在问一下，我如果想在文档打开时自动向模板添加右键菜单，而在文档关闭时删除Normal模板的右键菜单应该如何实现？

守柔

回六楼的问题,可能已经向模板添加了该模板,你可以看一下,如果已经添加则会出错,也就是说本文档只能打开一次,添加以后,再运行该文档,则会错误提示.如果不能添加,指代码不能正确运行,你可以手动运行一下,试试.

第二个问题,你可以查阅一下置顶贴子<守柔WORD编程代码集>,内有详细地关于自定义右键的代码操作过程.

konggs

老大与七兄在打哑谜啊？全都是****[em06][em06][em06]，什么意思啊？

我怎么看不懂。[em14]

十年磨一剑

以下是引用七叶一枝梅在2005-1-31 16:18:00的发言：

确实确实，一不小心就…………不过解决起来应该快了，我已将我的想法发给总版主了。

"一不小心就........"什么意思啊？望七侠明显！