diff options
-rw-r--r-- | wizards/source/template/Correspondence.xba | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/wizards/source/template/Correspondence.xba b/wizards/source/template/Correspondence.xba index 33a80f58867b..ca4de2b9d2f1 100644 --- a/wizards/source/template/Correspondence.xba +++ b/wizards/source/template/Correspondence.xba @@ -1,6 +1,6 @@ <?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="Correspondence" script:language="StarBasic">Option Explicit +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Correspondence" script:language="StarBasic">Option Explicit Public msgNoTextmark$, msgError$ Public sAddressbook$ @@ -17,7 +17,6 @@ Sub Main DialogModel.Optmerge.State = True LoadLanguageCorrespondence() TemplateDialog.Execute - TemplateDialog.Dispose End Sub @@ -65,6 +64,9 @@ Dim oFields as Object Dim oDocSettings as Object bDBFields = DialogModel.Optmerge.State 'database or placeholder + + TemplateDialog.EndExecute() + DialogExited = TRUE If bDBFields Then oDBAccess = GetRegistryKeyContent("org.openoffice.Office.DataAccess/AddressBook/") @@ -89,9 +91,6 @@ Dim oDocSettings as Object Table = oDBAccess.GetByName("Command") End If - TemplateDialog.EndExecute() - DialogExited = TRUE - ParaBreak = com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK oDocument = ThisComponent If bDBFields Then |