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 … 
Vielen Dank im voraus !!!
Gruß
Sven
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
…
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)