باسلام
احتراما فایل ضمیمه را بررسی نمایید. فایل پیوست شده حاوی دستور جهت شناسایی نام Shape هایی که در صفحه وجود دارند می باشد.
توجه : لطفا قبل از استفاده از فایل آن را Rename کرده و Doc. را از آخر آن حذف نمایید.
این هم دستوارت
کد:
Sub ShapeNames()
Dim sh As Shape
Dim strMsg As String
Dim txt As String
If Selection.ShapeRange.Count > 0 Then
Set sh = Selection.ShapeRange(1)
End If
For Each sh In ActiveDocument.Shapes
strMsg = " نام : " & sh.Name
If sh.TextFrame.HasText Then
txt = sh.TextFrame.TextRange.Text
If sh.LinkFormat Is Nothing Then
strMsg = strMsg
End If
MsgBox strMsg & vbLf & " و محتواي داخل آن " & vbLf & " " & txt
End If
Next sh
End Sub
با تشکر میر
علاقه مندی ها (Bookmarks)