Text mittels Checkbox in Word einblenden (VBA, Macros...)?

Hallo zusammen,

ich stehe vor einem (für mich sehr großen) Word-Problem: Ich möchte zwei Checkboxen einfügen (aus der Kategorie Entwicklertools > Steuerelemente > Active X Kontrollkästchen), welche beim Anklicken jeweils einen bestimmten Text anzeigen bzw. wieder ausblenden.

Aus meiner bisherigen Recherche habe ich herausgefunden, dass das wohl durch Macros funktionieren sollte, damit kenne ich mich aber absolut nicht aus und meine bisherigen Versuche, einen Code aus dem Internet einzufügen, sind auch alle fehlgeschlagen.

Wenn sich irgendjemand in der Lage fühlt, mir weiterzuhelfen und einen entsprechenden Code zur Verfügung zu stellen, tausend Dank schon mal im Voraus!!

3 Antworten

Vom Fragesteller als hilfreich ausgezeichnet

geri3d

Nutzer, der sehr aktiv auf gutefrage ist

im Thema programmieren

02.09.2020, 14:22

VBA ist eine stärke von mir aber in Excel ich versuch das mal in Word:

Private Sub CheckBox1_Click()
    If Application.ActiveDocument.CheckBox1.Value = True Then
        Application.ActiveDocument.TextBox1 = "Beispieltext"
    Else
        Application.ActiveDocument.TextBox1.Text = ""
    End If
End Sub

Dazu ist noch eine Textbox nötig.

Woher ich das weiß:eigene Erfahrung

amelie802

Fragesteller

02.09.2020, 14:51

Vielen Vielen Dank für die schnelle Hilfe! Es funktioniert! Jetzt habe ich nochmal eine Frage, denn der Text, der erscheinen soll, hat mehrere (Leer)Zeilen und Absätze. Wie setze ich das am Besten um? Ich kann das ja nicht einfach so eintippen, da wo jetzt "Beispieltext" steht...?

geri3d

02.09.2020, 15:05

@amelie802

Einen Zeilenumbruch bekommst du in der Textbox mit

TextBox1.Text="Beispieltext" & vbCrLf & "Zweite Zeile" & vbCrLf & vbCrlf & "Absatz"

Aber ich denke eine Textbox ist nicht das ideale. Leider weiß ich nicht wie man einen Textbaustein bennenen und ein und ausblenden kann, das müsste ich mir erst anschauen, wie gesagt VBA ist nur ein Steckenpferd, ich programmiere am liebsten in VB.Net

geri3d

02.09.2020, 15:15

@amelie802

Du musst bei der Textbox unter Eigenschaften noch Multilne von False auf True stellen. Einfach im Entwurfsmodus rechte Maus auf die Textbox !!!

amelie802

Fragesteller

02.09.2020, 15:26

@geri3d

okay, gibt es auch die Möglichkeit, anstelle des Textfelds eine Tabelle einzufügen, wo die Benutzer des Dokuments noch Dinge eintragen können? Meinetwegen auch dass eine Tabelle aus einem anderen Dokument eingesetzt wird, wenn das funktioniert...?

geri3d

02.09.2020, 15:49

@amelie802

Ja müsste gehen, habs probiert, eine einzelne Zelle auszublenden.

Tabelle einfügen und diesen Code verwenden, damit wird die 1. Zeile ausgeblendet. Du kannst das VBA Script erweitern, damit alle Zeilen ausgeblendet werden.

Private Sub CheckBox1_Click()
    If Application.ActiveDocument.CheckBox1.Value = True Then
        ActiveDocument.Tables(1).Rows(1).Select
        Selection.Font.Hidden = False
    Else
        ActiveDocument.Tables(1).Rows(1).Select
        Selection.Font.Hidden = True
    End If
End Sub

geri3d

02.09.2020, 16:00

@amelie802

Noch mal mit ganzer Tabelle:

Private Sub CheckBox1_Click()
    If Application.ActiveDocument.CheckBox1.Value = True Then
        ActiveDocument.Tables(1).Select
        Selection.Font.Hidden = False
    Else
        ActiveDocument.Tables(1).Select
        Selection.Font.Hidden = True
    End If
