Как скопировать определенный текст?

Question

У меня есть сотни файлов слов, чтобы работать по одному, и каждый из них имеет такую ​​строку (не в том же относительном месте):

Proc. nº 0032545-15.2012.8.19.0053

Мне нужен код, который только скопировать серийный номер, в этом случае 0032545-15.2012.8.19.0053, то я могу использовать его, чтобы вставить позже. Это не нужно, чтобы подавить точки.

Код, который я пробовал, копирует всю строку, но мне нужно скопировать только нули впереди. !
После этого мне нужно курсор, чтобы перейти к определенной части файла (в данном случае одна линия вверх по 12.12.13, но привычка Вот что я пытался до сих пор:

Sub Macrovolta2() 
    With Selection.Find 
     .Text = "Proc. nº " 
     .Execute Forward:=True 
     Selection.MoveRight Unit:=wdCharacter, Count:=25, Extend:=wdExtend 
     Selection.Copy 
    End With 

    With Selection.Find 
     .ClearFormatting 
     .Text = "12.12.13" 
     .Execute Forward:=True 
     Selection.MoveUp Unit:=wdLine, Count:=1 
    End With 
End Sub 

Answer 1

Запишите макрос. Атль T, M, R.

вы можете найти функции F8 полезным. нажмите F8 и символ, который вы хотите выбрать до.

Так Искать Proc, нажмите стрелку вправо, чтобы добраться до начало номера, то F8 и пробел будут выбраны в следующее пространство (предполагается, что после номера), затем Shift + стрелка влево чтобы уменьшить выбор, чтобы конечное пространство не было выбрано.

Другим способом является поиск номера, если это согласованный формат.

^#^#^#^#^#^#^#-^#^#.^#^#^#^#.^#.^#^#.^#^#^#^# 

^# означает любую цифру. Приведенный выше наш номер.

Также опция поиска Word Использование Wildcards включает регулярные выражения. Вы можете искать и вытаскивать подстроки.

Proc. nº ([0-9]{7}-[0-9]{2}.[0-9]{4}.[0-9].[0-9]{2}.[0-9]{4}) 

Для доступа только к числу использования \ 1 (относится к первому члену в скобках()). [0-9] означает любое число. {4} означает 4 предыдущего символа.