Macro til udskrivning

Denne linie er lidt modstridende:
- Den flettede fil lukkes og jeg vender tilbage til hoveddoc. der er flettet med excel regnearket.

Det er den flettede fil, der er flettet med datakilden, ikke hoveddokumentet.

All right. Men det den flettede fil der skal lukkes - Herefter vender jeg vel automatisk tilbage til det dokument som er flettet sammen med excelregnearket. Således at kan jeg bruge macroen igen.

Prøv denne:

Sub mailm()
Dim intAntalKopier As Integer
Dim bolFejl As Boolean
Dim dlgAbout As Integer
Dim strHoveddokument As String
Dim strGammeSti As String


'Viser dialogboksen, hvor der kan vælges modtagere
dlgAbout = Dialogs(wdDialogMailMergeRecipients).Display

strHoveddokument = ActiveDocument.Name

'En løkke der sikrer at det er et tal der tastes
Do
    On Error Resume Next
    intAntalKopier = InputBox("Indtast antal kopier")
   
    If Err Then
        bolFejl = True
        On Error GoTo 0
        Else
        bolFejl = False
    End If
Loop Until bolFejl = False
   
'Fletter modtageren
With ActiveDocument.MailMerge
    .Destination = wdSendToNewDocument
    .SuppressBlankLines = True
    With .DataSource
        .FirstRecord = wdDefaultFirstRecord
        .LastRecord = wdDefaultLastRecord
    End With
    .Execute Pause:=False
End With

'Printer det rigtige antal kopier
ActiveDocument.PrintOut Copies:=intAntalKopier

'Ændrer stien til default gem
strGammeSti = Options.DefaultFilePath(wdDocumentsPath)
Options.DefaultFilePath(Path:=wdDocumentsPath) = "C:\"

'Viser dialogboksen "Gem som"
dlgAbout = Dialogs(wdDialogFileSaveAs).Show

'Lukker det flettede dokument
ActiveDocument.Close False

'Sætter den stien tilbage igen
Options.DefaultFilePath(Path:=wdDocumentsPath) = strGammeSti

'Aktiverer hoveddokumentet
Documents(strHoveddokument).Activate
   
End Sub

Den virker sikkert kun fra Office XP og frem, da mailmerge objektet er ændret

hey - jeg har office2000. Gør det noget??

Prøv :-)

dlgAbout = Dialogs(wdDialogMailMergeRecipients).Display

Denne linie vil den ikke godtage.

Du bliver nød til at have Word XP for at kunne vælge modtagere via brevflet

Ellers skal der ikke brevflettes, men designes en dialogboks, der henter alle rækkerne fra Excel, hvor man så kan vælge en post og denne post sættes så ind i Word.