End Sub

Eintragen kann man auch was.

geri3d

Nutzer, der sehr aktiv auf gutefrage ist

im Thema programmieren

02.09.2020, 15:25

Die Textbox auf Multiline True stellen in den Eigenschaften. Bei mir sieht das so aus:

Bild zum Beitrag

Woher ich das weiß:eigene Erfahrung

- (Computer, programmieren, Microsoft Excel)

geri3d

Nutzer, der sehr aktiv auf gutefrage ist

im Thema programmieren

02.09.2020, 16:04

Bild zum Beitrag

Private Sub CheckBox1_Click()
    If Application.ActiveDocument.CheckBox1.Value = True Then
        ActiveDocument.Tables(1).Select
        Selection.Font.Hidden = False
    Else
        ActiveDocument.Tables(1).Select
        Selection.Font.Hidden = True
    End If
End Sub

Woher ich das weiß:Hobby

amelie802

Fragesteller

02.09.2020, 16:41

das klappt bei mir aktuell noch nicht. Wenn ich die Checkbox anklicke, wird zwar die Tabelle markiert, aber sonst passiert nichts :(

geri3d

02.09.2020, 16:44

@amelie802

komisch bei mit klappt es ich verwende Office 2007

amelie802

Fragesteller

02.09.2020, 17:00

@geri3d

okay, wie auch immer. Du hast mir so sehr weitergeholfen, ich danke dir von ganzem Herzen!!!

Ähnliche Fragen

Word VBA bestimmten Text fett anzeigen?

Hallo zusammen,

bei meiner Frage vor einigen Tagen (https://www.gutefrage.net/frage/text-mittels-checkbox-in-word-einblenden-vba-macros) habe ich erfahren, wie man per VBA Text durch Checkboxen anzeigen lassen kann.

Es handelt sich hier allerdings nicht um einzelne Wörter, sondern um ganz Absätze, die einer gewissen Formatierung bedürfen. Gibt es eine Möglichkeit, den Code im VBA-Editor so zu verändern, dass einzelne Worte fett oder unterstrichen angezeigt werden?

Herzlichen Dank im Voraus für hilfreiche Antworten!

...zur Frage

Farbe für ausgewähltes Formular Kontrollkästchen in Word ändern?

Brauche Hilfe mit einigen Formular Kontrollkästchen: Sie soll bei aktiv die Hintergrundfarbe grün (erledigt) erhalten. Ich habe es schon per macro versucht und auch per VBA, aber es scheint das ich dafür Profi-Hilfe brauche. Bitte gebt mir einen Tip wie ich das hin bekomme. Ich habe ein Formular das 20 Kontrollkästchen aus der Steuerelemente (Entwicklertools) hat und alle die, die aktiviert wurden sollen als grüne Kästchen erscheinen. Besten Dank vorab

...zur Frage

VBA Programmierung in Word: In Tabelle Zeilen aus-/einblenden und mit Text füllen

Guten Tag! Ich habe in Word eine Tabelle mit zwei Checkboxen erstellt (siehe Bild 1), wenn man auf Ja klickt passiert soweit nichts, wenn man auf Nein klickt soll der Inhalt der darunter liegenden Zeile eigentlich ausgeblendet werden und darunter soll dann ein Text eingeblendet werden (Z.B: Hiermit erklären Sie sich einverstanden das Sie auf Datensicherung verzichten usw.).

Da ich mich zum ersten mal mit der VBA Programmierung in Word beschäftige, bin ich ziemlich ratlos was ich noch machen kann. Mithilfe von Google habe ich schon folgendes geschafft:

Private Sub OptNo_Click()

If OptNo = True Then
    With ActiveDocument.Tables(1)
        .Rows(2).Select: Selection.Delete
    End With
End If

End Sub

Wie ihr sehen könnt, wird die Zeile geleert. Der Text sollte eigentlich nur ausgeblendet werden, damit man ihn bei Klick auf Ja wieder einblenden kann. Außerdem weiß ich nicht wie ich dann in die geleerte Zeile oder darunter einen Text einfügen kann.

Ich wäre euch für eure Hilfe sehr dankbar Mfg Chaosboy

...zur Frage

Microsoft office excel VBA Makro zum Drucken versch Druckbereiche?

Hallo,

ich schreibe gerade an einem Drucker Makro mit UserForm.

Auf der UserForm sind mehrere CheckBoxen, und ein Durck-Button.

Das Ziel ist es: Z.b. dass man CheckBox1 und CheckBox3 anklickt und so die beiden Druckbereiche ausgewählt werden. Beim drücken des "Drucken" Buttons sollen dann die beiden druckbereiche jeweils auf eine seite gedruckt werden.

Ich habs soweit hinbekommen, dass sich über die checkboxen die richtigen druckbereiche auswählen lassen. JEDOCH lassen sich zwar mehrere checkboxen ankreuzen, jedoch druckt es letzendlich immer nur eine seite mit dem Druckbereich des letzt gedrückten checkbox.

Also prinzipiell könnte man wenn man z.b. Checkbox1 und checkbox 3 gedruckt haben will. Nacheinander die 1 anwählen drucken drücken und dann die 3 anwählen drucken drücken.

Das Ziel ist es aber dass beide gleichzeitig angewählt sein können und dann auch beide gedruckt werden auf jeweils eine seite.

Welchen code muss ich ergänzen? und vorallem wo?

Vielen dank

...zur Frage

Excel Formular Checkboxen?

Hallo zusammen, Ich muss ein Excel Formular erstellen, hierzu soll es möglich sein verschiedene Checkboxen auszuwählen. Sobald diese ausgewählt sind, soll darunter der jeweils relevante Teil (Tabellen, weiter Checkboxen, Text) dann eingeblendet werden.

Mit VGA habe ich mich schon versucht auseinander zusetzen, bin nur leider ein Anfänger weshalb ich bislang einfach keine Lösung gefunden habe. Vielleicht hat jemand dafür ein Tipp oder schon einen fertigen Code ?

...zur Frage

Entwicklertools Kontrollkästchen speichern nicht?

Hey Leute, ich erstelle gerade einen Fragebogen in Word und diesen werde ich an verschiedene Leute schicken, die diesen dann in Word ausfüllen sollen und mir per Mail zurücksenden. Ich habe über Entwicklertools Kontrollkästchen eingefügt, die man jedes Befragte je nach Belieben ankreuzen kann. Mein Problem ist folgendes: Ich kann es nicht speichern, sobald ich das Dokument normal speicher und schließe und wieder öffne ist es nicht mehr möglich diese Kästchen anzuklicken. Es sind auf einmal ganz einfache Kästchen ohne eine Funktion. Wisst ihr wie ich das hinkriege, dass man die Kästchen auch bei erneutem Öffnen ankreuzen kann? Hoffentlich kann mir jemand helfen, ich bedanke mich schon mal bei euch für Lösungsvorschläge :) Liebe Grüße :)

