Hi jntm226
JTB World的功能足以说明问题，您可以通过以不同的方式使用它们来履行职责。
无论如何，我可以为你做这件事，但不是今天和明天。也许我有机会在星期五或星期六这样做。
但是，我会给你两个指南和链接，我希望你能自己回答。
如果你失败了，我会为你写。
首先转到此链接 ：https://forums.autodesk.com/t5/inventor-customization/sheet-number-in-vba/td-p/2360887
并注意为Autodesk Inventor和相关帖子编写的以下功能（获取工作的想法和基础很有用）。
- 'The sheet number is appended to the sheet name in the browser. You can get this name using the Name property of the Sheet
- 'object and then extract the number from the name. Here's an example of a 'function that does this.
- Codes by :Brian Ekins
-
- Public Function GetSheetNumber(ByVal Sheet As Inventor.Sheet) As Integer
- Dim strSheetName As String
- strSheetName = Sheet.Name
-
- If InStr(strSheetName, ":") Then ' Extract the sheet number from the name.
- GetSheetNumber = CInt(Right$(strSheetName, Len(strSheetName) - InStrRev(strSheetName, ":")))
- Else
- GetSheetNumber = 0 ' This sheet is not numbered so return zero.
- End If
- End Function
第二次转到此链接：https://www.cadtutor.net/forum/topic/6051-sheetset-vba-index/
并关注“ML0940帖子No.144”及相关帖子。
成功并享受美好时光。 | 
置顶卡
