microsoft.public.word.vba.general

Hello David from Steved

Glad to hear you are getting over the Flu.

Thanyou I've had a run with your code and I'm very happy, there is still one
or two situations but in the main you have given me something to work with.


"David Sisson" wrote:

> Ok try this. Probably not the best solution, (not as dynamic as I
> like) but I am recovering from the flu and can't quite think straight
> yet. (That's my excuse and I'm sticking with it. :-)
>
> Sub Main1()
>
> Dim aDoc As Document
> Dim SearchRng As Range
> Dim AllRng As Range
>
> Set aDoc = ActiveDocument
>
> Set AllRng = ActiveDocument.Range
> Set SearchRng = AllRng.Duplicate
>
> Do
> With SearchRng.Find
> .ClearFormatting
> .Text = "F 1:0:0"
> .Forward = True
> .Wrap = wdFindStop
> .Execute
> End With
>
> If Not SearchRng.Find.Found Then Exit Do
>
> SearchRng.MoveStart wdParagraph, -1
> SearchRng.MoveEnd wdParagraph, -1
> SearchRng.Select
> 'Stop
> If Left(SearchRng, 1) = "D" Then
> SearchRng.InsertAfter "L 0:0:0" & vbCr & "R 0:0:0" & vbCr
> SearchRng.MoveStart wdParagraph, 4
> Else
> If Left(SearchRng, 1) = "L" Then
> SearchRng.InsertAfter "R 0:0:0" & vbCr
> SearchRng.MoveStart wdParagraph, 3
> Else
> If Left(SearchRng, 1) = "R" Then
> SearchRng.InsertBefore "L 0:0:0" & vbCr
> SearchRng.MoveStart wdParagraph, 3
> End If
> End If
> End If
> SearchRng.End = AllRng.End
> Loop Until Not SearchRng.Find.Found
>
> End Sub
>