Word Active-X Steuerelement Textfeld mit einem Wert aus Access ausfüllen

[zorlayan]

Hallo,

wie kann ich einen Wert aus Access Formular zu einem bestimmten Textfeld in Word-Datei zuweisen?
Mit den folgenden Code habe ich probiert aber es hat nicht geklappt.

Code (vb) [Auswählen] Erweitern

Sub Füllen_Click ()
Dim K1 As String
K1=Me.Anrede
    Dim objWord As Word.Application
    Set objWord = CreateObject("Word.Application")

With objWord
        .Visible = True
        .Documents.Open "C:\Inland.docm"       'das zu öffnende Worddokument
    'Ausfüllen des Dokuments

    .ActiveDocument.Bookmarks("KTitel").Select
    .Selection.InsertAfter (K1)
 
    End With
End Sub

Vielen Dank

[markusxy]

Bei einem Bookmark mache ich das so:

Document.Bookmarks.Item("Name").Range.Text = "mein Text"

Hab ich auch irgend wann kopiert, da ich mich mit Word nicht auskenne.
Ansonsten sind deine Fragen in einem Word Forum besser aufgehoben.

[DF6GL]

Hallo,

WAS hat nicht "geklappt"?  Gibt es eine Fehlermeldung?

Der Code an sich funktioniert.

Es kann sein, dass es keine Schreibrechte für das Root-Laufwerk (C:)  gibt.
Es kann sein, dass das "Dokument mit Makros" (".dotm") keine Ausführungsberechtigung besitzt (Sicherheitscenter).
Es kann sein, dass  "Me.Anrede" keinen Inhalt hat.
Es kann sein, dass mehrfache Wordinstanzen existieren.

[zorlayan]

Hallo,

vielen Dank für die schnellere Antwort.
Ich habe im Formular den alten Textfeld anstelle Active-X Textfeld genommen und funktioniert einwandfrei.

Grüße,
Zorlayan