Continue macro if paragraph not exist

[dagerr]

Hi,
The following code change next paragraph if searched word is founded. I want modify code to continue macro if paragraph after finding searched word not exist or founded word is last in document.
Thanks



Dim oRng As Range
Set oRng = ActiveDocument.Range
With oRng.Find
Do While .Execute(FindText:="FOTO", MatchWholeWord:=True)
oRng.End = oRng.Paragraphs(1).Range.End
oRng.Collapse

'if praragraph not exist??
If (oRng.End = oRng.Next.Paragraphs(1).Range.End) = False Then

Exit Sub
Else
End If


oRng.End = oRng.Next.Paragraphs(1).Range.End

If Len(oRng) = 1 Then
oRng.Collapse 0
oRng.End = oRng.Next.Paragraphs(1).Range.End

End If

With oRng
.Font.Name = "Times New Roman"
.Font.Size = 8
.Font.Italic = wdToggle
.bold = False
With .ParagraphFormat
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 10
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceMultiple
.LineSpacing = LinesToPoints(0.9)
.Alignment = wdAlignParagraphLeft
.WidowControl = True
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.FirstLineIndent = CentimetersToPoints(0)
.OutlineLevel = wdOutlineLevelBodyText
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
.MirrorIndents = False
.TextboxTightWrap = wdTightNone
End With
.Collapse 0
End With
Loop
End With
lbl_Exit:
Set oRng = Nothing

[dagerr]

Anyone helps?...

[gmaxey]

Based on your location flag, I realize that English is not likely your first language. Speaking only English and not very well at that, I don't understand what you are trying to explain or achieve. Can you give an example of before\after?

[dagerr]

ok, I will try explain it better.
If text in document looks like this, Macro above works properly - situation 1:


FOTO
Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.


but when text in document looks like that, it stop with error - situation 2:


FOTO
[no more text - end of document]


So my goal is to continue macro to next part if there is a situation 2


Thanks

[gmaxey]

I'm sorry, but that doesn't help much. In both cases

Case 1 (the complete document text is):

FOTO
Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.

Case 2 (the complete document text is):

FOTO

The macro performs exactly the same. It runs to the line Exit Sub and exits without error.

If the "next part" is intended to format text following the instance of "FOTO", then how could you possibly continue and format something that isn't there? I have tried to deduce what you are trying to do:


Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey, http://gregmaxey.com/word_tips.html, 4/5/2018
Dim oRng As Range
Dim oRngFormat As Range
Set oRng = ActiveDocument.Range
With oRng.Find
Do While .Execute(FindText:="FOTO", MatchWholeWord:=True)
oRng.Collapse wdCollapseEnd
On Error GoTo Err_Handler
Set oRngFormat = oRng.Paragraphs(1).Next.Range
With oRngFormat
.Font.Name = "Times New Roman"
.Font.Size = 8
.Font.Italic = wdToggle
.Bold = False
With .ParagraphFormat
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 10
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceMultiple
.LineSpacing = LinesToPoints(0.9)
.Alignment = wdAlignParagraphLeft
.WidowControl = True
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.FirstLineIndent = CentimetersToPoints(0)
.OutlineLevel = wdOutlineLevelBodyText
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
.MirrorIndents = False
.TextboxTightWrap = wdTightNone
End With
.Collapse 0
End With
Loop
End With
lbl_Exit:
Set oRng = Nothing
Exit Sub
Err_Handler:
Resume lbl_Exit
End Sub


When you collapse a range to the its start point then it will "NEVER" be equal to the end of the next paragraph (if i

[dagerr]

Solved, I've added Your code at the end of entire macro and it is OK