openoffice-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From msei...@apache.org
Subject svn commit: r1838561 - /openoffice/trunk/main/wizards/source/gimmicks/GetTexts.xba
Date Tue, 21 Aug 2018 15:13:16 GMT
Author: mseidel
Date: Tue Aug 21 15:13:15 2018
New Revision: 1838561

URL: http://svn.apache.org/viewvc?rev=1838561&view=rev
Log:
Deleted whitespace, fixed typos and spelling errors

Modified:
    openoffice/trunk/main/wizards/source/gimmicks/GetTexts.xba

Modified: openoffice/trunk/main/wizards/source/gimmicks/GetTexts.xba
URL: http://svn.apache.org/viewvc/openoffice/trunk/main/wizards/source/gimmicks/GetTexts.xba?rev=1838561&r1=1838560&r2=1838561&view=diff
==============================================================================
--- openoffice/trunk/main/wizards/source/gimmicks/GetTexts.xba (original)
+++ openoffice/trunk/main/wizards/source/gimmicks/GetTexts.xba Tue Aug 21 15:13:15 2018
@@ -21,12 +21,12 @@
  * 
  ***********************************************************-->
 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="GetTexts"
script:language="StarBasic">Option Explicit
-&apos; Macro-Description:
-&apos; This Macro extracts the Strings out of the currently activated document und inserts
them into a logdocument
-&apos; The aim of the macro is to provide the programmer an insight into the StarOffice
API
-&apos; It focusses on how document-Objects are accessed.
-&apos; Therefor not only texts of the document-body are retrieved but also Texts of general
-&apos; document Objects like, Annotations, charts and general Document Information
+&apos; Description:
+&apos; This macro extracts the strings out of the currently active document and inserts
them into a log document.
+&apos; The aim of the macro is to provide the programmer an insight into the OpenOffice
API.
+&apos; It focuses on how document objects are accessed.
+&apos; Therefore not only texts of the document body are retrieved but also texts of
general
+&apos; document objects like, annotations, charts and general document information.
 
 Public oLogDocument, oLogText, oLogCursor, oLogHeaderStyle, oLogBodyTextStyle as Object
 Public oDocument as Object
@@ -38,13 +38,13 @@ Sub Main
 Dim sDocType as String
 Dim oHyperCursor as Object
 Dim oCharStyles as Object
-    BasicLibraries.LoadLibrary(&quot;Tools&quot;)
+	BasicLibraries.LoadLibrary(&quot;Tools&quot;)
 	On Local Error GoTo NODOCUMENT
 	oDocument = StarDesktop.ActiveFrame.Controller.Model
 	sDocType = GetDocumentType(oDocument)
 	NODOCUMENT:
 	If Err &lt;&gt; 0 Then
