Spørg efter initialer ved start af brevflet gerne VBA

her er den eksisterende kode. Den åbner kriterievælgeren fra brevflet. som er predefineret med ubj, som brugeren skal overskrive.

Sub AutoNew()
'
''Vis dataindtastningsbox Flette-forespørgsel
    Dialogs(wdDialogMailMergeQueryOptions).Show
'Husk vinduets navn
    WinName = ActiveWindow
'Flet Posten til nyt dokument, når brugeren har skrevet initialer
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = 1
            .LastRecord = 1
        End With
        .Execute Pause:=False
    End With
'Luk skabelon-dokumentet
    Windows(WinName).Close (wdDoNotSaveChanges)

End Sub

Prøv denne i stedet:

Dialogs(wdDialogMailMergeRecipients).Display