Description

Opens Web preview in the WYSIWYG zone, on specified publishing destination.

Typically assigned to a menu option, together with WYSIWYG Script.

Syntax

strDest

name of the publishing destination.

Code

  <ShellCommand(CanExecute:="Ena_IsEditingText", IsChecked:="Chk_IsWebPreview")> _

  Public Sub WebPreview(ByVal strDest)

    ' opens Web preview in the WYSIWYG zone, on specified strDest

    If strDest = "" Then Return

    If TxtDesigner.PreviewType = ITxtDesigner.ePreviewType.Just Then

      TxtDesigner.PreviewType = ITxtDesigner.ePreviewType.Web

      TxtDesigner.WebPreview.SelectPubDest(strDest)

    Else

      TxtDesigner.PreviewType = ITxtDesigner.ePreviewType.Just

    End If

  End Sub