[求助]能否帮忙解释和修改代码，谢谢（已经有附件了）

gao2ming1

一下是一位兄台在画坐标时公开的“全组”代码，小弟修改了一下，把它独立出来成为“全部组合的”代码，现有两点疑问：１．我还是不大理解ｗｉｔｈ　ｅｎｄｗｉｔｈ的用法，能否解释一下

２．测试时，在文档中如果有同名（自己修改名称后再复制多个）的图形，这段代码会漏掉其中同名的一个或几个，所以要按多次才成功，能否修改一下，无论是否同名，都能一下组合成功。先在这里谢过。

Sub 全部组合()
On Error GoTo wu
    Dim AllShapes(), ShapeCount As Integer, n As Shape, y As Integer
    ShapeCount = ActiveDocument.Shapes.Count
    y = 0
    '定义一维上标可变数组,从0开始
    ReDim AllShapes(ShapeCount - BeforeShapes - 1)

    With ActiveDocument
        For Each n In .Shapes
            If n.Name Like "已有图形*" = False Then
                AllShapes(y) = n.Name
                y = y + 1
            End If
        Next n
If y = 1 Then
MsgBox "文档中只有一个图形,不可组合！", vbInformation, "敬告用户"
End If
    With .Shapes.Range(AllShapes).Group
            .ZOrder msoSendToBack
            .Select
            '
        End With
    End With
wu:
   Err = Err.Number
   If Err = 9 Then
   MsgBox "该文档中没有图形或文本框    " & Chr(13) & Chr(13) & "     不能完成全组！", vbInformation, "敬告用户"
   End If
 
End Sub

jyKa5OXV.rar (8.29 KB, 下载次数: 14)

2007-5-14 18:19 上传

点击文件名下载附件
[求助]能否帮忙解释和修改代码，谢谢

[此贴子已经被作者于2007-5-14 18:20:23编辑过]

守柔

QUOTE:

以下是引用gao2ming1在2007-5-13 19:59:11的发言：

一下是一位兄台在画坐标时公开的“全组”代码，小弟修改了一下，把它独立出来成为“全部组合的”代码，现有两点疑问：１．我还是不大理解ｗｉｔｈ　ｅｎｄｗｉｔｈ的用法，能否解释一下

敢问楼主是哪位兄台啊？

不是这个贴子吧？好眼熟的代码吗，尽管多年了，呵呵。

http://club.excelhome.net/dispbbs.asp?boardid=23&replyid=564477&id=73111&page=1&skin=0&Star=1

gao2ming1

原来就是守柔兄的，我大概两个地方看到过，还有一个是《试卷机器》，昨天极了，找不到，只以兄台含糊了，呵呵！能否帮忙解决第二个问题啊

http://club.excelhome.net/viewthread.php?tid=83776&replyID=&skin=0

gao2ming1

老大，能否帮帮忙啊

守柔

QUOTE:

以下是引用gao2ming1在2007-5-14 13:02:17的发言：

老大，能否帮帮忙啊

请直接上传你带有代码的测试文档。

gao2ming1

好的，谢了，附件传在原贴上

[此贴子已经被作者于2007-5-14 18:46:45编辑过]

gao2ming1

守老师，在线等候

守柔

我依然无法从楼主处获得全部的信息，可能断章取义了。不知楼主的这个宏，究竟想达到什么样的完整目的？

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2007-5-15 6:55:18
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0206^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Sub Example()
'全部组合文档中的图形
    Dim intCount As Integer, myShape As Shape
    intCount = ActiveDocument.Shapes.Count
    Select Case intCount
    Case 0
        MsgBox "文档中没有图形！", vbInformation, "敬告用户"
    Case 1
        MsgBox "文档中只有一个图形,不可组合！", vbInformation, "敬告用户"
    Case Else
        Set myShape = ActiveDocument.Content.ShapeRange.Group
        With myShape
            .ZOrder msoSendToBack
            .Select
            '此处加入你想要对组合图形设置的格式代码等
        End With
    End Select
End Sub
'----------------------

如果只是想要组合文档中的所有图形，除了上述代码外，还可以使用SELECTALL后组合，如果需要在文档中多次运行此宏，即对所有组合后再绘制的图形（相当于新图形）组合时，上述方法是有问题的，请楼主明确告诉我，你的要求。

gao2ming1

守老师：我是个高中物理老师，常常画图，所以有时想把一些图形组合，用word自带的组合功能不能一次性组合，所以想制作一个按钮点击一下就把整个文档里的所有图形一次性组合。

我用了这个代码，就是对同名图形（自己做好的图形部件，已经改名）不能一次组合。就像附件里的三个人物不能一次组合进去。

我学vab是看了《试卷王》的软件开始的，知道他有这些功能，但它是禁止察看宏的。所以自己下载了一些书开始摸索，但学的不系统，能否推荐学习方法？

万分感激

[此贴子已经被作者于2007-5-15 9:16:50编辑过]