Как мога да си направя динамично поле?

Здравей, това с точно определени символи, които да се взимат от името на файла може да стане с макрос.

Sub PartFilenameInHeader() Dim sName As String

Dim J As Long

sName = ActiveDocument.Name
J = InStrRev(sName, ".")
If J > 0 Then
    sName = Left(sName, J - 1)
    If Len(sName) > 3 Then
        sName = Right(sName, 3)
    End If

    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
      ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    'Selection.WholeStory
    'Selection.Delete
    Selection.TypeText Text:=sName
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
Else
    MsgBox "Document has no filename extension."
End If

End Sub

Идеята му е да кликнеш някъде в Header - a и там където си кликнла ще се запишат последните три букви от заглавието на файла. НЕ Е Динамично обаче, само че става с един клик. Може да не е в Header - a, може да е на друго място само трябва да промениш малко кода.

Може да има нещо по добро което да е динамично ако някой има нещо ще се радвам да го сподели в темата.

Здравейте, благодаря за отговора. Понеже не съм гледал още курса за макросите, може ли малко по-подробно да ми обясните как да го въведа? В случая не ми трябва номера да бъде в Header-a. Прилагам снимка : https://postimg.org/image/szdrg0d9p/ . В празното поле на "З А Я В К А №" искам да се покажат последните цифри от името на файла.

Прочетох въпросите и отговорите.Изясниха се нещата. Благодаря!