Aktuális körlevél rekord mentése

egyesit.bas

Sub Egyesit()
'
' Egyesit Makró
'
'
Dim adatszolg As String
Dim adoc As String

    adatszolg = ActiveDocument.MailMerge.DataSource.DataFields("Adatszolg").Value

    adatszolg = Replace(adatszolg, "-", "_")
    adatszolg = Replace(adatszolg, "/", "_")



    adoc = ActiveDocument.Name
    adoc = adatszolg + "_" + adoc
    adoc = Replace(adoc, "docm", "docx")
    Debug.Print adoc



    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
            .LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
        End With
        .Execute Pause:=False
    End With
    
    ActiveDocument.SaveAs2 adoc
    
End Sub