Readdy Write  
0,00 €
Your View Money
Views: Count
Self 20% 0
Your Content 60% 0

Users by Links 0
u1*(Content+Views) 10% 0
Follow-Follower 0
s2*(Income) 5% 0

Count
Followers 0
Login Register as User

Word Einblenden und Ausblenden von Bereichen mit .Collapse

07.04.2021 (👁9151)

Word Vorlage zum Einblenden und Ausblenden von Bereichen.

Die folgende Word Vorlage macht folgendes.

Beim Klick auf das Checkbox-Feld Trifft nicht zu wird der folgende Tabellenbereich, die Zeilen ausgeblendet.

Beim Klick auf das Checkbox-Feld Trifft zu wird der ausgeblendete Tabellenbereich wieder eingeblend.

Im Hintergrund läuft ein vba Makro (Code ist unten angefügt), der mit Selection.Collapse einen Bereich ausblendet

Gezeigt wird: Word Collapse

Einblenden in Word

Eingeblendeter Bereich

Ausblenden / Ausgeblendete Zeilen einer Tabelle

Option Explicit On

 

Private Sub Document_ContentControlOnEnter(ByVal contentControl As contentControl)

    '---------< Document_ContentControlOnEnter >--------

    If contentControl.Type = wdContentControlCheckBox Then

        '----< IsCheckbox >----

        '< init >

        Dim activeCheckbox As contentControl

        Set activeCheckbox = contentControl

       

        Dim sCellText

        sCellText = activeCheckbox.Range.Cells(1).Range.Text

        '</ init >

 

 

 

        '< Tabelle markieren >

        Dim activeTable As Table

        Set activeTable = activeCheckbox.Range.Tables(1)

       

        Dim tableContentRange As Range

        Set tableContentRange = activeTable.Rows(2).Range

        tableContentRange.End = activeTable.Range.End

        tableContentRange.Select

        '</ Tabelle markieren >

 

        If sCellText Like "*nicht*" Then

            '< ausblenden >

            Selection.Expand Unit:=wdParagraph

            Selection.Range.Font.Hidden = True

            Selection.Collapse wdCollapseEnd

            '</ ausblenden >

 

            activeTable.Rows(1).Cells(4).Range.ContentControls(1).Checked = False

        ElseIf sCellText Like "*Trifft zu*" Then

            '< einblenden >

            Selection.Expand Unit:=wdParagraph

            Selection.Range.Font.Hidden = False

            Selection.Collapse wdCollapseEnd

            '</ einblenden >

 

            activeTable.Rows(1).Cells(3).Range.ContentControls(1).Checked = False

        End If

        '----< IsCheckbox >----

    End If

    '---------</ Document_ContentControlOnEnter >--------

End Sub