Here's some example code that I believe does what
you want. It's searching for a prompted entry named "<Part
Name>". You can easily change that. The code is also attached in
case there's a formatting problem with this post.
Public Sub SetSheetName()
Dim
oDrawDoc As DrawingDocument
Set oDrawDoc =
ThisApplication.ActiveDocument
Dim
oSheet As Sheet
Set oSheet =
oDrawDoc.ActiveSheet
' Get the
prompted text value from the title block.
' This is done
by first getting the text box in the title
' block
definition that defines the prompted text. Then
'
you can use this to get the value specified for this
'
particular title block instance.
Dim oTitleBlockDef As
TitleBlockDefinition
Set oTitleBlockDef =
oSheet.TitleBlock.Definition
Dim oTextBox As
TextBox
Dim bFound As Boolean
bFound
= False
For Each oTextBox In
oTitleBlockDef.Sketch.TextBoxes
If
GetPromptField(oTextBox.FormattedText) = "<Part Name>"
Then
bFound =
True
Exit
For
End If
Next
If bFound
Then
oSheet.Name =
oSheet.TitleBlock.GetResultText(oTextBox)
Else
MsgBox "Specified formatted
text was not found in the title block."
End If
End
Sub
' Get the text value of the prompted text. It
extracts this from the
' formatted text. If there's a failure then an
empty string is returned.
Private Function GetPromptField(ByVal FormattedText
As String) As String
On Error GoTo ErrorFound
' Verify that this is a prompt
field.
If Left$(FormattedText, 7) <> "<Prompt"
Then
GetPromptField =
""
Exit
Function
End If
' Get the text that is to the
right of the first ">" symbol
' and to the left of the
last "<" symbol.
GetPromptField = Right$(FormattedText,
Len(FormattedText) - InStr(FormattedText, ">"))
GetPromptField = Left$(GetPromptField, InStr(GetPromptField, "<") -
1)
' Replace any < or
> with < and > symbols.
GetPromptField =
Replace(GetPromptField, "<", "<")
GetPromptField
= Replace(GetPromptField, ">", ">")
Exit
Function
ErrorFound:
GetPromptField = ""
End
Function
