konggs,在Word里如何知道文本框的编号？

xhjczx

konggs： 在Word里如何知道文本框的编号？（即有多个文本框时，它们的编号顺序）

konggs

我感得应该是根据先后顺序进行的编号。

此处的“先后”是指当初画这些文框时系统自动加的。

Sub 孤独一叶()
Dim atfm As Shape, a As Long
For Each atfm In ActiveDocument.Shapes
atfm.Select
Next
End Sub

测试一下：

Sub 孤独二叶()
Dim ash As Shape, a%
a = ActiveDocument.Shapes.Count
For Each ash In ActiveDocument.Shapes
If ash.Type = msoTextBox Then
ash.Select
End If
Next
MsgBox a
End Sub

xhjczx

那天你帮我编的： Sub fileprint() '对应文件菜单下的按钮，把1去掉 Dim a As String a = ActiveDocument.Shapes(4).TextFrame.TextRange.Text ActiveDocument.Shapes(4).TextFrame.TextRange.Text = "" Application.PrintOut Documents("信封.doc").Activate ActiveDocument.Shapes(4).TextFrame.TextRange.Text = a End Sub Sub FilePrintDefault() '对应工具栏上的铵钮，把1去掉 Dim a As String a = ActiveDocument.Shapes(4).TextFrame.TextRange.Text ActiveDocument.Shapes(4).TextFrame.TextRange.Text = "" Application.PrintOut Documents("信封.doc").Activate ActiveDocument.Shapes(4).TextFrame.TextRange.Text = a End Sub '放到thisdocument下。 “Shapes(4).”这个是如何得知的？

konggs

一个一个试的。

谁知道先后？我猜大家都不知道。

守柔

实际上WORD中图形的索引号是由系统自动生成的,每个图形在创建时都得到一个默认的名称。如果向文档中添加三个不同的图形，它们将得到如“矩形 2”、“文本框 3”和“椭圆 4”之类的名称。若要给图形起一个更有意义的名称，请设置其 Name 属性.

用 Shapes(index) 可返回单独的 Shape 对象，其中 index 为该对象的名称或索引序号,我们常用的是序号,但应该注意,图形的组合和取消组合\重新组合后,索引序号将会改变,但名称是固定的,除非使用NAME属性重新命名.

Sub GetShapeIndex()
Dim myShape As Shape, i As Integer
Set myShape = Selection.ShapeRange(1)
With ActiveDocument
For i = 1 To .Shapes.Count
If .Shapes(i).Name = myShape.Name Then
MsgBox "所选图形的索引号为:" & i
Exit For
End If
Next
End With
End Sub

konggs

谢谢老大，这个简单多了，以前我都是按F8一个一个看。