...zur Frage

MS-Word VBA selection ausblenden

Hallo zusammen

Ich möche in Word mit VBA folgendes Bewerkstelligen:

Ein bestimmter Bereich soll je nach Wahl von Radio Buttons aus-und wieder eingeblendet werden können. Der Bereich enthält vor allem Formularsteuerelemente.

Ich bin schon soweit, dass ich ihn löschen kann, aber ich muss ihn je nach Wahl der Radio-Buttons auch wieder einblenden könne, darum geht löschen nicht.

Es geht also um die Eigenschaft von Selection.

Hier mein Code:

Private Sub OptionButton1_Click()
    'Kopierschutz auflösen
    ActiveDocument.Unprotect
        'Auswahltreffen und löschen
        Dim rngParagraphs As Range
        Set rngParagraphs = ActiveDocument.Range( _
            Start:=ActiveDocument.Bookmarks("ftxt1").Range.Start, _
            End:=ActiveDocument.Bookmarks("ftxt13").Range.End)
        rngParagraphs.Select
    
        Selection.Delete
        
    'Kopierschutz erstellen
    ActiveDocument.Protect wdAllowOnlyFormFields, NoReset:=True

End Sub

Private Sub OptionButton2_Click()
    'Kopierschutz auflösen
    ActiveDocument.Unprotect
        'Auswahltreffen und löschen
        Dim rngParagraphs As Range
        Set rngParagraphs = ActiveDocument.Range( _
            Start:=ActiveDocument.Bookmarks("ftxt1").Range.Start, _
            End:=ActiveDocument.Bookmarks("ftxt13").Range.End)
        rngParagraphs.Select
    
        Selection.
        
    'Kopierschutz erstellen
    ActiveDocument.Protect wdAllowOnlyFormFields, NoReset:=True
    
