Access2Base - Remove useless trailing blank lines

Keep exactly 1 line feed at the end of each Basic module

26 files changed, 23 insertions, 9 deletions

diff --git a/wizards/source/access2base/Application.xba b/wizards/source/access2base/Application.xba
index 611bfde517d6..809082690226 100644
--- a/wizards/source/access2base/Application.xba
+++ b/wizards/source/access2base/Application.xba
@@ -1638,4 +1638,5 @@ Public Sub _RootInit(Optional ByVal pbForce As Boolean)
 	If IsEmpty(_A2B_) Or pbForce Then _A2B_ = New Root_
 	
 End Sub		'	_RootInit	V1.1.0
+
 </script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Collect.xba b/wizards/source/access2base/Collect.xba
index d0adbe0a52c4..8fb6e480aaac 100644
--- a/wizards/source/access2base/Collect.xba
+++ b/wizards/source/access2base/Collect.xba
@@ -423,4 +423,5 @@ Error_Function:
 	_PropertyGet = Nothing
 	GoTo Exit_Function
 End Function		&apos;	_PropertyGet
+
 </script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/CommandBar.xba b/wizards/source/access2base/CommandBar.xba
index ed7955d3cef1..b5cfae7a308a 100644
--- a/wizards/source/access2base/CommandBar.xba
+++ b/wizards/source/access2base/CommandBar.xba
@@ -380,4 +380,5 @@ Error_Function:
 	_PropertySet = False
 	GoTo Exit_Function
 End Function			&apos;	_PropertySet
+
 </script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/CommandBarControl.xba b/wizards/source/access2base/CommandBarControl.xba
index 286dc07daa6d..633934efcc2b 100644
--- a/wizards/source/access2base/CommandBarControl.xba
+++ b/wizards/source/access2base/CommandBarControl.xba
@@ -330,4 +330,5 @@ Error_Function:
 	_PropertySet = False
 	GoTo Exit_Function
 End Function			&apos;	_PropertySet
+
 </script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Compatible.xba b/wizards/source/access2base/Compatible.xba
index 45f3e2eacb9f..9215ee2b37ba 100644
--- a/wizards/source/access2base/Compatible.xba
+++ b/wizards/source/access2base/Compatible.xba
@@ -45,4 +45,5 @@ Exit_Sub:
 	Utils._ResetCalledSub(&quot;DebugPrint&quot;)
 	Exit Sub
 End Sub			&apos;	DebugPrint		V0.9.5
+
 </script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Control.xba b/wizards/source/access2base/Control.xba
index 0af21171fdcb..41a9fa43a26b 100644
--- a/wizards/source/access2base/Control.xba
+++ b/wizards/source/access2base/Control.xba
@@ -2488,4 +2488,5 @@ Error_Function:
 	_PropertySet = False
 	GoTo Exit_Function
 End Function			&apos;	_PropertySet	V1.1.0
+
 </script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/DataDef.xba b/wizards/source/access2base/DataDef.xba
index bba8e8517d0d..a4cb38a42ea1 100644
--- a/wizards/source/access2base/DataDef.xba
+++ b/wizards/source/access2base/DataDef.xba
@@ -577,4 +577,5 @@ Error_Function:
 	_PropertySet = False
 	GoTo Exit_Function
 End Function			&apos;	_PropertySet
+
 </script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Database.xba b/wizards/source/access2base/Database.xba
index e82b15d25b55..fad41abfbaa2 100644
--- a/wizards/source/access2base/Database.xba
+++ b/wizards/source/access2base/Database.xba
@@ -1860,4 +1860,5 @@ Const cstSingleQuote = &quot;&apos;&quot;
 	_ReplaceSquareBrackets = Trim(Join(vSubStrings, cstSingleQuote))
 	
 End Function	&apos;	ReplaceSquareBrackets		V1.1.0
+
 </script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Dialog.xba b/wizards/source/access2base/Dialog.xba
index 1d11e6ce8e1b..30cfe5317110 100644
--- a/wizards/source/access2base/Dialog.xba
+++ b/wizards/source/access2base/Dialog.xba
@@ -800,4 +800,5 @@ Error_Function:
 	_PropertySet = False
 	GoTo Exit_Function
 End Function		&apos;	_PropertySet
