Prompted entry text in inserted symbol

[k14348]

I would like to give value for prompted entry fields which is in inserted symbol.

Sub RevisionTb()
    
    Dim oDoc As DrawingDocument
    Set oDoc = ThisApplication.ActiveDocument
    
    Dim oSheets As Sheets
    Set oSheets = oDoc.Sheets
    
    Dim oSheet As Sheet
    Set oSheet = oSheets.Item(1)
    
    oSheet.Activate
    
    Dim oSketchedSymbols As SketchedSymbols
    Set oSketchedSymbols = oSheet.SketchedSymbols
    
    Dim oSketchedSymbol As SketchedSymbol
    Set oSketchedSymbol = oSketchedSymbols.Item(1)
    
    
    Dim oSketchDef As SketchedSymbolDefinition
    Set oSketchDef = oSketchedSymbol.Definition
    
    Dim oSketch As DrawingSketch
    Set oSketch = oSketchDef.Sketch
    
    Dim oTextBoxes As TextBoxes
    Set oTextBoxes = oSketch.TextBoxes
    
    Dim oTextBox As TextBox
    Set oTextBox = oTextBoxes.Item(1)
    
    Dim oText As String
    
    'Prompted entry text <Date>
    'Set Value for this Date = DateTime.Now
    '    'Prompted entry text <Drawn>
    'Set Value for this Drawn ="kk"
    'Repeat this process to all sheets
    
End Sub

[YuhanZhang]

Here is the sample VBA code:

Sub RevisionTb()

    

    Dim oDoc As DrawingDocument

    Set oDoc = ThisApplication.ActiveDocument

    

    Dim oSheets As Sheets

    Set oSheets = oDoc.Sheets

    

    Dim oSheet As Sheet

    Set oSheet = oSheets.Item(1)

    

    oSheet.Activate

    

    Dim oSketchedSymbols As SketchedSymbols

    Set oSketchedSymbols = oSheet.SketchedSymbols

    

    Dim oSketchedSymbol As SketchedSymbol

    Set oSketchedSymbol = oSketchedSymbols.Item(1)

    

    

    Dim oSketchDef As SketchedSymbolDefinition

    Set oSketchDef = oSketchedSymbol.Definition

    

    Dim oSketch As DrawingSketch

    Set oSketch = oSketchDef.Sketch

    

    Dim oTextBoxes As TextBoxes

    Set oTextBoxes = oSketch.TextBoxes

    

    Dim oTextBox As TextBox

    Set oTextBox = oTextBoxes.Item(1)

    

    Dim oDate As String

    oDate = Format(Date, "MM/dd/yyyy")

    

    For Each oTextBox In oTextBoxes

    If oTextBox.Text = "Date" Then

    Call oSketchedSymbol.SetPromptResultText(oTextBox, oDate)

    Exit For

    End If

    Next oTextBox

 

    'Prompted entry text <Date>

    'Set Value for this Date = DateTime.Now

    '    'Prompted entry text <Drawn>

    'Set Value for this Drawn ="mka"

    'Repeat this process to all sheets

    

End Sub