#1
|
|||
|
|||
Format paragraphs between Start and End
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 |
#2
|
||||
|
||||
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
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#3
|
|||
|
|||
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 |