Help required with spacing

rohanmalhotra · #1 08-10-2011, 05:46 AM

Hi

I have created a macro that automatically gives 2 spaces after a period. Unfortunately, it also gives 2 spaces in a URL. Not sure how to rectify this. I have attached the code below :

HTML Code:

Sub TwoSpaces()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "([.])"
        .Replacement.Text = "\1  "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Any help will be appreciated.

Thanks in advance.

gmaxey · #2 08-10-2011, 06:24 PM

Try:

Sub TwoSpacesAfterSentence()
Dim oRng As Range
Set oRng = ActiveDocument.Range
With oRng.Find
.ClearFormatting
.MatchWildcards = True
.Text = "(*{2})([.\!\?]) ([A-Z])"
.Replacement.Text = "\1\2 \3" 'Two spaces between 2 and \
.Execute Replace:=wdReplaceAll
.Text = "([.\!\?]) {3,}([A-Z])"
.Replacement.Text = "\1 \2"
.Execute Replace:=wdReplaceAll
'This should prevent most cases of improper double spacing
'in names (e.g., F. Lee Bailey, George W. Bush, etc.)
.Text = "([!A-Z][A-Z].) ([A-Z])" 'Two spaces between ) and (
.Replacement.Text = "\1 \2"
.Execute Replace:=wdReplaceAll
End With
End Sub

rohanmalhotra · #3 08-10-2011, 11:24 PM

Quote:

Originally Posted by gmaxey

Try:

Sub TwoSpacesAfterSentence()
Dim oRng As Range
Set oRng = ActiveDocument.Range
With oRng.Find
.ClearFormatting
.MatchWildcards = True
.Text = "(*{2})([.\!\?]) ([A-Z])"
.Replacement.Text = "\1\2 \3" 'Two spaces between 2 and \
.Execute Replace:=wdReplaceAll
.Text = "([.\!\?]) {3,}([A-Z])"
.Replacement.Text = "\1 \2"
.Execute Replace:=wdReplaceAll
'This should prevent most cases of improper double spacing
'in names (e.g., F. Lee Bailey, George W. Bush, etc.)
.Text = "([!A-Z][A-Z].) ([A-Z])" 'Two spaces between ) and (
.Replacement.Text = "\1 \2"
.Execute Replace:=wdReplaceAll
End With
End Sub

Thanks for your help.
however, it is still not working. what it does is that it deletes spaces after all periods in the document.

rohanmalhotra · #4 08-11-2011, 04:06 AM

Hi all

This is really urgent. Can anybody help me with this please?

Many Thanks

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Suggestion required	domex	Word	0	10-06-2010 05:35 AM
Filename Extensions required in VBA	bollivar_corona	Word	0	08-06-2010 10:15 AM
Filename Extensions required in VBA	bollivar_corona	Word VBA	0	08-04-2010 10:33 PM
Basic help with word required !!	bobbybansal	Word	1	04-20-2010 02:31 PM
Urgent Help Required	id12345	Word	4	12-29-2009 08:22 AM