PDA

Vollständige Version anzeigen : Spalten in Kombofeld verbinden


charlybrother
15.10.2001, 23:19
Hallo,
ich suche Lösung für folgende Aufgabe:
Inhalt einer Kombofeld wird ins Word eingefügt.
Einstellung:
Steuerelement: ungebunden
Herkunftstyp: Tabelle/Abfrage
Datensatzherkunft: Qry_Adressen
Spaltenzahl: 3
Gebundene Spalte. 1

Ich möchte aber alle 3 Spalten an Word senden

für ein Typ vielen dank

Charly

md
16.10.2001, 08:19
Hallo:
Teste mal
Drei Textfelder anlegen in der WordVorlage namens "Vorlage" im Vorlagenverzeichnis anlegen.
Kombofeld Auswahl
kombo_after_auswahl
Dim Word As Object

Set Word = CreateObject("word.application")
If Not Word Is Nothing Then
With Word
.Visible = True
.Documents.Add Template:="Vorlage.dot", NewTemplate:=False

.Selection.GoTo What:=wdGoToBookmark, Name:="Textmarke1"
.Selection.TypeText Text:=Auswahl
.Selection.GoTo What:=wdGoToBookmark, Name:="Textmarke2"
.Selection.TypeText Text:=Auswahl.Column(1)
.Selection.GoTo What:=wdGoToBookmark, Name:="Textmarke3"
.Selection.TypeText Text:=Auswahl.Column(2)
.Activate
End With
End If

MD

md
16.10.2001, 12:12
Hallo Charly!
Ich hab mich verschrieben, nicht Textfelder sondern textmarken müssen in der Vorlage angelegt werden, und zwar mit den Namen Textmarke1 Textmarke2 und Textmarke3.
Grüße
MD