Übergeben von Daten aus M.Access an M.Word!

Computer: Software & Programmierung Visual Basic
#1

Halli Hallo!

Bin neu in der Welt der VBA_Programmierung und hab da mal eine Frage!

Ich schreibe ein Kundenverwaltungsprogramm mit dem ich per button Microsoft Word aufmache! Das funktioniert ja noch, aber jetzt hab ich folgendes Problem! Ich soll beim Öffnen einer Vorlage, Daten (Anrede, Name etc.) mit übergeben! Kann mir von euch wer helfen und mir einen Tip geben oder mir sagen wie das funktioniert! das ich das ganze in Word mit Textmarekn machen muss weiss ich ja schon, nur codetechnisch versagt mein Wissen über VBA!

Danke im Vorraus

Karli

#2

na klar…
hallo vba_einsteiger,

du instanzierst dir in deinem vba-code die jeweiligen applikationen…
bsp:

Public m_excel As Excel.Application
Public m_wb As Excel.Workbook
Public m_word As Word.Application
Public m_doc As Word.Document

Set m_excel = New Excel.Application
m_excel.Visible = True
Set m_wb = m_excel.Workbooks.Add(logpath + „p_gebtel.xlt“)
m_wb.CustomDocumentProperties.Add „LOGUID“, False, 4, loguid
m_wb.CustomDocumentProperties.Add „LOGPWD“, False, 4, LOGPWD
m_wb.CustomDocumentProperties.Add „LOGDSN“, False, 4, logdsn

'makro im aufgerufenen dokument starten
With m_excel
.Run „main.start“
End With

im aufgerufenen dokument die übergebenen parameter folgendermaßen auslesen:

logdsn = ActiveDocument.Variables(„logdsn“).Value
loguid = ActiveDocument.Variables(„loguid“).Value
logpwd = ActiveDocument.Variables(„logpwd“).Value

hoffe es hilft

gruß

rasta

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Hallo, Karli!

Mit Deinen Textmarken ist das auch kein Problem. Du hast eine Dokumentvorlage (alternativ auch ein Dokument; da Code von mir aus laufendem Projekt rausgeschnipselt, entsprechend angepasst) „MeineVorlage.dot“ mit der Textmarke „Name“.

Dann:

dim gappWord as Word.Application
dim docZiel as Word.Document

set gappWord = CreateObject("Word.Application")
Set docZiel = gappWord.Documents.Add("MeineVorlage.dot")
docZiel.Activate
docZiel.Select
With gappWord.Selection
 .Goto wdGoToBookmark, , , "Name"
 .TypeText "Irgendein Klartext oder Verweis auf Recordset oder Formular oder sonst was, z. B.:" & rsTest("Name")
End With

So kannst Du auch über alle Word.Bookmarks rüberrennen und entsprechende Werte auslesen.

Gruß, Manfred