Format paragraphs between Start and End

RobiNew · #1 11-13-2023, 01:27 AM

I'm trying to format paragraphs between Start and End, but my code fails. Can someone help? Thanks!

Code:

Sub StartEnd()
'Format paragraphs between Start and End
   Dim oRng As Range
  Set oRng = ActiveDocument.Range(Start:=64, End:=ActiveDocument.Paragraphs.Count)
    With oRng.Paragraphs
    For Each oPar In oRng.Paragraphs
              oPar.Style = "MyStyle"
    Next oPar
    End With
End Sub

gmayor · #2 11-13-2023, 01:56 AM

Define the range, then format the range e.g.

Code:

Sub StartEnd()
'Format paragraphs between Start and End
Dim oRng As Range
  Set oRng = ActiveDocument.Range
    oRng.Start = ActiveDocument.Range.Paragraphs(3).Range.Start
    oRng.End = ActiveDocument.Range.End
    oRng.Style = "MyStyle"
End Sub

RobiNew · #3 11-13-2023, 10:51 AM

Perfect. Thanks a lot, Gmayor!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Lock Format Changed Paragraphs From Style Modifications	EdA SRQ	Word	3	03-12-2022 09:35 PM
How to duplicate paragraphs & format them	effimera	Word VBA	2	12-20-2021 04:40 AM
Format multiple paragraphs differently	Dave T	Word VBA	7	07-31-2019 08:12 PM
Changing the format/style for numbered paragraphs AND MAKING THEM STICK!	FearlessStamper	Word	2	10-30-2017 02:17 PM
VBA to set format for paragraphs that meet with specific requirements	AustinBrister	Word VBA	3	06-01-2015 07:00 AM