Just as like the title. 1st time running smooth, but second time I have to cancel and re-run again.
Any ideas where I need to tune. (I have tried to use oWORD as the object of "ParagraphFormat" with no luck)


[CODE]
Dim oWORD As Object
Dim oDOC As Word.Document

If oWORD Is Nothing Then
Set oWORD = CreateObject("Word.application")
End if

Set oDOC = oWORD.Documents.Add
With oDOC.Content.ParagraphFormat
.LeftIndent = InchesToPoints(0)
.RightIndent = InchesToPoints(0)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 0
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphLeft
.WidowControl = True
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.FirstLineIndent = InchesToPoints(0)
.OutlineLevel = wdOutlineLevelBodyText
.CharacterUnitLeftIndent = 2
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
.MirrorIndents = False
.TextboxTightWrap = wdTightNone
End With

...............
[/CODE}