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

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