+
 </script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/DoCmd.xba b/wizards/source/access2base/DoCmd.xba
index b51629be9c3f..ad564b72afd9 100644
--- a/wizards/source/access2base/DoCmd.xba
+++ b/wizards/source/access2base/DoCmd.xba
@@ -2650,4 +2650,5 @@ Dim oShell As Object
 	oShell.execute(sCommand, &quot;&quot; , com.sun.star.system.SystemShellExecuteFlags.DEFAULTS)
 
 End Sub				&apos;	_ShellExecute			V0.8.5
+
 </script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Event.xba b/wizards/source/access2base/Event.xba
index 1e858d914284..f4b33117dc2b 100644
--- a/wizards/source/access2base/Event.xba
+++ b/wizards/source/access2base/Event.xba
@@ -493,4 +493,5 @@ Error_Function:
 	_PropertyGet = EMPTY
 	GoTo Exit_Function
 End Function		&apos;	_PropertyGet	V1.1.0
+
 </script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Field.xba b/wizards/source/access2base/Field.xba
index b52938641710..ddb3b2f6a95e 100644
--- a/wizards/source/access2base/Field.xba
+++ b/wizards/source/access2base/Field.xba
@@ -914,4 +914,5 @@ Error_Function:
 	TraceError(TRACEABORT, Err, _CalledSub, Erl)
 	GoTo Exit_Function
 End Function		&apos;	WriteAll
+
 </script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Form.xba b/wizards/source/access2base/Form.xba
index c0a4bd8b793a..c7029965bfc7 100644
--- a/wizards/source/access2base/Form.xba
+++ b/wizards/source/access2base/Form.xba
@@ -1112,4 +1112,5 @@ Error_Function:
 	_PropertySet = False
 	GoTo Exit_Function
 End Function		&apos;	_PropertySet
+
 </script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/L10N.xba b/wizards/source/access2base/L10N.xba
index 186424f61eb4..dd8db640c08c 100644
--- a/wizards/source/access2base/L10N.xba
+++ b/wizards/source/access2base/L10N.xba
@@ -536,5 +536,4 @@ Dim oLocale as Object
 	_GetLocale = oLocale.getByName(&quot;ooLocale&quot;)
 End Function	&apos;	GetLocale			V0.8.9
 
-
 </script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Methods.xba b/wizards/source/access2base/Methods.xba
index de7f8d382337..518ba635e672 100644
--- a/wizards/source/access2base/Methods.xba
+++ b/wizards/source/access2base/Methods.xba
@@ -294,4 +294,5 @@ Error_Function:
 	TraceError(TRACEABORT, Err,&quot;_OptionGroup&quot;, Erl)
 	GoTo Exit_Function
 End Function		&apos;	_OptionGroup	V1.1.0
+
 </script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Module.xba b/wizards/source/access2base/Module.xba
index 21d69fe8de8b..bbada620466a 100644
--- a/wizards/source/access2base/Module.xba
+++ b/wizards/source/access2base/Module.xba
@@ -226,8 +226,6 @@ Public Function Properties(ByVal Optional pvIndex As Variant) As Variant
 &apos;	Return
 &apos;		a Collection object if pvIndex absent
 &apos;		a Property object otherwise
-REM -----------------------------------------------------------------------------------------------------------------------
-
 
 Const cstThisSub = &quot;Module.Properties&quot;
 	Utils._SetCalledSub(cstThisSub)
@@ -368,8 +366,6 @@ End Function	&apos;	Find
 REM -----------------------------------------------------------------------------------------------------------------------
 Public Function getProperty(Optional ByVal pvProperty As Variant) As Variant
 &apos;	Return property value of psProperty property name
-REM -----------------------------------------------------------------------------------------------------------------------
-
 
 Const cstThisSub = &quot;Module.Properties&quot;
 
@@ -718,5 +714,4 @@ Error_Function:
 	GoTo Exit_Function
 End Function		&apos;	_PropertyGet
 
-
-</script:module>
+</script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/OptionGroup.xba b/wizards/source/access2base/OptionGroup.xba
index 7690607b6f1a..16d07a9fc80f 100644
--- a/wizards/source/access2base/OptionGroup.xba
+++ b/wizards/source/access2base/OptionGroup.xba
@@ -303,4 +303,5 @@ Error_Function:
 	_PropertySet = False
 	GoTo Exit_Function
 End Function		&apos;	_PropertySet
