diff options
author | RĂ¼diger Timm <rt@openoffice.org> | 2008-01-29 12:58:42 +0000 |
---|---|---|
committer | RĂ¼diger Timm <rt@openoffice.org> | 2008-01-29 12:58:42 +0000 |
commit | 7318c02c362d9ce6c4c6fbfeaeee2af86b9bf626 (patch) | |
tree | 93c0da42c41277a769bafbe680a6c2639df00767 | |
parent | INTEGRATION: CWS c16v002_SRC680 (1.45.114); FILE MERGED (diff) | |
download | core-7318c02c362d9ce6c4c6fbfeaeee2af86b9bf626.tar.gz core-7318c02c362d9ce6c4c6fbfeaeee2af86b9bf626.zip |
INTEGRATION: CWS c16v002_SRC680 (1.14.134); FILE MERGED
2007/12/03 14:42:54 bc 1.14.134.1: #b6633533# Replaced deprecated service call
-rw-r--r-- | wizards/source/tools/UCB.xba | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/wizards/source/tools/UCB.xba b/wizards/source/tools/UCB.xba index 436fd551b944..48f32e4d1752 100644 --- a/wizards/source/tools/UCB.xba +++ b/wizards/source/tools/UCB.xba @@ -40,7 +40,7 @@ Dim sFileArray(StartUbound,1) as String DirIndex = 0 sDirArray(iDirIndex) = AnchorDir iDirCount = 1 - oDocInfo = CreateUnoService("com.sun.star.document.DocumentProperties") + oDocInfo = CreateUnoService("com.sun.star.document.StandaloneDocumentInfo") oUcbObject = createUnoService("com.sun.star.ucb.SimpleFileAccess") If oUcbObject.Exists(AnchorDir) Then Do @@ -146,7 +146,7 @@ End Sub Function RetrieveDocTitle(oDocInfo as Object, sFileName as String) As String Dim sDocTitle as String On Local Error Goto NOFILE - oDocInfo.Read(sFileName) + oDocInfo.loadFromUrl(sFileName) sDocTitle = oDocInfo.Title NOFILE: If Err <> 0 Then @@ -165,7 +165,7 @@ End Function ' from the Header of the document Function GetRealFileContent(oDocInfo as Object, FileName as String) As String On Local Error Goto NOFILE - oDocInfo.Read(FileName) + oDocInfo.loadFromUrl(FileName) GetRealFileContent = oDocInfo.MIMEType NOFILE: If Err <> 0 Then |