Регулярки, "ComboBoxValue(641)" заменить на "ComboBoxValue()"

[Ципихович Эндрю]

Здравствуйте, нужно в строке списка текст "ComboBoxValue(641)" заменить на "ComboBoxValue()", отсортировать и снова расставить номера в скобках
код есть:

   Количество_списков_в_документе = ActiveDocument.Lists.Count
    Количество_строк_в_списке = ActiveDocument.Lists.Item(1).ListParagraphs.Count
 
    Dim reg As Object
    Set reg = CreateObject("vbscript.regexp")
 
    For q = 1 To Количество_строк_в_списке
        MSComm1Input = ActiveDocument.Lists.Item(1).ListParagraphs(q).Range.Text
        арп0 = Len(MSComm1Input)
        'искать по всему тексту, по умолчанию False - будет найдено только первое совпадение
        reg.Global = True
        'удаляем символы входящие в диапазон знаков между "[" и "]"
        reg.Pattern = "ComboBoxValue(" & [1234567890] & ")"
        MSComm1Input = reg.Replace$(MSComm1Input, "ComboBoxValue()")
        MSComm1Input = ActiveDocument.Lists.Item(1).ListParagraphs(1).Range.Text
        арп1 = Len(MSComm1Input)
    Next q
 
    'выделить всё
    Selection.WholeStory
    'сортировка по абзацам
    Selection.Sort ExcludeHeader:=False, FieldNumber:="абзацам", SortFieldType _
                                                               :=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, FieldNumber2 _
                                                                                                                         :="", SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:= _
                   wdSortOrderAscending, FieldNumber3:="", SortFieldType3:= _
                   wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= _
                   wdSortSeparateByTabs, SortColumn:=False, CaseSensitive:=False, LanguageID _
                                                                                :=wdRussian, SubFieldNumber:="абзацам", SubFieldNumber2:="абзацам", _
                   SubFieldNumber3:="абзацам"

На этом этапе не взлетаю, что не так???? Спасибо

[Вождь]

Неверны маски поиска и замены. Дальше не смотрел.

[Ципихович Эндрю]

>Неверны маски поиска и замены
это я понял, так как у меня там не более 999
пробую так

reg.Pattern = "ComboBoxValue(" & [1234567890] & [1234567890] & [1234567890] & ")"

не взлетает, или нужно придумать с плюсом

 '+ означает, что заменяем два, три, четыре и более пробелов подряд на один пробел
    reg.Pattern = " +"

пока актуально

[Ципихович Эндрю]

разобрался, осталось одно

'\d - соответствует цифре, то же, что и [0-9]
        '[0-9]{3} - цифра от 0 до 9, которая повторяется три раза в номере

как же указать вместо
которая повторяется три раза в номере
которая повторяется 1, 2 или 3 раза в номере

[Ципихович Эндрю]

и ещё не пойму, в строке

reg.Pattern = "()"
MSComm1Input = reg.Replace$(MSComm1Input, "(q)")

я имею ввиду, что () заменить на (q), где q это переменная, как это пишется?

[Ципихович Эндрю]

Сделал

Sub ABC()
'

'выделить всё
    Selection.WholeStory
    'создать нумерованный список по умолчанию
    Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _
                                                               wdNumberGallery).ListTemplates(1), ContinuePreviousList:=False, ApplyTo:= _
                                                 wdListApplyToWholeList, DefaultListBehavior:=wdWord10ListBehavior

    Dim Количество_списков_в_документе As Byte
    Количество_списков_в_документе = ActiveDocument.Lists.Count

    Dim Количество_строк_в_списке As Integer
    Количество_строк_в_списке = ActiveDocument.Lists.Item(1).ListParagraphs.Count

    Dim q As Integer
    q = 0

    Dim MSComm1Input As String
    MSComm1Input = ""

    Dim reg As Object
    Set reg = CreateObject("vbscript.regexp")

    For q = 1 To Количество_строк_в_списке
        MSComm1Input = ActiveDocument.Lists.Item(1).ListParagraphs(q).Range.Text
        'искать по всему тексту, по умолчанию False - будет найдено только первое совпадение
        reg.Global = True
        '\d - соответствует цифре, то же, что и [0-9]
        '+ означает, что заменяем два, три, четыре и более подряд идущих знаков перед +
        reg.Pattern = "(\d+)"
        MSComm1Input = reg.Replace$(MSComm1Input, "")
        ActiveDocument.Lists.Item(1).ListParagraphs(q).Range.Text = MSComm1Input
    Next q

    Set reg = Nothing

    'выделить список
    ActiveDocument.Lists.Item(1).Range.Select
    'сортировка по абзацам
    Selection.Sort ExcludeHeader:=False, FieldNumber:="абзацам", SortFieldType _
                                                               :=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, FieldNumber2 _
                                                                                                                         :="", SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:= _
                   wdSortOrderAscending, FieldNumber3:="", SortFieldType3:= _
                   wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= _
                   wdSortSeparateByTabs, SortColumn:=False, CaseSensitive:=False, LanguageID _
                                                                                :=wdRussian, SubFieldNumber:="абзацам", SubFieldNumber2:="абзацам", _
                   SubFieldNumber3:="абзацам"
Назад:

    For q = 1 To Количество_строк_в_списке
        MSComm1Input = ActiveDocument.Lists.Item(1).ListParagraphs(q).Range.Text
        If Len(MSComm1Input) = 1 Then
            ActiveDocument.Lists.Item(1).ListParagraphs(q).Range.Delete
            GoTo Назад
        Else
            MSComm1Input = Replace$(MSComm1Input, "()", "(" & q & ")")
            ActiveDocument.Lists.Item(1).ListParagraphs(q).Range.Text = MSComm1Input
        End If
    Next q

    'выделить всё
    Selection.WholeStory
    'убрать нумерованный список
    Selection.Range.ListFormat.RemoveNumbers NumberType:=wdNumberParagraph
    Selection.MoveLeft Unit:=wdCharacter, Count:=1

    MsgBox$ "Конец"

End Sub

проблема, лишнего меняет
ComboBoxValue(641) = "1 и 5 карточка"
ComboBoxValue(641) = "1 карточка"
ComboBoxValue(641) = "1.1 карточка"
На
ComboBoxValue(1) = " и карточка" то есть сожрало лишнего 1 и 5
ComboBoxValue(2) = " карточка" сожрало 1
ComboBoxValue(3) = ". карточка" сожрало 1.1

[Ципихович Эндрю]

спасибо откликнвшимся, вопрос решён

'\d - соответствует цифре, то же, что и [0-9]
        '+ означает, что заменяем два, три, четыре и более подряд идущих знаков перед +
        'основные спецсимволы: ()[]{}|?$^+*\
        'чтобы спецсимвол воспринимался как обычный символ строки
        'его необходимо экранировать символом \, например \$ в Ma\$ter воспринимается как знак доллара
        reg.Pattern = "\(\d+\)"
        MSComm1Input = reg.Replace$(MSComm1Input, "()")