tdf#106529: fix closing parentheses of bundled macros

Change-Id: I43b6d4f97cb3b1cd1426e6aa7e13550d94cb7c51
Signed-off-by: Mike Kaganski <mike.kaganski@collabora.com>
Reviewed-on: https://gerrit.libreoffice.org/35726Tested-by: Jenkins <ci@libreoffice.org>

wizards/source/depot/Currency.xba

@@ -89,7 +89,7 @@ Dim bIsDocCountry as Boolean
 	End If
 	sCurStockIDLabel = sMarket(Index,5)
 	sCurExtension = sMarket(Index,8)
-	iValueCol = Val(sMarket(Index,10)
+	iValueCol = Val(sMarket(Index,10))
 	If Instr(sCurExtension,";") <> 0 Then
 		' Take the german extension as the stock place is Frankfurt
 		sCurExtension = "407"
@@ -192,4 +192,4 @@ Function CheckFormatType(oStyle as Object)
 Dim oFormatofObject as Object
 	oFormatofObject = oDocFormats.getByKey(oStyle.NumberFormat)
   	CheckFormatType = INT(oFormatOfObject.Type) AND com.sun.star.util.NumberFormat.CURRENCY
-End Function</script:module>
+End Function</script:module>
\ No newline at end of file

wizards/source/depot/Internet.xba

@@ -223,7 +223,7 @@ Dim iCellValue as Long
 		If iCellValue > 0 Then
 			oCell.SetValue(oLinkSheet.GetCellByPosition(0,i).Value)
 		Else
-			oCell.SetValue(StringToDate(oLinkSheet.GetCellByPosition(0,i).String)
+			oCell.SetValue(StringToDate(oLinkSheet.GetCellByPosition(0,i).String))
 		End If
 		oCell = oSheet.GetCellbyPosition(SBVALUECOLUMN,iCurRow)
 		oCell.SetValue(oLinkSheet.GetCellByPosition(4,i).Value)
@@ -353,4 +353,4 @@ Dim bLeaveLoop as Boolean
 		oDateCell.Annotation.SetString(NoteText)
 	End If
 End Sub
-</script:module>
+</script:module>
\ No newline at end of file

wizards/source/formwizard/DBMeta.xba

@@ -305,8 +305,8 @@ Dim MaxQueryIndex as Integer
 Dim MaxIndex as Integer
 Dim i as Integer
 Dim a as Integer
-	MaxTableIndex = Ubound(TableNames()
-	MaxQueryIndex = Ubound(QueryNames()
+	MaxTableIndex = Ubound(TableNames())
+	MaxQueryIndex = Ubound(QueryNames())
 	MaxIndex = MaxTableIndex + MaxQueryIndex + 1
 	If MaxIndex > -1 Then
 		Dim LocCommandTypes(MaxIndex) as Integer
@@ -344,4 +344,4 @@ Function AssignFieldLength(FieldLength as Long) as Integer
 		AssignFieldLength() = FieldLength
 	End If
 End Function
-</script:module>
+</script:module>
\ No newline at end of file

wizards/source/formwizard/FormWizard.xba

@@ -151,11 +151,11 @@ Dim LocList() as String
 						DlgFormDB.GetControl("lstTables").SelectItem(sContent, True)
 					Else
 						If CommandType = com.sun.star.sdb.CommandType.QUERY Then
-							SelIndex = IndexInArray(sContent, QueryNames()
+							SelIndex = IndexInArray(sContent, QueryNames())
 							DlgFormDB.GetControl("lstTables").SelectItemPos(SelIndex, True)
 						ElseIf CommandType = com.sun.star.sdb.CommandType.TABLE Then
-							SelIndex = IndexInArray(sContent, TableNames()
-							DlgFormDB.GetControl("lstTables").SelectItemPos(Ubound(QueryNames()+1 + SelIndex, True)
+							SelIndex = IndexInArray(sContent, TableNames())
+							DlgFormDB.GetControl("lstTables").SelectItemPos(Ubound(QueryNames()+1 + SelIndex, True))
 						End If
 					End If
 					CurCommandType = CommandType

wizards/source/formwizard/Language.xba

@@ -64,7 +64,7 @@ Sub LoadLanguage ()
 	sMsgErrTitleSuggestedExist = GetResText(RID_COMMON + 10)
 	sMsgErrTitleAsTableExist = GetResText(RID_COMMON + 10)
 	sMsgErrTitleSyntaxError = GetResText(RID_COMMON + 11)
-	sMsgNoConnection = GetResText(RID_COMMON + 14
+	sMsgNoConnection = GetResText(RID_COMMON + 14)
 	sMsgProgressText = GetResText(RID_FORM + 2)
 	sMsgCreatedForm = GetResText(RID_FORM + 26)
 	sMsgErrNameToLong = GetResText (RID_FORM + 27)
@@ -129,12 +129,12 @@ Dim slblFields as String
 		.optAlign2.Label = GetResText(RID_FORM + 34)
 		.optAlign0.State = 1
 		
-                //FIXME: Remove this unused FNameAddOn through the file
+                REM//FIXME: Remove this unused FNameAddOn through the file
 		FNameAddOn = ""
 
 		IDArray = Array(36, 37, 40, 38, 39)
 		For i = 1 To 5
-			ButtonHelpText = GetResText(RID_FORM + IDArray(i-1)
+			ButtonHelpText = GetResText(RID_FORM + IDArray(i-1))
 			cmdButton = DlgFormDB.getControl("cmdArrange" & i)
 			cmdButton.Model.ImageURL = FormPath & "Arrange_" & i & FNameAddOn & ".gif"
 			cmdButton.Model.HelpText = ButtonHelpText
@@ -156,10 +156,10 @@ Dim slblFields as String
 '		.cmdArrange5.HelpText = GetResText(RID_FORM + 39)
 		sWriterFilterName = GetResText(RID_FORM + 70)
 	End With
-	DlgFormDB.GetControl("cmdMoveSelected").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 39)
-	DlgFormDB.GetControl("cmdRemoveSelected").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 40)
-	DlgFormDB.GetControl("cmdMoveAll").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 41)
-	DlgFormDB.GetControl("cmdRemoveAll").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 42)
+	DlgFormDB.GetControl("cmdMoveSelected").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 39))
+	DlgFormDB.GetControl("cmdRemoveSelected").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 40))
+	DlgFormDB.GetControl("cmdMoveAll").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 41))
+	DlgFormDB.GetControl("cmdRemoveAll").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 42))
 	DlgFormDB.getControl("lstFields").getPeer().setProperty("AccessibleName", DeleteStr(slblFields, "~"))
 	DlgFormDB.getControl("lstSelFields").getPeer().setProperty("AccessibleName", DeleteStr(slblSelFields, "~"))