Zum Inhalt springen

VBA - Daten von Access nach Word übergeben


Empfohlene Beiträge

Geschrieben

Hallo zusammen,

habe mich hier im Forum schon ein wenig informiert, habe aber leider keine Lösung für mein Problem gefunden. Ich soll aus Access 2003 mittels eines Formulares ein Word dokument öffnen. In diesem Formular habe ich einen "Button" eingefügt, der beim Click-Ereignis folgendes macht:

Private Sub Befehl49_Click()

Dim appWord As Object

On Error Resume Next

'Testen, ob Word aktiv ist

Set appWord = GetObject(, "Word.Application.8")

If Err.Number <> 0 Then

'Word ist nicht aktiv

Err.Clear

'Neue Word Instanz schaffen

Set appWord = CreateObject("Word.Application.8")

'Anzeigen

appWord.Documents.Add

appWord.Visible = True

Else

'Word aktivieren und Dokument öffnen

appWord.Activate

appWord.Documents.Open FileName:="Pfad zum Dokument"

appWord.Visible = True

appWord.bookmarks("FName") = Me.Ctl2_Vorname & Me.Ctl1_Nachname

End If

End Sub

An der fett markierten Stelle habe ich Probleme. Ich möchte an eine vorher definierte "Textmarke", in diesem Fall "FName" (Bookmark im Worddokument), den Inhalt von 2_Vorname und 1_Nachname geben, allerdings übergibt er die Inhalte nicht.

Um das zu realisieren, benötige ich eure Hilfe.

Wenn ihr eine Möglichkeit habt, die Daten an eine Textmarke oder an ein Formularfeld zu übergeben, immer her damit ;)

Gruß

easyflow

  • 4 Monate später...
Geschrieben

Vielleicht liegt es am value.. probiers mal aus..

appWord.bookmarks("FName") = Me.Ctl2_Vorname.value & Me.Ctl1_Nachname.value

Erstelle ein Benutzerkonto oder melde Dich an, um zu kommentieren

Du musst ein Benutzerkonto haben, um einen Kommentar verfassen zu können

Benutzerkonto erstellen

Neues Benutzerkonto für unsere Community erstellen. Es ist einfach!

Neues Benutzerkonto erstellen

Anmelden

Du hast bereits ein Benutzerkonto? Melde Dich hier an.

Jetzt anmelden

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...