Help with access Lists Gallery to Format all

Cendrinne · #7 04-12-2021, 11:49 AM

Quote:

Originally Posted by Guessed

Your styles should already be set to 100% scaling

Well when we convert a PDF, which we don't know what was the source, it changes the scaling and spacing. That is the reason, I wanted to fix that in all instance in a word document.

Anyway, I found an interesting macro, to select in once intance, all the paragraph lists, and it seems to affect the Alpha-Numerical values as well. So you place the curser anywhere in the document, then click on macro, then click in the document again, you'll see it highlights all intance of lists. So change font size, change the font name.

The only thing, it won't Affect the bullets, so if I say, change all list to Arial and font 12, it seemed to do it everywhere, except all bullets. So if I have 25 new bullets styles, in a very big document, it won't touch it. You have to manually find them.

That isn't fun! Must be a magic way to fix all that?

Any way, here is the macro to find and selects all instance of paragr lists:

HTML Code:

On Error Resume Next

Application.ScreenUpdating = False
Dim Para As Word.Paragraph
With ActiveDocument
    .DeleteAllEditableRanges (-1)
    For Each Para In .Paragraphs
        If Para.range.ListFormat.ListType > 0 Then
            Para.range.Editors.Add (-1)
        End If
    Next
    .SelectAllEditableRanges (-1)
    .DeleteAllEditableRanges (-1)
End With
Application.ScreenUpdating = True

Please let me know if you find a way to Select all instance of the lists values (bullets and alphanumerical).

Cendrinne

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Comparing two lists and extracting values missing from both lists	Dave T	Excel Programming	4	11-01-2018 11:51 PM
Creating global contact lists (distribution lists) Outlook 2011 Mac	pengyou	Outlook	0	09-10-2016 02:18 PM
I want to create a lists within lists (nested merges)	AndyS	Mail Merge	10	12-11-2015 03:05 PM
Add command (not gallery) to quick access toolbar	MarkPhil	Word	3	02-16-2014 06:10 AM
Project gallery	slidon	Word	0	04-29-2013 07:22 AM