MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Word
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 10.01.2017, 19:24   #1
Metro_82
Neuer Benutzer
Neuer Benutzer
Standard Word 2013 - Auswahlmenü und Datenfüllung in Word

Hallo Zusammen,

ich habe jetzt vieles versucht aber leider nichts akzeptables hinbekommen.
Folgende Aufgabe versuche ich umzusetzen:

Ich möchte in ein Word Dokument eine Auswahlbox integrieren in der ich 5 bis 10 Namen auswählen kann. In Abhängigkeit des Names sollen Daten automatisch ausgefüllt werden.

Layout:

Auswahl: Name

Wiedergabe:
Name, Vorname
Telefon
Fax
Email

Vielen Dank für eure Hilfe und Gruß
Metro
Metro_82 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.01.2017, 23:14   #2
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo Metro,

wenn du deine Mitarbeiterdaten in einer Excel-Tabelle pflegst, kannst du so vorgehen wie im angehängten Beispiel. Zum Testen beide Dateien in den gleichen Ordner kopieren.

Zur Orientierung: Die Prozedur Sub Document_New() liest die Excel-Tabelle in eine Array-Variable ein (diese ist im Modul.1 deklariert)und bestückt die Combobox mit den Namen. Die Prozedur Sub ContentControl_OnExit springt nach erfolgter Auswahl aus der Combobox an und füllt dir restlichen Felder.
Angehängte Dateien
Dateityp: dotm BriefMitCombobox.dotm (38,0 KB, 6x aufgerufen)
Dateityp: xlsx mitarbeiterliste.xlsx (10,8 KB, 5x aufgerufen)

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.01.2017, 14:11   #3
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo nochmal,

ich vergaß zu erwähnen, dass du alternativ, wenn du deine Mitarbeiterdaten in Excel pflegst, das ganze Vorhaben vermittels Serienbrief vollkommen makrofrei und unaufwändig hinkriegen würdest. Du müsstest halt statt aus einer Combobox auszuwählen, über Sendungen > Empfängerliste bearbeiten jeweils einen Datensatz herfiltern.

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.01.2017, 19:36   #4
Metro_82
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Gerhard,

vielen Dank für deine Hilfe. Ich habe heute schon etwas damit gespielt aber leider noch nicht in mein Vorhandenes Dokument übertragen können.
Ich möchte es noch etwas probieren um es zum Laufen zu bringen.
Falls möglich würde ich eventuell nochmal auf dich zukommen um deine Hilfe zu erfragen :-)

Schönen Abend
Guido
Metro_82 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.01.2017, 10:21   #5
Metro_82
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Ich habe nun folgendes beobachtet:

wenn ich die Formatvorlage öffne, wird ein DOK1.doxm erstellt, indem ich die Auswahl drop-down mit den richtigen Daten habe. Sobald ich diese Datei speicher, schließe und erneut öffne bekomme ich dann bei Auswahländerung die Fehlermeldung " Laufzeitfehler'13': Typen unverträglich.

Wenn ich in den Debug Modus gehe, springt er in die Zeile:
For i = 1 To ContentControl.DropdownListEntries.Count
If ContentControl.Range.Text = ContentControl.DropdownListEntries(i).Text Then
Exit For
End If
Next i

MsgBox Config(i, 1) & ": Telefon " & Config(i, 2)


With ActiveDocument
.SelectContentControlsByTag("Telefon").Item(1).Range.Text = Config(i, 2)
.SelectContentControlsByTag("Fax").Item(1).Range.Text = Config(i, 3)
.SelectContentControlsByTag("Email").Item(1).Range.Text = Config(i, 4)
End With

End Sub


Den Quelltext in ein neues Dokument einbinden funktioniert garnicht. Hierbei kommt sofort der Fehler '13'.
Vielleicht kann man mir hier nochmal helfen.

Danke und Gruß
Guido

Geändert von Metro_82 (18.01.2017 um 10:23 Uhr).
Metro_82 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.01.2017, 13:24   #6
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo Guido,

der Fehler passiert, wenn du versuchst, ein schon gespeichertes Dokument erneut zu öffnen um eine andere Auswahl zu treffen. Das geht schief, weil meine Lösung als Ausgangsdokument ein neues Dokument auf Basis der Dokumentvorlage (also des Dokuments mit der Endung *.dotm erwartet.

Ich beschreibe deshalb noch einmal den korrekten Weg, den du gehen musst, damit mein Lösungsvorschlag funktioniert:

1. Ausgangslage
Du hast in einem Ordner deine Dokumentvorlage (*.dotm) mit den Makros aus meiner Beispiel-Vorlage liegen. Im gleichen Ordner liegt auch die Datenquelle (in meinem Beispiel eine Excel-Mappe.

2. Neues Dokument erstellen
Du doppelklickst nun die Dokumentvorlage. Damit erzeugst du ein Dokument namens "Document1". In diesem Dokument triffst du nun deine Auswahl. Danach speicherst du es als ganz normales Dokument (Endung *.docx). Dieses Dokument kannst du drucken, ändern, oder was auch immer du möchtest. ABER:

3. Neues Dokument mit geänderter Auswahl erstellen
Um ein weiteres Dokument mit einer anderen Auswahl zu erzeugen, bearbeitest du NIE NICHT ein schon gespeichertes Dokument, sondern führst Schritt 2 erneut aus.

Sollte damit das Proble nicht behoben sein, dann hab ich zwei Fragen an dich:

"wenn ich die Formatvorlage öffne..."
Damit meinst du vermutlich eine Dokumentvorlage. Und da es eine Vorlage ist, muss sie die Endung *.dotm haben. In meinem Beispiel die BriefMitCombobox.dotm. Wie heißt dein Ausgangsdokument genau?

"...wird eine DOK1.doxm erstellt"
Sowas gibts es erstens nicht. Meinst du DOK1.docx? Oder DOK1.docm? Und meinst du wirklich DOK1 und nicht Document1?

Noch eine Bemerkung zu der Variablen "Config": Ich würde eine Variable nie so nennen, denn das ist ein reservierter Begriff, wenn auch nicht in VBA, dann doch auf Windows-Ebene. Bringe deinen Computer nicht unnötig durcheinander!

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:43 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.