Hi, check if this code can help you, change a word within the general note, do not delete the jumps, just replace it.
I hope it is useful for you. regards
oDoc = ThisDoc.Document
Dim TXT2Find As String
Dim NewTXT As String
'get user input
TXT2Find = InputBox("Enter Text To Find:", "iLogic", "XXX")
'look for blank value
If TXT2Find ="" Then
Return 'exit rule
Else
'Continue rule
End If
NewTXT = InputBox("Enter Text To Replace '"& TXT2Find _
& "' with.", "iLogic", "****")
For Each oSheet As Sheet In oDoc.Sheets
'look at gerenal notes
For Each oGeneralNote As GeneralNote In oSheet.DrawingNotes.GeneralNotes
On Error Resume Next
oGeneralNote.FormattedText = Replace( oGeneralNote.FormattedText , TXT2Find , NewTXT )
Next
Next
Please accept as solution and give likes if applicable.
I am attaching my Upwork profile for specific queries.
Sergio Daniel Suarez
Mechanical Designer
| Upwork Profile | LinkedIn