VBA initialer i word

Er ikke helt med på hvad du mener, men er det én af de properties der vises i det aktive dokument ved at køre følgende?:
Sub ListProperties()
    Dim rngDoc As Range
    Dim proDoc As DocumentProperty

    Set rngDoc = ActiveDocument.Content

    rngDoc.Collapse Direction:=wdCollapseEnd

    For Each proDoc In ActiveDocument.BuiltInDocumentProperties
        With rngDoc
            .InsertParagraphAfter
            .InsertAfter proDoc.Name & "= "
            On Error Resume Next
            .InsertAfter proDoc.Value
        End With
    Next
End Sub

Så kan den fx hentes sådan:
ActiveDocument.BuiltInDocumentProperties("Author")

Det kan gøres med "Application.UserInitials"

Textbox1.text = Application.UserInitials

Sådan som jeg forstår det, så er det de brugeroplysninger man indtaster istarten du mangler?

Det er dem som Application.UserInitials henter

Hej IT-GuFFe

Det viker bare super godt gider du lige skrive et svar så du kan få point

Her er et svar :)