<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Comment" script:language="StarBasic">' *** 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 </script:module>