Fixes tdf#104412 - DirectoryNameoutofPath no longer works

In the macro tools library the subroutine GetFileNameWithoutExtension
has a missing bracket in the last line. This confuses the following
subroutine DirectoryNameoutofPath causing it to fail.

This only came to light after the introduction of commit

"tdf#80731 Closing parenthesis is now detected (Mid statement and functions)."

which tightened up on syntax validation.

This commit adds in the missing bracket to subroutine
GetFileNameWithoutExtension in the macro tools library.

Change-Id: I015c88a29a933cd42b7a7623a9ae70d090739c54
Reviewed-on: https://gerrit.libreoffice.org/31677Reviewed-by: Katarina Behrens <Katarina.Behrens@cib.de>
Tested-by: Katarina Behrens <Katarina.Behrens@cib.de>

wizards/source/tools/Strings.xba

@@ -345,7 +345,7 @@ Dim SepList() as String
 		FileName = FileNameoutofPath(FileName, Separator)
 	End If
 	SepList() = ArrayoutofString(FileName,".", MaxIndex)
-	GetFileNameWithoutExtension = RTrimStr(FileName, "." & SepList(MaxIndex)
+	GetFileNameWithoutExtension = RTrimStr(FileName, "." & SepList(MaxIndex))
 End Function