diff options
Diffstat (limited to 'wizards/source/tools/Misc.xba')
| -rw-r--r-- | wizards/source/tools/Misc.xba | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/wizards/source/tools/Misc.xba b/wizards/source/tools/Misc.xba index 460affd28e07..2bf17d32e984 100644 --- a/wizards/source/tools/Misc.xba +++ b/wizards/source/tools/Misc.xba @@ -235,8 +235,8 @@ End Function ' Gets the fully qualified path to a subdirectory of the ' Template Directory, e. g. with the parameter "wizard/bitmap" -' The parameter must be passed over in Url-scription -' The return-Value is in Urlscription +' The parameter must be passed in Url notation +' The return-Value is in Url notation Function GetOfficeSubPath(sOfficePath as String, ByVal sSubDir as String) Dim sOfficeString as String Dim sOfficeList() as String @@ -373,7 +373,7 @@ Dim oRange as Object End Sub -' Inserts a certain String to all cells of a Range that ist passed over +' Inserts a certain string to all cells of a range that is passed ' either as an object or as the RangeName Sub ChangeValueofRange(oSheet as Object, Range, ReplaceValue, Optional StyleName as String) Dim oCellRange as Object @@ -381,7 +381,7 @@ Dim oCellRange as Object ' Get the Range out of the Rangename oCellRange = oSheet.GetCellRangeByName(Range) Else - ' The range is passed over as an object + ' The range is passed as an object Set oCellRange = Range End If If IsMissing(StyleName) Then |