Description

Inserts the tags brackets and puts the I-beam within.

Syntax

Code

  <ShellCommand(CanExecute:="Ena_IsEditingText")> _

  Public Sub InsStartEndCmd()

    If Not Text.TestShowCmd Then

      If Text.WinToggleShowCmd(1) = EFAILED Then

      End If

    End If

    If Text.TestCursorInCmd Then

      If Len(Text.GetTxt) = 0 Then

        Text.CursorRight()

      Else

        Text.CursorWordRight()

      End If

    End If

    Text.InsStartEndCmd()

  End Sub

See also