summaryrefslogtreecommitdiff
path: root/wizards/source/gimmicks/AutoText.xba
diff options
context:
space:
mode:
Diffstat (limited to 'wizards/source/gimmicks/AutoText.xba')
-rw-r--r--wizards/source/gimmicks/AutoText.xba4
1 files changed, 2 insertions, 2 deletions
diff --git a/wizards/source/gimmicks/AutoText.xba b/wizards/source/gimmicks/AutoText.xba
index 6950b830eb79..5d3cc18e5e13 100644
--- a/wizards/source/gimmicks/AutoText.xba
+++ b/wizards/source/gimmicks/AutoText.xba
@@ -25,7 +25,7 @@ Dim n, m, iAutoCount as Integer
' Open a new empty document
oDocument = CreateNewDocument("swriter")
If Not IsNull(oDocument) Then
- oDocument.DocumentInfo.Title = sDocumentTitle
+ oDocument.DocumentProperties.Title = sDocumentTitle
oDocuText = oDocument.Text
' Create The Character-templates
@@ -94,4 +94,4 @@ Dim oCellCursor as Object
oCellCursor.CharStyleName = sCellStyle
oCell.Text.insertString(oCellCursor,sCellString,False)
oDocument.CurrentController.Select(oCellCursor)
-End Sub</script:module> \ No newline at end of file
+End Sub</script:module>