diff options
Diffstat (limited to 'wizards/source')
| -rw-r--r-- | wizards/source/formwizard/Layouter.xba | 2 | ||||
| -rw-r--r-- | wizards/source/gimmicks/GetTexts.xba | 2 | ||||
| -rw-r--r-- | wizards/source/tools/Misc.xba | 8 | ||||
| -rw-r--r-- | wizards/source/tutorials/Functions.xba | 2 |
4 files changed, 7 insertions, 7 deletions
diff --git a/wizards/source/formwizard/Layouter.xba b/wizards/source/formwizard/Layouter.xba index 0b44a8668eba..24b209ad63e7 100644 --- a/wizards/source/formwizard/Layouter.xba +++ b/wizards/source/formwizard/Layouter.xba @@ -100,7 +100,7 @@ Public FieldMetaValues(MaxFieldIndex, 8) ' Description of this List: ' CurFieldType = FieldMetaValues(Index,0) ' CurFieldLength = FieldMetaValues(Index,1) -' CurControlType = FieldMetaValues(Index,2) (ControlType eg. cLabel, cTextbox usw.) +' CurControlType = FieldMetaValues(Index,2) (ControlType, e.g., cLabel, cTextbox, etc.) ' CurControlName = FieldMetaValues(Index,3) ' CurFormatKey = FieldMetaValues(Index,4) ' CurDefaultValue = FieldMetaValues(Index,5) diff --git a/wizards/source/gimmicks/GetTexts.xba b/wizards/source/gimmicks/GetTexts.xba index 9d3dec3be219..452ea776e413 100644 --- a/wizards/source/gimmicks/GetTexts.xba +++ b/wizards/source/gimmicks/GetTexts.xba @@ -19,7 +19,7 @@ --> <script:module xmlns:script="http://openoffice.org/2000/script" script:name="GetTexts" script:language="StarBasic">Option Explicit ' Macro-Description: -' This Macro extracts the Strings out of the currently activated document und inserts them into a logdocument +' This Macro extracts the strings out of the currently activated document and inserts them into a log document. ' The aim of the macro is to provide the programmer an insight into the StarOffice API ' It focusses on how document-Objects are accessed. ' Therefore not only texts of the document-body are retrieved but also Texts of general 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 diff --git a/wizards/source/tutorials/Functions.xba b/wizards/source/tutorials/Functions.xba index b84f3af65753..cded8504ea30 100644 --- a/wizards/source/tutorials/Functions.xba +++ b/wizards/source/tutorials/Functions.xba @@ -148,7 +148,7 @@ Sub Destroy() wait 1000 ShowInfoDialog.DisposeIDialog() - ' HIER WIRD DAS DOCUMENT GESCHLOSSEN!!!!!!!! GPF + ' THE DOCUMENT GETS CLOSED HERE!!!!!!!! GPF thisComponent.CurrentController.Frame.close(True) End Sub |