#1
|
|||
|
|||
Help required with spacing
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 Thanks in advance. |
#2
|
|||
|
|||
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 |
#3
|
|||
|
|||
Quote:
however, it is still not working. what it does is that it deletes spaces after all periods in the document. |
#4
|
|||
|
|||
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 |