Inhalt einer Variablen über Strg-V abfragen

Computer: Software & Programmierung Microsoft Access
#1

Hallo allerseits,

ich weiss, dass das eigentlich nicht der richtige Weg ist, aber ich habe in einer Datenbank mit VBA eine Variable definiert, die mir ein komplettes Adressfeld (mit Zeilenumbruch etc.) liefert.

Den Inhalt dieser Variablen „Adresse“ möchte ich jetzt per Knopfdruck in den Arbeitsspeicher schicken, um sie mit Strg-V bzw. Ctrl-V unter Word an der richtigen Stelle einzufügen.

Wie geht das ?

Meine Traumvorstellung wäre eigentlich anders: nach dem Knopfdruck testet Access zunächst, ob Word geöffnet ist oder nicht; falls nicht, öffnet es. Dann wird die Dokumentvorlage „Briefbogen“ geöffnet und der Inhalt der Variablen eingefügt.

Wer mir mit dem ersten Teil nicht weiter helfen kann: alternativ würde ich auch eine Lösung für Teil 2 gelten lassen … :wink:

Vielen Dank im voraus !!!
Gruß
Sven

#2

Hallo Sven-Eric,

wenn Du willst, kann ich Dir mal eine Beispiel-Datei schicken, die sowas macht

gruss moritzbock

Hallo allerseits,

…
Meine Traumvorstellung wäre eigentlich anders: nach dem
Knopfdruck testet Access zunächst, ob Word geöffnet ist oder
nicht; falls nicht, öffnet es. Dann wird die Dokumentvorlage
„Briefbogen“ geöffnet und der Inhalt der Variablen eingefügt.

Wer mir mit dem ersten Teil nicht weiter helfen kann:
alternativ würde ich auch eine Lösung für Teil 2 gelten lassen
… :wink:

#3

Warum bedienst du Word nicht per Automation?
z.B. so:

Dim Tmp, WordObj As Word.Application
 On Error Resume Next
 Set WordObj = GetObject(, "Word.Application ")
 If Err.Number 0 Then Set WordObj = CreateObject("Word.Application")
 On Error GoTo 0
 With WordObj
 .Visible = True
 .Activate
 .Documents.Add "C:\Samples\vorlage.dot"
 Tmp = "Herrn " & Me!Vorname & " " & Me!Nachname & \_
 vbCrLf & Me!Strasse & vbCrLf & Me!PLZ & " " & Me!Ort
 With .Selection
 .Goto What:=wdGoToBookmark, Name:="Anrede"
 .TypeText Text:=Tmp
 End With
 .ActiveDocument.SaveAs FileName:="C:\Ablage\Wasauchimmer.doc", \_
 FileFormat:=wdFormatDocument
 .Application.Quit
 End With
 Set WordObj = Nothing

Gruß aus dem Norden
Reinhard Kraasch
(http://www.kraasch.de - Access Tipps & Tricks)