Use VBScripts to replace or delete special characters, tags and formatting. For special character codes, see the table on the bottom of this topic.

•To replace in text all tags such as >head 20<, >headline<, with the >body< tag, use the following script:

Text.FindReplace chr(1) & "head", chr(1)+"body"+chr(2), "G+S+W-U+B-P-T+A+"

•To add a start tab after each ¶ in text (except for the first paragraph), use the following script:

Text.FindReplace chr(6), chr(6)+chr(4), "G+S+W-U+B-P-T+A+"

•To replace three spaces with a tab, use the following script:

Text.FindReplace chr(32)+chr(32)+(chr32), chr(9), "G+S+B-P-T+A+"

• To delete from text all tags such as >head 20<, >headline<, use the following script:

Text.FindReplace chr(1) & "head", "", "G+S+W-U+B-P-T+A+"

•To delete from text all tags, use the following script:

Text.FindReplace chr(1), "", "G+S+W-U+B-P-T+A+"

•To replace in text all bolds with bold italics, use the following script:

Text.FindReplace chr(1) & "bd 1", chr(1) & "bd 1" & chr(2)+chr(1) & "it 1" & chr(2), "G+S+W-U+B-P-T+A+"

Text.FindReplace chr(1) & "bd 0", chr(1) & "bd 0" & chr(2) & chr(1) & "it 0" & chr(2), "G+S+W-U+B-P-T+A+"

•To replace in text all bold italics with italics, use the following script:

Text.FindReplace chr(1) & "bd 1" & chr(2) & chr(1) & "it 1" & chr(2), chr(1) & "it 1" & chr(2), "G+S+W-U+B-P-T+A+"

Text.FindReplace chr(1) & "bd 0" & chr(2) & chr(1) & "it 0" & chr(2), chr(1) & "it 0" & chr(2), "G+S+W-U+B-P-T+A+"

 

Notes

•The Const column contains the internal constants used in Text.InsSpecialChar command to create the special characters. The constants are defined in the add-ins.

•See also InsTedText Method when you need to insert characters by modifying text string, and GetTxt methodwhen you are putting a Ted4 text in a string.