From 0c0e3e7539f683548e93616a30af8ac90c9abad0 Mon Sep 17 00:00:00 2001 From: Andrea Gelmini Date: Thu, 30 Oct 2014 12:04:11 +0100 Subject: Fixed typos. No automatic tools (sed, and so on). Change-Id: Ia43976d84eede6f699381bc4f3daf89b95e4cb4f Reviewed-on: https://gerrit.libreoffice.org/12150 Reviewed-by: Bryan Quigley Reviewed-by: Michael Stahl Tested-by: Michael Stahl --- wizards/source/depot/tools.xba | 6 +++--- wizards/source/gimmicks/GetTexts.xba | 4 ++-- wizards/source/tools/UCB.xba | 2 +- 3 files changed, 6 insertions(+), 6 deletions(-) (limited to 'wizards/source') diff --git a/wizards/source/depot/tools.xba b/wizards/source/depot/tools.xba index c1d581246318..daadf498899b 100644 --- a/wizards/source/depot/tools.xba +++ b/wizards/source/depot/tools.xba @@ -138,7 +138,7 @@ End Sub ' Updates the cell with the CurrentValue after checking if the -' Newdate is later than the one that is refered to in the annotation +' Newdate is later than the one that is referred to in the annotation ' of the cell Sub InsertCurrentValue(CurValue as Double, iRow as Integer, Newdate as Date) Dim oCell as Object @@ -207,11 +207,11 @@ Dim iLastRow as Integer End Function -Function CheckDocLocale(LocLanguage as String, LocCountry as String) +Function CheckDocLocale(LocLanguage as String, LocCountry as String) Dim bIsDocLanguage as Boolean Dim bIsDocCountry as Boolean bIsDocLanguage = Instr(1, LocLanguage, sDocLanguage, SBBINARY) <> 0 bIsDocCountry = Instr(1, LocCountry, sDocCountry, SBBINARY) <> 0 OR SDocCountry = "" CheckDocLocale = (bIsDocLanguage And bIsDocCountry) End Function - \ No newline at end of file + diff --git a/wizards/source/gimmicks/GetTexts.xba b/wizards/source/gimmicks/GetTexts.xba index 53d4675b17ec..9d3dec3be219 100644 --- a/wizards/source/gimmicks/GetTexts.xba +++ b/wizards/source/gimmicks/GetTexts.xba @@ -22,7 +22,7 @@ ' This Macro extracts the Strings out of the currently activated document und inserts them into a logdocument ' The aim of the macro is to provide the programmer an insight into the StarOffice API ' It focusses on how document-Objects are accessed. -' Therefor not only texts of the document-body are retrieved but also Texts of general +' Therefore not only texts of the document-body are retrieved but also Texts of general ' document Objects like, Annotations, charts and general Document Information Public oLogDocument, oLogText, oLogCursor, oLogHeaderStyle, oLogBodyTextStyle as Object @@ -200,7 +200,7 @@ Dim oCell as Object oPara = ParaEnum.NextElement ' Note: The Enumeration ParaEnum lists all tables and Paragraphs. - ' Therefor we have to find out what kind of object "oPara" actually is + ' Therefore we have to find out what kind of object "oPara" actually is If oPara.supportsService("com.sun.star.text.Paragraph") Then ' "oPara" is a Paragraph oTextPortEnum = oPara.createEnumeration diff --git a/wizards/source/tools/UCB.xba b/wizards/source/tools/UCB.xba index e3b1323b2d1a..ed1ae1c719b8 100644 --- a/wizards/source/tools/UCB.xba +++ b/wizards/source/tools/UCB.xba @@ -90,7 +90,7 @@ Dim sFileArray(StartUbound,1) as String ' Retrieve the Index in the Array, where a Filename is positioned If Not IsMissing(sFileContent()) Then If (FieldinArray(sFileContent(), Ubound(sFileContent), RealFileContent)) Then - ' The extension of the current file passes the filter and is therefor admitted to the + ' The extension of the current file passes the filter and is therefore admitted to the ' fileList If Not IsMissing(sExtension) Then If sExtension <> "" Then -- cgit