+
 </script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/PropertiesGet.xba b/wizards/source/access2base/PropertiesGet.xba
index 7522fe94439d..40506b7a93a7 100644
--- a/wizards/source/access2base/PropertiesGet.xba
+++ b/wizards/source/access2base/PropertiesGet.xba
@@ -1212,4 +1212,5 @@ Exit_Function:
 	Set _PropertiesList = vPropertiesList
 	Exit Function
 End Function		&apos;	PropertiesList		V0.9.0
+
 </script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/PropertiesSet.xba b/wizards/source/access2base/PropertiesSet.xba
index db72b5f3d710..92ed568c886e 100644
--- a/wizards/source/access2base/PropertiesSet.xba
+++ b/wizards/source/access2base/PropertiesSet.xba
@@ -590,4 +590,5 @@ Error_Function:
 	TraceError(TRACEABORT, Err, &quot;_setProperty&quot;, Erl)
 	GoTo Exit_Function
 End Function		&apos;	_setProperty	V0.9.1
+
 </script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Property.xba b/wizards/source/access2base/Property.xba
index 659c4215c85a..aaec357c4a0c 100644
--- a/wizards/source/access2base/Property.xba
+++ b/wizards/source/access2base/Property.xba
@@ -144,5 +144,4 @@ Error_Function:
 	GoTo Exit_Function
 End Function		&apos;	_PropertyGet
 
-
 </script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Recordset.xba b/wizards/source/access2base/Recordset.xba
index f04a5262f47a..4a51a8be0556 100644
--- a/wizards/source/access2base/Recordset.xba
+++ b/wizards/source/access2base/Recordset.xba
@@ -1261,4 +1261,5 @@ Error_Function:
 	_PropertySet = False
 	GoTo Exit_Function
 End Function		&apos;	_PropertySet
+
 </script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Root_.xba b/wizards/source/access2base/Root_.xba
index a95fe87ca1f3..776d1627520b 100644
--- a/wizards/source/access2base/Root_.xba
+++ b/wizards/source/access2base/Root_.xba
@@ -284,4 +284,5 @@ Trace_Error:
 	TraceError(TRACEABORT, ERRDBNOTCONNECTED, Utils._CalledSub(), 0, 1)
 	Goto Exit_Function
 End Function		&apos;	_CurrentDb
+
 </script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/SubForm.xba b/wizards/source/access2base/SubForm.xba
index f34d3de4035c..8045ed1559f7 100644
--- a/wizards/source/access2base/SubForm.xba
+++ b/wizards/source/access2base/SubForm.xba
@@ -745,4 +745,5 @@ Error_Function:
 	_PropertySet = False
 	GoTo Exit_Function
 End Function		&apos;	_PropertySet
+
 </script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/TempVar.xba b/wizards/source/access2base/TempVar.xba
index 2d7ed2b60a51..11c8dea71a99 100644
--- a/wizards/source/access2base/TempVar.xba
+++ b/wizards/source/access2base/TempVar.xba
@@ -188,4 +188,5 @@ Error_Function:
 	_PropertySet = False
 	GoTo Exit_Function
 End Function		&apos;	_PropertySet
+
 </script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/UtilProperty.xba b/wizards/source/access2base/UtilProperty.xba
index 55f3d9f2e5ef..482a399b0f22 100644
--- a/wizards/source/access2base/UtilProperty.xba
+++ b/wizards/source/access2base/UtilProperty.xba
@@ -326,4 +326,5 @@ Const cstEqualArray = &quot; = (&quot;, cstEqual = &quot; = &quot;
 	_StrToPropValues = vResult
 
 End Function
+
 </script:module>
\ No newline at end of file
diff --git a/wizards/source/access2base/Utils.xba b/wizards/source/access2base/Utils.xba
index 3a0c90e76331..22bd15769e36 100644
--- a/wizards/source/access2base/Utils.xba
+++ b/wizards/source/access2base/Utils.xba
@@ -1295,5 +1295,4 @@ Private Function _UTF8Encode(ByVal psChar As String) As String
 
 End Function	&apos;	_UTF8Encode V1.4.0
 
-
 </script:module>
\ No newline at end of file