diff options
Diffstat (limited to 'wizards/source/importwizard/FilesModul.xba')
| -rw-r--r-- | wizards/source/importwizard/FilesModul.xba | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/wizards/source/importwizard/FilesModul.xba b/wizards/source/importwizard/FilesModul.xba index e7a09f3a4f63..cb999252b24c 100644 --- a/wizards/source/importwizard/FilesModul.xba +++ b/wizards/source/importwizard/FilesModul.xba @@ -41,7 +41,6 @@ Dim NewContentList() as String Dim XMLTemplateContentString as String Dim ApplIndex as Integer Dim bAssignFileName as Boolean - oDocInfo = CreateUnoService("com.sun.star.document.StandaloneDocumentInfo") bInterruptSearch = False For i = 0 To MaxCollectIndex SearchDir = PathCollection(i,0) @@ -71,7 +70,7 @@ Dim bAssignFileName as Boolean CurFileContent = "" CurFileName = NewList(n,0) If (FieldInList(NewList(n,1), XMLTemplateList())) Then - CurFileContent = GetRealFileContent(oDocInfo, CurFileName) + CurFileContent = GetRealFileContent(CurFileName) t = SearchArrayforPartString(CurFileContent, XMLTemplateContentList()) bAssignFileName = (t > -1) If bAssignFileName Then @@ -822,4 +821,4 @@ Function ConcatComment(sComment as String, AdditionalComment as String) End If ConcatComment = sComment End Function -</script:module>
\ No newline at end of file +</script:module> |