Mailing-List: contact ooo-users-help@incubator.apache.org; run by ezmlm
Precedence: bulk
Reply-To: ooo-users@incubator.apache.org
Received-SPF: pass (athena.apache.org: domain of gurus.knugum@gmail.com
 designates 209.85.220.175 as permitted sender)
MIME-Version: 1.0
In-Reply-To: 
 <CADo7T4fa6Z0MpE30=eMZQknqAnJuHqxK3t_ukgiYrbjjMJg_Vw@mail.gmail.com>
References: <5004C8DF.5030208@casaerwin.org>
	<991381645030483ABDAF4FF028EB6F89@SAI>
	<CADo7T4fa6Z0MpE30=eMZQknqAnJuHqxK3t_ukgiYrbjjMJg_Vw@mail.gmail.com>
Date: Tue, 17 Jul 2012 13:12:09 +0200
Message-ID: 
 <CADo7T4eoi=MZ2NKWGGRYBsae641mPtwtt3YoLZ8vbixyT_ybyA@mail.gmail.com>
Subject: Re: Macro or its equivalent to replace double spaces with single
 space.
From: Johnny Rosenberg <gurus.knugum@gmail.com>
To: ooo-users@incubator.apache.org
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: quoted-printable

2012/7/17 Johnny Rosenberg <gurus.knugum@gmail.com>:
> 2012/7/17 Srinivasulu Bhattaram <bhattarams@gmail.com>:
>> I am new to Open Office.
>> InWORD 2003 (and also in WORD 2007),
>> I have craeted macros to remove double spaces with single spaces and use=
d
>> them extensively..
>> How to have an equivalent of it in Open Office writer?
>>
>> I do not want to go through   Find    Replace.... kind of thing.
>> seena
>
> What about letting a macro do the search and replace for you?
>
> I just wrote this one, with inspiration from =E2=80=9DUseful Macro Inform=
ation
> For OpenOffice.org By Andrew Pitonyak=E2=80=9D, which is a PDF that you c=
an
> download somewhere:
>
> REM  *****  BASIC  *****
>
> Sub RemoveRedundantSpaces
>         Dim oReplace as object
>         oReplace =3D ThisComponent.createReplaceDescriptor()
>
>         With oReplace
>                 .SearchString =3D "  "
>                 .ReplaceString =3D " "
>         End With
>
>         While ThisComponent.ReplaceAll(oReplace)>0
>         Wend
> End Sub

I made some changes to the macro, which now will tell you how many
spaces were removed:

REM  *****  BASIC  *****

Option Explicit

Sub RemoveRedundantSpaces
	Dim oReplace as object
	oReplace =3D ThisComponent.createReplaceDescriptor()

	With oReplace
		.SearchString =3D "  "
		.ReplaceString =3D " "
	End With

	Dim Count As Integer, TotalCount As Integer
	Do
		Count=3DThisComponent.ReplaceAll(oReplace)
		TotalCount=3DTotalCount+Count
	Loop While Count>0
=09
	Select Case TotalCount
	Case 0
		Print "No redundant spaces found."
	Case 1
		Print "1 space was removed."
	Case Else
		Print TotalCount & " spaces were removed."
	End Select
End Sub


>
>
> This macro also takes care of tripple spaces and=E2=80=A6 well, it just
> removes all spaces until there are only single spaces left. And it is
> fast. Really fast.
> I tested it myself, and it worked in all my test cases. Well, I didn't
> test it THAT thoroughly, but still=E2=80=A6
>
> Much better than using the crappy macro recorder anyway. And shorter=E2=
=80=A6
>
> If you write the documents yourself, there is a simple way to prevent
> double spaces in the first place, something like:
> Tools =E2=86=92 Options for auto correction=E2=80=A6 =E2=86=92 Click the =
Options tab =E2=86=92 =E2=98=92
> Ignore double spaces
>
> You can still make double spaces if you really want to, but it's less
> likely to happen accidently.
>
>
> Kind regards
>
> Johnny Rosenberg
> =E3=82=B8=E3=83=A7=E3=83=8B=E3=83=BC=E3=83=BB=E3=83=AD=E3=83=BC=E3=82=BC=
=E3=83=B3=E3=83=90=E3=83=BC=E3=82=B0

---------------------------------------------------------------------
To unsubscribe, e-mail: ooo-users-unsubscribe@incubator.apache.org
For additional commands, e-mail: ooo-users-help@incubator.apache.org