Description

Executes the search / replace in all article elements.

Available in Ted and Fred.

Syntax

object

Required. Object name. Returned by Ted.GetActiveArticle, or Fred.GetActiveArticle, e.g. dim objarticle = Ted.GetActiveArticle or dim objarticle = Fred.GetActiveArticle.

Return value

Id of the selected derived article, or 0, if canceled.

Example

The following Ted script opens the find dialog box and performs the search:

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

Public Sub ArtFindDlg()

  If Fred.HasActiveArticle Then

    Dim dlg As New FindReplaceDlg(TedApp.GetSearchDescPtr(), False, True)

    If dlg.ShowDialog() Then

       ActiveArticle.DoFindRepl(False, False)

    End If

  End If

End Sub

The following script open the find and replace dialog box and performs the find and replace:

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

Public Sub ArtFindReplaceDlg()

  If Fred.HasActiveArticle Then

    Dim dlg As New FindReplaceDlg(TedApp.GetSearchDescPtr(), True, True)

    If dlg.ShowDialog() Then

       ActiveArticle.DoFindRepl(False, True)

    End If

  End If

End Sub

Context

Article object