|
|
#6
03-24-2024, 09:46 PM
|
||||
|
||||
In that case you need to examine every paragraph with a loop
Code:
Sub WipeLocalFormats()
Dim aPara As Paragraph
For Each aPara In ActiveDocument.Paragraphs
With aPara.Range.Font
If .Bold = wdUndefined Or .Italic = wdUndefined Then .Reset
End With
Next aPara
End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia 
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Format paragraphs between Start and End | RobiNew | Word VBA | 2 | 11-13-2023 10:51 AM |
| how to use word vba to read header, mixed with text and shape, on last page of very section? | oyster | Word VBA | 0 | 06-28-2022 08:58 PM |
 How to duplicate paragraphs & format them
|
effimera | Word VBA | 2 | 12-20-2021 04:40 AM |
|
trouble replacing mixed hidden and nonhidden text
|
w0lfshad3 | Word | 1 | 05-01-2016 02:23 PM |
|
Find and replace with mixed formatting
|
pogonoforysci1 | Word | 2 | 09-26-2012 09:16 AM |
Windows 10 
Office 2016
Threaded Mode