-		Msgbox(&quot;This macro extracts all data from the active Writer, Calc or Draw document.&quot;
&amp; chr(13) &amp;_
+		Msgbox(&quot;This macro extracts all data from the active Writer, Calc or Draw/Impress
document.&quot; &amp; chr(13) &amp;_
 			   &quot;To start this macro you have to activate a document first.&quot; , 16,
GetProductName)
 		Exit Sub
 	End If
@@ -55,7 +55,7 @@ Dim oCharStyles as Object
 	If Not IsNull(oLogDocument) Then
 		oLogText = oLogDocument.Text
 
-		&apos; create and define the character styles of the Log-document
+		&apos; create and define the character styles of the log document
 		oCharStyles = oLogDocument.StyleFamilies.GetByName(&quot;CharacterStyles&quot;)
 		oLogHeaderStyle = oLogDocument.createInstance(&quot;com.sun.star.style.CharacterStyle&quot;)
 		oCharStyles.InsertbyName(&quot;Log Header&quot;, oLogHeaderStyle)
@@ -101,7 +101,7 @@ Dim oCharStyles as Object
 End Sub
 
 
-&apos; ***********************************************Calc-Documents**************************************************
+&apos; ***********************************************Calc documents**************************************************
 
 Sub GetCalcStrings()
 Dim i, n as integer
@@ -114,7 +114,7 @@ Dim oSheets as Object
 	For i = 0 to osheets.Count - 1
 		oSheet = osheets.GetbyIndex(i)
 		SheetName = oSheet.Name
-		MakeLogHeadLine(&quot;Sheet No. &quot; &amp; i &amp; &quot;(&quot;
&amp; SheetName &amp; &quot;)&quot; )
+		MakeLogHeadLine(&quot;Sheet No. &quot; &amp; i &amp; &quot; (&quot;
&amp; SheetName &amp; &quot;)&quot; )
 
 		&apos; Check the &quot;body&quot; of the sheet
 		GetCellTexts(oSheet)
@@ -185,7 +185,7 @@ Dim n,m as integer
 End Sub
 
 
-&apos; ***********************************************Writer-Documents**************************************************
+&apos; ***********************************************Writer documents**************************************************
 
 Sub GetParagraphTexts(oParaObject as Object, HeadLine as String)
 Dim ParaEnum as Object
@@ -202,8 +202,8 @@ Dim oCell as Object
 	While ParaEnum.HasMoreElements
 		oPara = ParaEnum.NextElement
 
-		&apos; Note: The Enumeration ParaEnum lists all tables and Paragraphs.
-		&apos; Therefor we have to find out what kind of object &quot;oPara&quot; actually
is
+		&apos; Note: The enumeration ParaEnum lists all tables and paragraphs.
+		&apos; Therefore we have to find out what kind of object &quot;oPara&quot;
actually is
 		If oPara.supportsService(&quot;com.sun.star.text.Paragraph&quot;) Then
 			&apos; &quot;oPara&quot; is a Paragraph
 			oTextPortEnum = oPara.createEnumeration
@@ -225,7 +225,6 @@ Dim oCell as Object
 End Sub
 
 
-
 Sub GetChartStrings(oSheet as Object, HeaderLine as String)
 Dim i as Integer
 Dim aChartObject as Object
@@ -260,7 +259,6 @@ Dim aChartDiagram as Object
 End Sub
 
 
-
 Sub GetFrameTexts()
 Dim i as integer
 Dim oTextFrame as object
@@ -274,8 +272,8 @@ Dim oFrameTextPort as Object
 		oTextFrame = oDocument.TextFrames.GetbyIndex(i)
 		WriteStringToLogFile(oTextFrame.Name)
 
-		&apos; Is the frame bound to the Page
-		If oTextFrame.AnchorType  = com.sun.star.text.TextContentAnchorType.AT_PAGE  Then
+		&apos; Is the frame bound to the page?
+		If oTextFrame.AnchorType = com.sun.star.text.TextContentAnchorType.AT_PAGE Then
 			GetParagraphTexts(oTextFrame, &quot;Text Frame Contents&quot;)
 		End If
 
@@ -318,7 +316,6 @@ Dim CurElement as Object
 End Sub
 
 
-
 Sub GetLinkedFileNames()
 Dim oDocSections as Object
 Dim LinkedFileName as String
@@ -360,7 +357,7 @@ Sub GetWriterStrings()
 End Sub
 
 
-&apos; ***********************************************Draw-Documents**************************************************
+&apos; ***********************************************Draw/Impress documents**************************************************
 
 Sub GetDrawPageTitles(LocObject as Object)
 Dim n as integer
@@ -369,9 +366,9 @@ Dim oPage as Object
 	For n = 0 to LocObject.Count - 1
 		oPage = LocObject.GetbyIndex(n)
 		WriteStringtoLogFile(oPage.Name)
-		&apos; Is the Page a DrawPage and not a MasterPage?
+		&apos; Is the page a DrawPage and not a MasterPage?
 		If oPage.supportsService(&quot;com.sun.star.drawing.DrawPage&quot;)then
-			&apos; Get the Name of the NotesPage (only relevant for Impress-Documents)
+			&apos; Get the name of the NotesPage (only relevant for Impress documents)
 			If oDocument.supportsService(&quot;com.sun.star.presentation.PresentationDocument&quot;)
then
 				WriteStringtoLogFile(oPage.NotesPage.Name)
 			End If
@@ -428,10 +425,10 @@ Dim oDocuProps as Object
 	WriteStringToLogFile(oDocuProps.Description)
 	WriteStringToLogFile(oDocuProps.Subject)
 	WriteStringToLogFile(oDocuProps.Author)
-&apos; 	WriteStringToLogFile(oDocuProps.UserDefinedProperties.ReplyTo)
-&apos; 	WriteStringToLogFile(oDocuProps.UserDefinedProperties.Recipient)
-&apos; 	WriteStringToLogFile(oDocuProps.UserDefinedProperties.References)
-&apos; 	WriteStringToLogFile(oDocuProps.Keywords)
+	&apos; WriteStringToLogFile(oDocuProps.UserDefinedProperties.ReplyTo)
+	&apos; WriteStringToLogFile(oDocuProps.UserDefinedProperties.Recipient)
+	&apos; WriteStringToLogFile(oDocuProps.UserDefinedProperties.References)
+	&apos; WriteStringToLogFile(oDocuProps.Keywords)
 End Sub
 
 
@@ -457,7 +454,7 @@ Dim oSearchDesc as Object
 	For i = 0 to oAllHyperLinks.Count - 1
 		oFound = oAllHyperLinks(i)
 		oCrsr = oFound.Text.createTextCursorByRange(oFound)
-		WriteStringToLogFile(oCrs.HyperLinkURL)   	&apos;Url
+		WriteStringToLogFile(oCrs.HyperLinkURL) 	&apos;Url
 		WriteStringToLogFile(oCrs.HyperLinkTarget)	&apos;Name
 		WriteStringToLogFile(oCrs.HyperLinkName)	&apos;Frame
 	Next i
@@ -520,14 +517,14 @@ Dim i as integer
 	End If
 End Sub
 
-&apos; ***********************************************LogDocument**************************************************
+&apos; ***********************************************Log document**************************************************
 
 Sub WriteStringtoLogFile( sString as String)
 	If (Not FieldInArray(LogArray(),LogIndex,sString))AND (NOT ISNULL(sString)) Then
 		LogArray(LogIndex) = sString
 		LogIndex = LogIndex + 1
 		oLogText.insertString(oLogCursor,sString,False)
-   		oLogText.insertControlCharacter(oLogCursor,com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK,False)
+		oLogText.insertControlCharacter(oLogCursor,com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK,False)
 	End If
 End Sub
 



Mime
View raw message