Flette til flere dokumenter

Hvad er dit formå?

Er det for at kunne gemme dokumenterne enkeltvis, eller...?

Disse dokumenter skal e-mailes og gemmes enkeltvis.

Jesper

Du kan flette direkte til mail-programmet. Herved gemmes dokumenterne i sendt post-mappen.

'Denne makro gemmer hver sektion i et dokument i hvert sit dokument

Sub UdskrivHverSektionForSigSelv()
'Denne makro gemmer hver sektion i et dokument i hvert sit dokument
    Svar = InputBox("Indtast filnavn", "Filnavn")
    Navn = ActiveDocument.Name
   
    NrSec = ActiveDocument.Sections.Count
    For i = 1 To NrSec
        ActiveDocument.Sections(i).Range.Select
        Selection.Copy
        Documents.Add DocumentType:=wdNewBlankDocument
        Selection.Paste
        ActiveDocument.SaveAs Svar & i
        ActiveDocument.Close
    Next
End Sub

rvm:

Fungerer rigtig godt, men der tilføjes en ekstra blank side. Jeg kan dog ikke rigtig se hvor.

Prøv med denne modifikation:

Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend 'Så der ikke kommer en ekstra side ud

Sub UdskrivHverSektionForSigSelv()
'Denne makro gemmer hver sektion i et dokument i hvert sit dokument
    Svar = InputBox("Indtast filnavn", "Filnavn")
    Navn = ActiveDocument.Name
   
    NrSec = ActiveDocument.Sections.Count
    For i = 1 To NrSec
        ActiveDocument.Sections(i).Range.Select
        Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend 'Så der ikke kommer en ekstra side ud
        Selection.Copy
        Documents.Add DocumentType:=wdNewBlankDocument
        Selection.Paste
        ActiveDocument.SaveAs Svar & i
        ActiveDocument.Close
    Next
End Sub

Fjerne den ekstra side, men laver følgende besked:
Run-time error '4605'

Denne metode eller egenskab er ikke tilgængelig, da der ikke er markeret nogen tekst.

Den fejler ikke hos mig - hmmm

Prøv at sende et testdokument til mig, så kan jeg ligge tjekke det helt nøjagtigt - rvejemad@csc.com

Jeg har prøvet med et blankt testdokument, med et enkelt felt flettefelt, og en excel fil med tre navne, intet andet.

Hvis jeg markerer hele dokumentet kører det fint, men hvis jeg ikke markerer helt dokumentet kommer fejlen.

Du skal ikke markere noget - det gør makroen. Når du har flettet dit dokument, så kør makroen på det flettede dokument - det skulle virke *S*

Jeg får samme fejl, hvis jeg kører på hjemmepc med samme Word version. Dokumentet er ikke en kopi, men skabt på samme måde. Jeg mailer dem lige til dig.

Den kommer ved den sidste Selection.Copy

Når man brevfletter sætter den et ekstra sektionsskifte ind - det har jeg håndteret således:

Sub GemHverSektionForSigSelv()
'Denne makro gemmer hver sektion i et dokument i hvert sit dokument
    Svar = InputBox("Indtast filnavn", "Filnavn")
 
    NrSec = ActiveDocument.Sections.Count
    For i = 1 To NrSec
        ActiveDocument.Sections(i).Range.Select
        Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
        If Selection.Type = wdSelectionNormal Then
            Selection.Copy
            Documents.Add DocumentType:=wdNewBlankDocument
            Selection.Paste
            ActiveDocument.SaveAs Svar & i
            ActiveDocument.Close
        End If   
    Next
End Sub