diff options
Diffstat (limited to 'wizards/source/gimmicks/GetTexts.xba')
| -rw-r--r-- | wizards/source/gimmicks/GetTexts.xba | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/wizards/source/gimmicks/GetTexts.xba b/wizards/source/gimmicks/GetTexts.xba index af3ac041cb1e..c98e7d51f580 100644 --- a/wizards/source/gimmicks/GetTexts.xba +++ b/wizards/source/gimmicks/GetTexts.xba @@ -50,10 +50,10 @@ Dim oCharStyles as Object oHyperCursor.gotoStart(False) oHyperCursor.HyperLinkURL = oDocument.URL oHyperCursor.HyperLinkTarget = oDocument.URL - If oDocument.DocumentInfo.Title <> "" Then - oHyperCursor.HyperlinkName = oDocument.DocumentInfo.Title + If oDocument.DocumentProperties.Title <> "" Then + oHyperCursor.HyperlinkName = oDocument.DocumentProperties.Title End If - oLogText.insertString(oHyperCursor, oDocument.DocumentInfo.Title, False) + oLogText.insertString(oHyperCursor, oDocument.DocumentProperties.Title, False) oLogText.insertControlCharacter(oHyperCursor,com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK,False) oLogCursor = oLogText.createTextCursor() @@ -64,8 +64,8 @@ Dim oCharStyles as Object oLogCursor.SetPropertyToDefault("HyperLinkName") LogIndex = 0 - ' Get the Properties of the document Info - GetDocumentInfo() + ' Get the Properties of the document + GetDocumentProps() Select Case sDocType Case "swriter" @@ -400,18 +400,18 @@ End Sub ' ***********************************************Misc************************************************** -Sub GetDocumentInfo() -Dim oDocuInfo as Object +Sub GetDocumentProps() +Dim oDocuProps as Object MakeLogHeadLine("Document Properties") - oDocuInfo = oDocument.DocumentInfo - WriteStringToLogFile(oDocuInfo.Title) - WriteStringToLogFile(oDocuInfo.Description) - WriteStringToLogFile(oDocuInfo.Theme) - WriteStringToLogFile(oDocuInfo.Author) - WriteStringToLogFile(oDocuInfo.ReplyTo) - WriteStringToLogFile(oDocuInfo.Recipient) - WriteStringToLogFile(oDocuInfo.References) - WriteStringToLogFile(oDocuInfo.Keywords) + oDocuProps = oDocument.DocumentProperties + WriteStringToLogFile(oDocuProps.Title) + WriteStringToLogFile(oDocuProps.Description) + WriteStringToLogFile(oDocuProps.Subject) + WriteStringToLogFile(oDocuProps.Author) +' WriteStringToLogFile(oDocuProps.UserDefinedProperties.ReplyTo) +' WriteStringToLogFile(oDocuProps.UserDefinedProperties.Recipient) +' WriteStringToLogFile(oDocuProps.UserDefinedProperties.References) +' WriteStringToLogFile(oDocuProps.Keywords) End Sub @@ -519,4 +519,4 @@ Sub MakeLogHeadLine(HeadText as String) oLogText.insertControlCharacter(oLogCursor,com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK,False) oLogCursor.CharStyleName = "Log Body" End Sub -</script:module>
\ No newline at end of file +</script:module> |