Fletning af breve

Øh. Vi må vist have list mere info!
"...hvad de færdige breve skal kaldes..."
- Skal hvert flettet brev gemmes i sin egen fil?
- Eller skal der dannes eet samlet flettedokument?
Hvor skal de sendes hen?
- Skal de bare gemmes på disken?
- Eller skal de også udskrives?
Hvad med layout?
- Skal adressen bare placeres "oppe til venstre"?
- Eller skal den stå længere nede i dokumentet?
Hvad med udgangspunktet?
- Starter du med et tomt dokument?
- Eller bruger du en skabelon?

Det er lige meget hvad de kaldes.
Det skal være et fletet dokument, som gemmes på disken til senere udskrift.
Der skal bruges en skabelon til dokumentet.

Hermed i grove træk hvad du har brug for. Bemærk lige følgende:
- Microsoft har lemlæstet brevfletning i de seneste versioner, så Word har det bedst med at flette med Excel-data !?!
- Du skal derfor oprette en skabelon, der kigger ned i en Excel fil. Det er præcis som hvis du så ned i et Word dokument. (Her virker det bare)
- Det letteste er nok bare at fyre koden af. Herved dannes datafilen. Så kan du oprette skabelonen bagefter.
- Derpå burde den samlede pakke spille.

Koden:

Sub Test_Brevflet()
  Const FletteDokument = "C:\Temp\FletteData.xls"
  Const FletteSkabelon = "C:\Temp\BrevSkabelon.dot"
  Const ResultatDokument = "C:\Temp\ResultatDokument.doc"
  Dim WordApp As Word.Application
   
  ' Gem flettedata
  DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Q_FletteData", FletteDokument
 
  ' Kald Word
  Set WordApp = CreateObject("Word.Application")
  WordApp.Visible = True
  WordApp.Activate
  WordApp.WindowState = 1
 
  ' Opret nyt dokument
  WordApp.Documents.Add Template:=FletteSkabelon
 
  ' Gem
  WordApp.ActiveDocument.SaveAs FileName:=ResultatDokument
 
  WordApp.Visible = True
  Set WordApp = Nothing
End Sub

Ja den er sgu lige ved at være der. Jeg mangler bare at den fletter brevene og lukker igen.

Fremgangsmåde:
- Start makrooptageren i Word
- flet brevene osv.
- stop optageren
- aflæs kommandoerne i Word VBA og kopier dem
- indsæt dem i Access VBA (husk WordApp. foran hver kommando)
Det burde hjælpe dig på vej.

Det vil jeg prøve mange tak for hjælpen

Velbekomme. Takker for point ;o)