05-24-2017
06:26 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
05-24-2017
06:26 AM
Hi,
Please try using following code:
SyntaxEditor Code Snippet
Dim oSheets As Sheets = ThisDrawing.Document.sheets Dim oSheet As Sheet Dim SheetNumber As String For Each oSheet In oSheets oSheet.activate oModel = IO.Path.GetFileName(ActiveSheet.View("ISO").ModelDocument.FullFileName) 'MessageBox.Show(oModel) oDoc = ThisDoc.Document MessageBox.Show (Mid(oDoc.ActiveSheet.Name, InStr(1, oDoc.ActiveSheet.Name, ":") + 1)) SheetNumber = Mid(oDoc.ActiveSheet.Name, InStr(1, oDoc.ActiveSheet.Name, ":") + 1) partnum = iProperties.Value(oModel, "Project", "Part Number")(Int(sheetnumber)) MessageBox.Show (partnum ) 'MessageBox.Show(partnum) ActiveSheet.Sheet.Name = SheetNumber + partnum Next

Jane Fan
Inventor QA Engineer