overfør værdi til word i flet felter eller lign.

Det er ret omfattende at forklare, men jeg kan sende dig et eksempel. Blot læg din e-mail.

bare smid eksemplet her :-)

Private Sub Kommandoknap21_Click()
Dim objword As New Word.Application
Du skal have en reference til Word.

Dette er navnet og placeringen til din skabelon:
("D:\Opskrifter\Opskrift.doc")

"Nr" er navnet på dit bogmærke i Word hvor data skal indsættes. Me!Nr refererer til den aktuelle formular's felt Nr: 
Call InsertAtBookmark(WordDoc, "Nr", Me!Nr)


Dim WordDoc As New Word.Document
Set WordDoc = objword.Documents.Add("D:\Opskrifter\Opskrift.doc")
Call InsertAtBookmark(WordDoc, "Opskrift", Me!Opskrift)
Call InsertAtBookmark(WordDoc, "Nr", Me!Nr)
Call InsertAtBookmark(WordDoc, "Krydderi", Me!Krydderi)
Call InsertAtBookmark(WordDoc, "Dato", Me!Dato)
Call InsertAtBookmark(WordDoc, "MType", Me!MType)
Call InsertAtBookmark(WordDoc, "Personer", Me!Personer)
objword.Visible = True
DoCmd.Hourglass False
End Sub

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

når du siger  ref til word, går jeg ud fra du tænker på tools->references->Microsoft Word 11.0 Object Library

Ja.

Jeg ville nok bare gå i funktioner, breve og forsendelser, brevfletning i word. Der er en guide hvor du også kan vælge modtagere fra en database osv... Var det ikke det du mente?

madsnb > Er det ikke i Word?
Spørgsmålet lød;

jeg står på en record i min db

whoops missede lige den lille detalje...

:o)

mugs>> det virker, men jeg ville nu gerne bruge flettefelter, sjovt som man bliver kræsen :-D
Hvis det ikke er ligetil, så benytter jeg bookmarks og løser prob. med dokumentbeskyttelse på anden måde

Du kan åbne din word skabelon fra Access. Denne skal så være med en brevfletning som træder i kraft når du åbner Word.

ja, men hvordan?

Denne er igen hentet fra mit eksempel. Denne:

D:\opskrifter\
viser hvor Word-filen ligger

Denne:
docname = dir & Me.Nr & ext
Refererer til feltet Nr i formularen som er navnet på wordfilen

Til sidst sættes extension på:
Const ext As String = ".doc"

Måske kan du fifle det lidt til, så det passer til dit program. Jeg er lige væk et times tid.


On Error GoTo err_open
Dim docname As String
Dim objword As Word.Application
Dim objdoc As Word.Document
Const dir As String = "D:\opskrifter\"
Const ext As String = ".doc"
docname = dir & Me.Nr & ext
On Error Resume Next
Set objword = GetObject(, "Word.Application")
Err.Clear
On Error GoTo err_open
If objword Is Nothing Then
Set objword = GetObject("", "Word.Application")
End If
objword.Visible = True
AppActivate "Microsoft Word"
objword.Documents.Open docname
Exit Sub
err_open:
MsgBox "fejlkode: " & Err.Number

Ps.: Prøv at søge i ekspertens vidensbase. Jeg er sikker på der ligger adskillige emsempler med Shell funktionen som er noget nemmere at have med at gøre.