diff options
| author | Oliver Bolte <obo@openoffice.org> | 2008-05-28 07:25:58 +0000 |
|---|---|---|
| committer | Oliver Bolte <obo@openoffice.org> | 2008-05-28 07:25:58 +0000 |
| commit | c7d1409b539c3f233a8a215b76bac148b31743f9 (patch) | |
| tree | cedcc63a1868fa17a2e1c21add21ffa2fb3a6311 /wizards/source/tools | |
| parent | f32eea667a1aba99b48fac9360fa2d46bd95437a (diff) | |
INTEGRATION: CWS extrasso9 (1.15.20); FILE MERGED
2008/05/05 12:52:40 va 1.15.20.1: #i78503# ReplaceString and ArrayOutOfString Functions in Tools/String module refinement.
Issue number:
Submitted by:
Reviewed by:
Diffstat (limited to 'wizards/source/tools')
| -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 48f32e4d1..436fd551b 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.StandaloneDocumentInfo") + oDocInfo = CreateUnoService("com.sun.star.document.DocumentProperties") 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.loadFromUrl(sFileName) + oDocInfo.Read(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.loadFromUrl(FileName) + oDocInfo.Read(FileName) GetRealFileContent = oDocInfo.MIMEType NOFILE: If Err <> 0 Then |