' *** MODULE COMMENT *** Dim oDialog AS Object Dim document AS Object '======================================================= ' Main '------------------------------------------------------- ' Inserts a comment '======================================================= Sub Main If not IsHelpFile Then msgbox(strErr_NoHelpFile) Exit Sub End If document = StarDesktop.CurrentComponent BasicLibraries.LoadLibrary("HelpAuthoring") oDialog = LoadDialog("HelpAuthoring", "dlgComment") oDialogModel = oDialog.Model if not IsHelpFile Then msgbox(strErr_NoHelpFile) Exit Sub End If oTxtComment = oDialog.GetControl("txtComment") If oDialog.Execute() = 1 Then oSel = thiscomponent.getcurrentcontroller.getselection oCur = oSel(0).getText.createTextCursorByRange(oSel(0)) oCur.gotoStartOfParagraph(0) oCur.gotoEndOfParagraph(1) If oCur.GetString = "" Then SetParaStyle("hlp_aux_comment") End If If oTxtComment.Text <> "" Then InsertTag("COMMENT_","<COMMENT>") SetCharStyle("hlp_aux_comment") InsertTag("COMMENT",oTxtComment.Text) InsertTag("_COMMENT","</COMMENT>") End If End If oDialog.dispose End Sub ' *** MODULE COMMENT *** Dim oDialog AS Object Dim document AS Object '======================================================= ' Main '------------------------------------------------------- ' Inserts a comment '======================================================= Sub Main If not IsHelpFile Then msgbox(strErr_NoHelpFile) Exit Sub End If document = StarDesktop.CurrentComponent BasicLibraries.LoadLibrary("HelpAuthoring") oDialog = LoadDialog("HelpAuthoring", "dlgComment") oDialogModel = oDialog.Model if not IsHelpFile Then msgbox(strErr_NoHelpFile) Exit Sub End If oTxtComment = oDialog.GetControl("txtComment") If oDialog.Execute() = 1 Then oSel = thiscomponent.getcurrentcontroller.getselection oCur = oSel(0).getText.createTextCursorByRange(oSel(0)) oCur.gotoStartOfParagraph(0) oCur.gotoEndOfParagraph(1) If oCur.GetString = "" Then SetParaStyle("hlp_aux_comment") End If If oTxtComment.Text <> "" Then InsertTag("COMMENT_","<COMMENT>") SetCharStyle("hlp_aux_comment") InsertTag("COMMENT",oTxtComment.Text) InsertTag("_COMMENT","</COMMENT>") End If End If oDialog.dispose End Sub