Макрос для списка

Автор Nataly, 28 сентября 2024, 09:20

Nataly

Доброе утро! Мне нужно написать макрос для приведения списка в приличный вид.

У меня ненумерованный список с маркером тире, после некоторых элементов списка стоят строки комментария (не список). Мне нужно комментарии заключить в скобки, поместить после элемента списка и поправить чтобы они были с маленькой буквы, а так же в конце строчки элемента списка поставить точку с запятой.

Я пыталась с помощью записи сделать макрос. У меня получается точки с запятой поставить, если в списке нет комментариев. А с ними проблема. Если на строчку списка навести, получилось преобразовать одну строку к нужному виду, если комментарий из одной строки. А если несколько, уже нет. А хочется макрос ко всему списку применить сразу...

Таких кусков больно много в документе...и вручную не обработать и по одной строке тоже не вариант... Помогите пожалуйста эти действия в один макрос для целого списка.

Вот текст макросов маленьких, из них бы один для целого списка сделать:

Макросы
Macr1()
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.HomeKey Unit:=wdLine
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Cut
    Application.Keyboard (1049)
    Selection.TypeParagraph
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.TypeBackspace
    Application.Keyboard (1033)
    Selection.TypeText Text:=" ()"
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Application.Keyboard (1049)
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Application.Keyboard (1033)
    Selection.TypeText Text:=";"
End Sub

Sub Macr2()

Dim myRange As Range
Set myRange = Selection.Range
myRange.Find.Execute FindText:="^p", ReplaceWith:=";^p", Replace:=wdReplaceAll
Selection.EndKey Unit:=wdLine
Selection.TypeBackspace
Selection.EndKey Unit:=wdLine
Selection.TypeText Text:="."
End Sub
[свернуть]

Администратор

Приложите файл.
Файл будет виден только вам и мне.

Nataly

Файла у меня нет с собой.
Примерно такое содержание:
Список 1:
-элемент 1
-элемент 2
Пояснение 2.
-элемент 3
Пояснение 3 на 2 строки.
-элемент 4

А нужно:
Список 1:
-элемент 1;
-элемент 2 (пояснение 2);
-элемент 3(пояснение 3);
-элемент 4.