|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Gezielt Kapitel löschen |
03.06.2020 19:24:45 |
Sebastian |
|
|
|
03.06.2020 19:31:50 |
Gast59892 |
|
|
|
03.06.2020 19:35:13 |
Gast24086 |
|
|
|
03.06.2020 19:37:13 |
Gast72458 |
|
|
|
03.06.2020 20:04:44 |
Sebastian |
|
|
|
03.06.2020 20:31:15 |
Gast96946 |
|
|
|
03.06.2020 22:46:23 |
Sebastian |
|
|
|
03.06.2020 22:52:20 |
Gast95090 |
|
|
|
04.06.2020 11:21:12 |
Gast63145 |
|
|
|
04.06.2020 11:42:14 |
Gast52081 |
|
|
|
04.06.2020 15:12:07 |
Gast47082 |
|
|
Von:
Sebastian |
Datum:
03.06.2020 19:24:45 |
Views:
1330 |
Rating:
|
Antwort:
|
Thema:
Gezielt Kapitel löschen |
|
Hallo liebe Experten,
ich könnte nochmal eure Hilfe gebrauchen.
Ich habe im Word Dokument ein Inhaltsverzeichnis, welches aus Überschriften einer bestimmten Formatvorlagen gegliedert ist.
Pos. 1
Hier steht etwas
Pos. 1.1
Pos. 2
Pos. 2.1
Pos. 2.2
Hier steht etwas
und so weiter...
Allerdings sollen Positionen gelöscht werden, unter denen kein Text steht. Also wenn eine Überschrift bzw. ein Kapitel unmittelbar auf das nächste folgt.
Pos. 2 dürfte aber in diesem Fall ja nicht gelöscht werden.
Das Inhaltsverzeichnis kann man dann ja aktualisieren und die Positionsnummern passen sich auch automatisch an.
Formatvorlage der Überschriften: Überschrift 1
Ich habe schon herausgefunden, wie alle meine Überschriften angezeigt werden.
Sub ÜberschriftenAnzeigen()
Dim myArr() As String
Dim i As Integer
myArr = ActiveDocument.GetCrossReferenceItems(wdRefTypeHeading)
For i = 1 To UBound(myArr)
Debug.Print myArr(i)
Next i
End Sub
Kann mir da jemand helfen?
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Gezielt Kapitel löschen |
03.06.2020 19:24:45 |
Sebastian |
|
|
|
03.06.2020 19:31:50 |
Gast59892 |
|
|
|
03.06.2020 19:35:13 |
Gast24086 |
|
|
|
03.06.2020 19:37:13 |
Gast72458 |
|
|
|
03.06.2020 20:04:44 |
Sebastian |
|
|
|
03.06.2020 20:31:15 |
Gast96946 |
|
|
|
03.06.2020 22:46:23 |
Sebastian |
|
|
|
03.06.2020 22:52:20 |
Gast95090 |
|
|
|
04.06.2020 11:21:12 |
Gast63145 |
|
|
|
04.06.2020 11:42:14 |
Gast52081 |
|
|
|
04.06.2020 15:12:07 |
Gast47082 |
|
|