diff options
| author | Tom Verbeek <tv@openoffice.org> | 2001-08-03 13:06:31 +0000 |
|---|---|---|
| committer | Tom Verbeek <tv@openoffice.org> | 2001-08-03 13:06:31 +0000 |
| commit | c2330e7088389d10c7d510832c493a2dc725e256 (patch) | |
| tree | f2c8b37edfe52b2a3e6d0f5f630e6a17b72a8dd8 | |
| parent | 5a0e0ebeb838f35ac40999c028d2483afc7b9946 (diff) | |
#87217# fixed from name of service
| -rw-r--r-- | wizards/source/template/Correspondence.xba | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/wizards/source/template/Correspondence.xba b/wizards/source/template/Correspondence.xba index 37b8c7fd4519..9c8a6eeca564 100644 --- a/wizards/source/template/Correspondence.xba +++ b/wizards/source/template/Correspondence.xba @@ -88,7 +88,7 @@ Dim oDocSettings as Object oDocument = StarDesktop.ActiveFrame.Controller.Model If bDBFields Then 'set the address db as current db at the document - oDocSettings = oDocument.createInstance("com.sun.star.document.DocumentSettings") + oDocSettings = oDocument.createInstance("com.sun.star.document.Settings") oDocSettings.CurrentDatabaseDataSource = sAddressbook oDocSettings.CurrentDatabaseCommand = Table oDocSettings.CurrentDatabaseCommandType = 0 @@ -233,4 +233,4 @@ Dim oFieldMaster as Object oBookText.InsertTextContent(oBookMarkCursor, oFieldMaster, True) End If End Sub -</script:module>
\ No newline at end of file +</script:module> |