+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: Text Elemente per Kontrollkästchen an Word senden (/thread-28324.html)
Text Elemente per Kontrollkästchen an Word senden - henry1456 - 08.07.2022
Hallo,
ich habe folgendes Problem oder Anliegen:
Ich möchte vorgefertigte Textelemente mittels einem Kontrollkästchen auswählen und dann diesen besagten Text, welcher ausgewählt wurde an Word senden. Hierbei sollen, dann nur nach den entsprechenden Blöchen eine Leerzeile entstehen.
Leider habe ich keine Ahjnung wie ich sowas realisieren kann.
Von VBA habe ich leider keine Ahnung.
Ich habe hier mal ein Beispiel, welches ich aus dem Word Formun herauskopiert habe, leider geht es mit Word nicht mit den Tools, welche zur Verfügung gestellt werden.
Motivation
( ) Der Kunde war zu Beginn der Maßnahme motiviert.
( ) Der Kunde war während der gesamten Maßnahme motiviert.
( ) Der Kunde war durchschnittlich motiviert.
( ) Der Kunde wurde durch Hilfestellungen bei der Motivation unterstützt.
Unterlagen
( ) Der Kunde brachte alle Unterlagen sofort bei.
( ) Der Kunde musste zur Abgabe der Unterlagen mehrfach aufgefordert werden.
In diesem Beispiel sollte dann, wenn z.B Motivation "( ) Der Kunde war während der gesamten Maßnahme motiviert." ausgewählt wurde folgendes in Word dann erscheinen:
Motivation
Der Kunde war während der gesamten Maßnahme motiviert.
Und wenn dann entsprechend der weiteren Kategorien .... Unterlagen usw. ... Was ausgewählt wurde auch die Überschrift und dann die entsprechenden Texte welche per Kontrollkästchen ausgewählt wurden.
Wenn in einem Block nichts ausgewählt wurde, dann sollte entsprechende auch nichts übernommen werden.
Die Übergabe an Word ist nicht zwingend, wenn es in excel in einer neuen Arbeitsmappe ebenso geht, kann man auch diese Variante wählen, der Hintergrund ist dieser, dass ich den Text dann entsprechend kopieren sollte und in einem Externen Programm wieder eintragen.
Somit würde mein Arbeitsaufwand wsentlich verringert werden.
Hoffe ich habe mich verständlich ausgedrückt.
Auf Eure Hilfe freue ich mich.
Vielen Dank schon mal
RE: Text Elemente per Kontrollkästchen an Word senden - PetrolMaxxe - 08.07.2022
Hallo,
es geht sowohl von Excel --> Word als auch in Excel.
Lade bitte die zwei/eine Datei(en) hoch wo, alle zur Weiterverarbeitung erforderlichen Inhalte anonymisiert drinstehen.
Gruß Uwe
RE: Text Elemente per Kontrollkästchen an Word senden - henry1456 - 08.07.2022
Hallo,
ich habe eine Beispieldatei Hochgeladen.
Das Ergebnis, wie es ausschauen soll habe ich auf der rechten Seite kopiert.
Hoffe es ist verständlich.
Im Originaltext geht es um 5 Punkte wo darunter jeweils ca. 10 verschiedene Auswahltexte sind.
Manchmal werden nur 3 der 5 Punkte mit dem jeweiligen Text benötigt.
Es sollte so sein, dass ich immer den Text auf einfache Art und weise anpassen kann.
Vielen Dank für ihre Bemühungen
RE: Text Elemente per Kontrollkästchen an Word senden - PetrolMaxxe - 10.07.2022
Hallo Henry,
anbei ein Lösungsweg.
Pfad der Worddatei musst du an den Speicherort anpassen (Modul1 Zeile 49).
Gruß Uwe
RE: Text Elemente per Kontrollkästchen an Word senden - PetrolMaxxe - 10.07.2022
Hab noch ein Problem entdeckt. Tausche im Modul1 diese Prozedur aus:
Code:
Sub AusgabeInWord()
Dim Pfad As String, WdApp As Object, wdDok As Object, i As Long
'*********************** Speicherpfad einstellen *******************************
Pfad = "F:\problemstellung\Excel zu Word\Checkboxen Text nach word\Ausgabe.docx" '*
'*******************************************************************************
With Tabelle1
.Range("D1:D" & .Cells(Rows.Count, 4).End(xlUp).Row).Copy
End With
Set WdApp = CreateObject("Word.Application")
Set wdDok = WdApp.Documents.Open(Filename:=Pfad, ReadOnly:=False)
WdApp.Visible = True
WdApp.Selection.PasteExcelTable False, False, False
Set wdDok = Nothing
Set WdApp = Nothing
Application.CutCopyMode = False
With Tabelle1
For i = 8 To 1 Step -1
.OLEObjects("CheckBox" & i).Object.Value = False
Next i
End With
End Sub