Необходимо найти значения формата 10-01, 10-02, 15-03 и т.п. и поставить спереди их апостроф.
Значения могут встречаться как в тексте так и в таблицах.
Sub Макрос()
With ActiveDocument.Range.Find
.Text = "<[0-9]{2}-[0-9]{2}>"
.Replacement.Text = "'^&"
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
End Sub
Примечания к коду
Параметры свойства "Find.Text":
[0-9]{2} - поиск двух цифр
<, > - поиск слова целиком. Например, такой текст не будет обработан: 015-030
Параметры свойства "Find.Replacement.Text":
^& - искомый текст.
спасибо