есть маленкий макрос,
подскажите, как извлечь из названия часть -- убрать расширение и извлечь последние четыре символа
Sub DnN()
'Dim ADName As String
Dim X As Double, Y As Double, w As Double, h As Double
Set doc = ActiveDocument
doc.BeginCommandGroup...