Can any one give me macro syntax to do the following:

1. To insert 2 spaces after every full stop or end of sentence or end of
paragraph(just before para return sign)

2. The above should work for text in Tables also.

Thanks in advance.

Try something like:

Public Sub Scratch Macro()

Dim rngStory As Word.Range
' Fix the skipped blank Header/Footer problem
MakeHFValid
' Iterate through all story types in the current document
For Each rngStory In ActiveDocument.StoryRanges
' Iterate through all linked stories
Do Until (rngStory Is Nothing)
With rngStory.Find
.ClearFormatting
.Replacement.ClearFormatting
.MatchWildcards = True
.Text = "([:.,\!\?]) ([! ])":
.Replacement.Text = "\1 \2"
.Execute Replace:=wdReplaceAll
End With
Set rngStory = rngStory.NextStoryRange
Loop
Next
End Sub
Public Sub MakeHFValid()
Dim lngJunk As Long
lngJunk = ActiveDocument.Sections(1).Headers(1).Range.StoryT ype
End Sub

Greg:

Thanks once again! But this macro does not help me in end of paragraph
returns.

Regards
Paresh

"Greg" wrote:

Try something like:

Public Sub Scratch Macro()

Dim rngStory As Word.Range
' Fix the skipped blank Header/Footer problem
MakeHFValid
' Iterate through all story types in the current document
For Each rngStory In ActiveDocument.StoryRanges
' Iterate through all linked stories
Do Until (rngStory Is Nothing)
With rngStory.Find
.ClearFormatting
.Replacement.ClearFormatting
.MatchWildcards = True
.Text = "([:.,\!\?]) ([! ])":
.Replacement.Text = "\1 \2"
.Execute Replace:=wdReplaceAll
End With
Set rngStory = rngStory.NextStoryRange
Loop
Next
End Sub
Public Sub MakeHFValid()
Dim lngJunk As Long
lngJunk = ActiveDocument.Sections(1).Headers(1).Range.StoryT ype
End Sub

Not sure I follow, but try:

Option Explicit
Public Sub ScratchMacro()

Dim rngStory As Word.Range
' Fix the skipped blank Header/Footer problem
MakeHFValid
' Iterate through all story types in the current document
For Each rngStory In ActiveDocument.StoryRanges
' Iterate through all linked stories
Do Until (rngStory Is Nothing)
With rngStory.Find
.ClearFormatting
.Replacement.ClearFormatting
.MatchWildcards = True
.Text = "([:.,\!\?\^13]) ([! ])":
.Replacement.Text = "\1 \2"
.Execute Replace:=wdReplaceAll
.Text = "(?)(^13)"
.Replacement.Text = "\1 \2"
.Execute Replace:=wdReplaceAll
End With
Set rngStory = rngStory.NextStoryRange
Loop
Next
End Sub
Public Sub MakeHFValid()
Dim lngJunk As Long
lngJunk = ActiveDocument.Sections(1).Headers(1).Range.StoryT ype
End Sub