diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2002-10-22 15:21:37 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2002-10-22 15:21:37 +0000 |
| commit | b157414e34323d29a91af722a0bfb08176e113ea (patch) | |
| tree | 0e1f47df13259e04391defb8ba5b73164e7e6363 /wizards | |
| parent | bf0ee17cb05de49f2fe0aeeacceb38f8eabec352 (diff) | |
#104395# new filter for style templates added
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/webwizard/HtmlAutoPilotBasic.xba | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/wizards/source/webwizard/HtmlAutoPilotBasic.xba b/wizards/source/webwizard/HtmlAutoPilotBasic.xba index dac4e988cf6e..e3448bc54bfe 100644 --- a/wizards/source/webwizard/HtmlAutoPilotBasic.xba +++ b/wizards/source/webwizard/HtmlAutoPilotBasic.xba @@ -293,6 +293,7 @@ Dim a as Integer Dim LocMaxIndex as Integer Dim InfoNames() Dim DimCount as Integer +Dim sExtension as String oDocInfo = CreateUnoService("com.sun.star.document.DocumentProperties") FilterLen = Len(sFileFilter) bItemFound = False @@ -317,7 +318,8 @@ Dim DimCount as Integer a = 0 For i = 0 To LocMaxIndex FileName = DirContent(i) - If Instr(1,Filename, sFileFilter) Then + sExtension = Ucase(GetFileNameExtension(FileName)) + If Instr(1,Filename, sFileFilter) And sExtension = "STW" Then bItemFound = True Description = RetrieveDocTitle(oDocInfo, FileName) oDocInfo.Read(FileName) |