Thema Datum  Von Nutzer Rating
Antwort
11.12.2019 17:09:20 efef
Solved
11.12.2019 19:32:12 Gast4390
NotSolved
11.12.2019 20:22:09 efef
NotSolved
11.12.2019 22:00:21 Mase
NotSolved
Rot Zeile mit bestimmtem Anfang löschen
 13.12.2019 01:18:33 tscharl
NotSolved
13.12.2019 23:07:08 efef
NotSolved
13.12.2019 23:22:34 tscharl
NotSolved
07.01.2020 15:07:07 efef
NotSolved
07.01.2020 16:29:03 tscharl
NotSolved
07.01.2020 16:58:42 efef
NotSolved
15.01.2020 09:58:25 efef
Solved
15.01.2020 10:53:18 efef
NotSolved

Ansicht des Beitrags:
Von:
tscharl		 Datum:
13.12.2019 01:18:33		 Views:
930		 Rating:
     
Antwort:
  Ja
Thema:
Zeile mit bestimmtem Anfang löschen

Nun wie kommt man auf Excel? Ich gehe davon aus, dass die Prozedur in WORD laufen soll. Oder?

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
 
Sub Test()
    Dim myDoc As Document
    Dim wdPar As Paragraph
    Set myDoc = ThisDocument
    ' Alle Absätze werden untersucht, ob ...
    For Each wdPar In myDoc.Paragraphs
        '... sie mit "+++" beginnen.
        If Left(wdPar, 3) = "+++" Then
            ' Dann werden sie gelöscht :-)
            wdPar.Range.Delete
        End If
    Next
    ' Manche sagen, der folgende Code sei nicht nötig. Ich hab's immer so gehalten.
    Set myDoc = Nothing
End Sub

 

Ihre Antwort
  • 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: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
11.12.2019 17:09:20 efef
Solved
11.12.2019 19:32:12 Gast4390
NotSolved
11.12.2019 20:22:09 efef
NotSolved
11.12.2019 22:00:21 Mase
NotSolved
Rot Zeile mit bestimmtem Anfang löschen
 13.12.2019 01:18:33 tscharl
NotSolved
13.12.2019 23:07:08 efef
NotSolved
13.12.2019 23:22:34 tscharl
NotSolved
07.01.2020 15:07:07 efef
NotSolved
07.01.2020 16:29:03 tscharl
NotSolved
07.01.2020 16:58:42 efef
NotSolved
15.01.2020 09:58:25 efef
Solved
15.01.2020 10:53:18 efef
NotSolved