Udskrivning af sedler i Word fra Access

Du laver bormærker i dit Word-dokument, hvor data skal være.

Selve dataoverførslen til word kan du gøre på flg. måde. Private Sub rutinen henter dokumentet \"Opskrift.doc\", der ligger i mappen:

C:\\Programmer\\Microsoft Office\\Skabeloner

Derefter kaldes funktionen InsertAtBookmark, der checker om der findes et bogmærke med det navn som er angivet i Sub rutinen, f.eks. således:

Call InsertAtBookmark(WordDoc, \"Opskrift\", Me!Opskrift)

Hvor bogmærket \"Opskrift\", sættes = Me!Opskrift, altså formularens feltindhold.
For at Postnr og by skal kunne indsættes 3 gange indsætter du blot bogmærker, og kalder dem f.eks By, By1, By3. Husk at tilrette dine kommandolinier i Access, både i Sub-rutinen og i Function.

Det med antallet, har jeg ikke været inde på, men det må kunne løses. Det er ikke så lang tid siden, der har været et lignende spørgsmål. Jeg skal på arbejde om lidt, får du problemer, vil jeg ikke være istand til at svare før iaften ca 19:30. 


------kodestart-------

Private Sub Kommandoknap21_Click()
Dim objword As New Word.Application
Dim WordDoc As New Word.Document
Set WordDoc = objword.Documents.Add(\"C:\\Programmer\\Microsoft Office\\Skabeloner\\Opskrift.doc\")
Call InsertAtBookmark(WordDoc, \"Opskrift\", Me!Opskrift)
Call InsertAtBookmark(WordDoc, \"Nr\", Me!Nr)
objword.Visible = True
DoCmd.Hourglass False
End Sub
-------kodeslut-----
-------kodestart----
Function InsertAtBookmark(objWordDoc As Word.Document, strBookmark As String, strText As String) As Boolean
With objWordDoc.Bookmarks
If .Exists(strBookmark) Then
.Item(strBookmark).Range.Text = strText
InsertAtBookmark = True
End If
End With
End Function

-----kodesslut-----

Husk at kontrollere din reference til Word i Access, ellers kan Access ikke se Word, og du får en fejl:

Åbn db i et modulvindue (kodevindue). Tryk på Funktioner > Referencer, Browse ned i vinduet til du ser dit Word-bibliotek, og sæt et checkmærke i boksen udfor Word.

I engelske versioner Tools > References

Testdatabase er sendt.

ØHHHH kan en simpel brevfletning fra Word ikke gøre dette???

Jo - Det kan da sagtens laves med en brevfletning. Men jeg har forstået spørgsmålets titel sådan, at spørgeren vil stå i Access og derfra overføre formularens data til et Word dokument.

Det vil være mere simpelt end konstruere den kode jeg har skrevet ovenfor. Jeg har gjort det simpelt for spørgeren ved at sende en testdb med koden indlagt.

Hvis spørgeren ønsker en testdb med brevfletning, skal jeg da gerne lave den.:o)

Ny database samt Word-dokument sendt med brevfletning.

Tak For din store hjælp mugs

Jeg har bare et spørgsmål tilbage,

Hvis jeg skal have lavet  3 ens Post+By på et Worddokument og jeg skal have lavet 98 dokumenter
skal jeg så \" Insæt fletfeltet\" ca. 600 gange
Det er s.. mange indtastninger

Mvh Pejsen

UPS Det var s.. forkert pointdeling det skulle
have været omvendt, så Mugs fik 190 Point for hans
detaljeret arbejde og kedde65 fik 10 for hans indfald

kedde65 kan du ikke give mugs dine point i et nyt
spørgsmål der referer til dette

På forhånd Tak
Mvh Jan

Hej Jan

Jeg antager du arbejder med brevfletning.
Nej du skal kun indsætte felterne 3 gange på een side. Så har du 1 Word-dokument. Derefter kan du i Filer > Udskriv vælge det antal kopier du ønsker.
Du skal jo ikke have lavet 98 dokumenter - men 98 kopier af det samme dokument.

Tak for point - Skal på juleferie idag, så har du yderligere spørgsmål, er jeg først tilbage 28 DEC. God Jul.

Mvh / Mogens

Hej Mugs

Jeg skal jo bruge 98 dokumenter.
Hvert dokument indeholder 3 rækker med det samme postnummer/Postområder.
Og i Finland er der 98 forskellige postområder!!
og nogle gange skal jeg bruge 200 stk af DOKUMENT
1

mvh
Pejsen

Hej Jan

Jeg forstår ikke rigtigt hvad du mener!
Når du brevfletter, vælger du et postnummer og Word viser 1 dokument med de data du har valgt. Du udskriver derefter det antal kopier du vil have, ved at trykke på Filer > Udskriv og vælg antal som jeg har skrevet i min mail 24 DEC.

Når jeg tidligere har skrevet, at jeg først vil være tilbage 28 DEC, er det fordi jeg har en døgnvagt i morgen D 27, og først har fri 28 kl 0730. Men har du tid til at kommentere 27 DEC, vil jeg checke svarene på mion arbejdsplads, men det er ikke sikkert jeg har til til at svare. 

Jan

Se bort fra ovenstående kommentar - Jeg her først nu set din mail af 24 DEc kl 14:19. jeg arbejder på sagen.

Mvh / Mogens

Som svar på tilsendte databaser, har spørgeren svaret mig privat med supplerende oplysninger om bl.a. til hvilket arbejdsmæssigt brug databasen skal benyttes.

Da svaret indeholder oplysninger om bl.a. hvilken type firma, det drejer sig om, samt andre oplysninger, der ikke bør beskrives nærmere i et offentligt forum, kan der ikke gives yderligere oplysninger udover:

- Jeg har tilsendt spørgeren en ny db, der ikke fletter eller sender data til Word. 
- Opgaven går udelukkende på, at udskrive X antal kopier af en rapport, afhængig af antal kunder i et forudbestemt geografisk område. Dette geografiske område er indsat som et kriterie i forespørgslen.   

>Mugs


Jeg tror du har glemt at Vedhæfte Databasen i den mail du har sendt on 26-12-01 22:04

Mvh
Pejsen

Fan.... Og du kan ikke får den før imorgen.
Beklager.