End Sub

...zur Frage

Mit C# Word-Dokument bearbeiten ohne dass Word sich öffnet?

Hallo, ich versuche gerade ein docx-Dokument zu bearbeiten, das hier ist mein Code:

using Microsoft.Office.Interop.Word;
[...]
Application wordApp = new Application();
wordApp.Visible = false;
Document wordDoc = wordApp.Documents.Open([pfad], ReadOnly: false, Visible: false);
wordDoc.Activate()
Range rng = wordDoc.Range(0, 2);
            rng.Text = "Some Text";
wordApp.Documents.Save(NoPrompt: true, OriginalFormat: true);
wordApp.Documents.Close(SaveChanges: true, OriginalFormat: false, RouteDocument: false);
Console.WriteLine("Finished");
Console.ReadLine();

Aber obwohl ich die Visible-Vairable auf false gesetzt habe, öffnet sich Word. Nicht normal, sondern so:

Kann mir da jemand helfen?

...zur Frage

Ein Checkbox als Pflichtfeld?

Hallo, für ein Formular benötige ich ein Pflichtfeld!

Mann muss 1 der drei Checkboxen auf jeden Fall auswählen. Egal ob Husten, Gliederschmerzen, Schnupfen.

Benötige dafür eine JavaScript Code. Kann mir da jemand Helfen?

Danke.

...zur Frage

Wie kann ich in Word 2010 ein angekreuztes Kontrollkästchen mit einer Antwort erstellen?

Ich habe in einen Text ein Kontrollkästchen eingefügt. Wenn das Kästchen angekreuzt wird soll ein bestimmter Text erscheinen. Wie mache ich das am Besten?

...zur Frage

Nervige kontrollkästchen bei Word entfernen? Text frei bearbeiten?

Hey wie im bild zu sehen nerven mich diese kontrollkästchen. Ich wollte einen text bearbeiten , aber ich kann ihn nicht einfach komplett bearbeiten sondern nur abschnitte. Weiß jemand wie ich die ausstellen kann?

Microsoft word.

Danke

...zur Frage

Wie kann man (von einem Text) alle kleingeschriebenen Wörter entfernen?

egal wie (Word, Internetseite, Java Code, irgendeine Programmiersprache, ein Programm)

...zur Frage

Wie kann ich in WORD unter Entwicklertools einen dauerhaften Haken in das Kontrollkästchen setzen?

Hallo,

ich habe eine Vorlage in Word, in der ich mit dem Entwicklertool schon Kontrollkästchen eingefügt habe.

Nun möchte ich, dass der spätere Nutzer der Vorlage einige Kästchen nicht mehr an- oder abwählen kann, sondern dass von vornherein dort ein Haken gesetzt ist.

Wie kriege ich das hin?

...zur Frage

C# Visual Studio - Kommunikation zwischen Forms?

Hallo, ich bin ein ziemlicher C# - Anfänger und arbeite momentan an einem Projekt. Dabei habe ich 2 verschiedene Forms. In form1 hat man die Möglichkeit, 6 verschiedene CheckBoxen zu betätigen und gelangt anschließend durch einen Button in form2. In form2 sollen anschließend die jeweiligen Button angezeigt, welche man zuvor in form1 per Checkbox ausgewählt hat (z.B. CheckBox 2 und 6 betätigt -> Button 2 und 6 wird angezeigt). Dabei werden die Steuerelemente von form2 nicht im Quellcode von form1 erkannt. Könnte mir jemand sagen, wie ich in form1 auf die Steuerelemente bzw. Buttons von form2 zugreifen kann? Vielen Dank im Voraus!

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen