Bruge Access som 'frontend' til at flette word dokumenter sammen

Hej kkc,

Jeg har nogle eksempler liggende på min hjemmeside, som benytter nogle af de teknikker, som du skal bruge for at få det til at virke (brevfletning, udvælgelse af fil vha FileOpen-dialogboksen m.m.)

Adressen er http://www.makeiteasy.dk/eksempler/Downloads.htm

Eksemplerne hedder bla.:
"Brevflet forespørgsel til word automatisk."
og
"Åbn Fil-dialogboks og åbning af vilkårlig fil fra Access"

Og et rigtig godt tip:

For at finde den kode, som skal bruges til at styre Word, kan du optage en makro i Word og derefter kopiere koden over i Access. Dog skal du typisk sætte dit Word-objekt/variabel foran alle sætninger.

>thomasjepsen

Jeg må jo indrømme at jeg har været fordi din hjemmeside før og hentet inspiration og har nok ikke tænkt at der lå nogle guldklumper her.
De to eksempler kan helt klart bruges - tak for det.
Men jeg mangler lidt hjælp til hvordan jeg kan splejse filerne sammen til ét dokument - den har jeg svært ved at hitte :(
Jeg arbejder på en løsning hvor man laver nogle hyperlinks til forskellige dokumenter
som man vælger i en rulleliste - hvorefter man ved en knap kan udprinte dem som ét dokument - og det sidste også gerne skulle kunne gemme det som et nyt 'samlet' dokument.

Jeg skal lige prøve at arbejde lidt med til tip med Word makro i Access

Jeg er ikke selv nogen haj til Word, så jeg ved ikke helt hvordan du splejser filerne sammen i Word (noget med Hoveddokuemt).
Men hvis du ved det, kan du bruge Makro-tricket

OK - jeg prøver lige. Funtionen i Word findes i menuen: Indsæt => Fil

Makroen jeg lavede i Word kom til at se således ud:

Sub flet()
'
' flet Makro
' Makro indspillet 04-03-2005 af KKC
'
    Selection.InsertFile FileName:="Publikation2.doc", Range:="", _
        ConfirmConversions:=False, Link:=False, Attachment:=False
End Sub

Hvordan kan denne kode anvendes såfremt det er en række dokumenter jeg har udvalgt i en liste (med hyperlink til de 'fysiske' dokumenter) skal sammenflettes ?

Jeg er til gengæld ikke nogen haj i Access kode - hvorfor jeg nok skal have det lidt mere præciseret

hvis du har stierne i en tabel, skal du lave et recordset som gennemløber tabellen:

Dim rs as ADODB.recordset
Set rs = New ADODB.Recordset
rs.Open "Din tabel", currentproject.connection
'...
'resten af din kode
'...
do Until rs.eof
    Wdoc.Selection.InsertFile FileName=rs!DinSti, Range:="", confirmConversions:=False, Link:=False, Attachment:=False
    rs.Movenext
loop

rs.close
set rs = nothing

>thomasjepsen

Send lige et svar så får du lige mine point

tak :o)

Men du skal kun give mig point, hvis du føler at du er kommet videre og har kunnet bruge mine svar til noget. Jeg kunne jo ikke give dig en fuldstændig løsning!

Du har skam hjulpet mig videre - så herfra endnu engang tak for dine input.