Umstellung von David-Dokumenten auf Word-Dokumente / Wie in David gespeicherte Adressen nutzen?

Hallo Arno,

wir verwenden bei einigen unserer Kunden den itacom Adressmerger; per Rechtsklick auf den David-Adresseintrag wird eine Wordvorlage aus einer Liste ausgewählt, in Word geöffnet und dort werden dann vorbereiteteTextfelder mit den Inhalten der Adresse ersetzt

CU
Barabas

Hallo zusammen,
ich habe mir ein kleines Script kopiert/geschrieben, mit dem ich aus einer Adresskarteikarte im David eine Wordvorlage öffnen kann und die Adresse automatisch übernommen wird:

'Skript ergänzt das Infocenter/Adresskartei um einen Button zum manuellen Erstellen eines einzelnen Briefes mit den Adressdaten


Sub Initialize (oInfoCenter, key)


'--------------------------------------------------------------------------------------------------------
'Adressübergabe an Word-gefunden in http://www.david-forum.de/index.php?page=Thread&threadID=9647&---------
'Das Icon wird, wenn es ohne Pfad angegeben ist im Verzeichnis "david\code\scripts" erwartet
Set oBar = oInfoCenter.GetCommandBar("AddressEditor/Standard")
oBar.Insert -1, "Bief", key, "winword.ico", "OnWord", true 


End Sub


'--------------Adressübergabe an Word für Brief -----------------------


sub OnWord(oInfoCenter, oContext)


	dim sDaddr, sSaddr, sWeb, sRun
	set oItem = oContext.Item
	'Set oAddressItem = oInfoCenter.Account.User.VCard


	Set objWord = CreateObject("Word.Application")
	objWord.Visible = True
	Set objDoc = objWord.Documents.add ("<Vorlagenpfad>\<Vorlagendatei>.dotx")
	Set objSelection = objWord.Selection


	objSelection.TypeText oItem.Company
	objSelection.TypeParagraph()
	if oItem.FirstName <> "" and oItem.LastName <> "" then
		objSelection.TypeText "z.H. "+oItem.Salutation+" "+oItem.FirstName+" "+oItem.LastName
		objSelection.TypeParagraph()
	end if
	objSelection.TypeText oItem.Street
	objSelection.TypeParagraph()
	objSelection.TypeParagraph()
	objSelection.TypeText oItem.ZipCode+" "+oItem.City
	objSelection.TypeParagraph()
	objSelection.TypeParagraph()


Set objWord = Nothing
end sub

Hinweise:
- <Vorlagenpfad\<Vorlagendatei> sind natürlich anzupassen.
- Geht derzeit nur mit den Geschäftsadressen und bei einem einzelnen Brief (keine Serienbriefe).
- Wie man die Privatadressen anspricht, weiß ich derzeit nicht, da ich die richtigen Felderbezeichnungen nicht kenne. Bin für Rückmeldungen natürlich dankbar.
- Die Word-Vorlage enthält keine Felder sondern wird quasi durch David mit Text und Umbrüchen ergänzt. Bei mir fängt er also in der obersten Zeile an, evtl. sollte der Cursor beim Abspeichern also an der richtigen Stelle sitzen.
- Das Skript wird bei allen Benutzern automatisch über die Einstellungen im Administrator geladen.

Grüße
Ming

Hallo,
da ich mich auch mit dieser Aufgabenstellung beschäftigen darf, habe ich eine Frage.
Das Skript von Ming funktioniert.

Wenn ich eine Vorlage habe wo bereits

@Firma
@Anrede @Nachname
@Strasse
stehen.

- Wie kann ich diese Platzhalter in der Vorlage mit den Adressdaten von david ersetzen?

Gruß

Weitere Frage:

Es gibt im Adresseintrag die Anschrift " Geschäftlich ", "Privat" und "Weitere".

Weiß jemand wie man die Privat und Weitere anspricht?

Mit:
set oItem = oContext.Item
oItem.Street

wird immer die Geschäftliche genommen.