Работа со списками

Да, ListGalleries.
Подробнее здесь: внешняя ссылка
И картинки это не только Inlineshapes, но и Shapes.

если в тексте встречается список с разными маркерами, то как-то можно их оформить одним общим маркером, например 1) 2) 3) и тд?

например:
1) траляля;
2. траляля;
c. траляля.

просто ворд эти списки видит как три отдельных.
а про listgallery я имел ввиду, когда начал писать макрос:

dim list1 as listgalleries
for each list1 in activedocument.listgalleries - на эту строчку ругается.

Вижу два способа:
1. Начинать списки со строчных букв (срабатывает не всегда);
2. Выделить список и применить к нему либо форматирование вручную через команду "Регистр", либо воспользоваться,  например, таким макросом, который преобразует первые буквы выделенного списка в строчные:

Sub firstLC()
'преобразование первых букв выделенного текста в строчные
Dim fChar As Range
Dim selText As Range
Set selText = Selection.Range
If Selection.Type = wdSelectionIP Then
   MsgBox "Не выделен текст"
Else
   For Each fChar In selText.Sentences
      If fChar.Characters.First Like "[A-ЯA-Z]" Then
        fChar.Characters.First.Case = wdLowerCase
      End If
   Next fChar
End If
End Sub