diff options
| author | Katarina Behrens <Katarina.Behrens@cib.de> | 2017-02-28 16:31:49 +0100 |
|---|---|---|
| committer | Katarina Behrens <Katarina.Behrens@cib.de> | 2017-02-28 21:28:29 +0000 |
| commit | 6bb6ca1fb30f786385c2357e5435077066a49f82 (patch) | |
| tree | 07cd77b7fa92c96788622818d38471b630d7bde7 /wizards | |
| parent | 7f0b3e90ad8cc6c16e2004cc0739150352c8d7e6 (diff) | |
Related: tdf#80731 missing ')' breaks Gimmicks.Autotext macro
Change-Id: Idbfcab663b5f4dbd97b49f2771c62564ca7d7972
Reviewed-on: https://gerrit.libreoffice.org/34725
Tested-by: Jenkins <ci@libreoffice.org>
Reviewed-by: Katarina Behrens <Katarina.Behrens@cib.de>
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/gimmicks/ReadDir.xba | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/wizards/source/gimmicks/ReadDir.xba b/wizards/source/gimmicks/ReadDir.xba index 0287f4394d22..fdd725ba5a8c 100644 --- a/wizards/source/gimmicks/ReadDir.xba +++ b/wizards/source/gimmicks/ReadDir.xba @@ -263,7 +263,7 @@ Dim MaxFileIndex as Integer End If Next i End If - Loop Until m > Ubound(DirList() + Loop Until m > Ubound(DirList()) ReDim Preserve FileNameList(n-1,1) as String ReadSourceDirectory() = FileNameList() End Function @@ -319,4 +319,4 @@ Sub ToggleDialogControls(bDoEnable as Boolean) .Label2.Enabled = bDoEnable .TextField1.Enabled = bDoEnable End With -End Sub</script:module>
\ No newline at end of file +End Sub</script:module> |