Description

Returns true if the GNML tag strTag exists in current paragraph.

Usage:   bResult = HasTagInPara(">hld")

Syntax

strTagName

tag name with or without tag brackets. Add brackets for an exact match.

Code

Function HasTagInPara(ByVal strTag)

  ' Purpose:   Returns true if the GNML tag strTag exists in current paragraph

  ' Usage:   bResult = HasTagInPara(">hld")

  Dim iBuff As Short = 3

   Text.CursorSave(iBuff)

   SelectPara()

  Dim strParaText As String = Text.GetTxt

   Text.CursorRestore(iBuff)

   HasTagInPara = HasTagInString(strParaText, strTag)

End Function

See also

HasTagInString, HasTag, sysHasParaTags