title image


Smiley Re: Herauslisten einzelner Stellen ( *** xxx *** )im Text
Hi Anianus ,



also ich bin mir nicht ganz über die Kriterien sicher, aber ich für mal so vorgehen:

(1) Cursor auf erste Position im Dok setzten

(2) Makrorecorder auf Aufnahme drücken

(3) Strg+F für den Suchen Dialog und dort *** eingeben und suchen.

(4) Nach dem er das gefunden hat ...



....ach scheisse ... mom ...



Probier mal das aus:







Sub SearchAsterisks()



    Dim SEARCHSTR As String

    Dim startPos As Long

    Dim niceText As String



    'String festlegen

    SEARCHSTR = "***"



    'ganzes Dokument markieren

    ActiveDocument.Range.Select



    'Suchoptionen festlegen

    Selection.Find.ClearFormatting

    With Selection.Find

        .text = SEARCHSTR

        .Replacement.text = ""

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With



    'solang suchen, bis nichts mehr gefunden wird

    Do While Selection.Find.Execute



        'ist selektierter bereich (gefundener Bereich) gleich dem Suchkriterium

        If Selection.text = SEARCHSTR Then

            'merke letzte Position der gefundenen Markierung

            startPos = Selection.Range.End



            'Suche weiter

            Selection.Find.Execute

                'Ist das Kriterium wieder erfüllt

                If Selection.text = SEARCHSTR Then

                    'nimm String aus der gemerkten Position und dem Anfang der jetzigen Markierung

                    ' und befreie es von Leerzeichen, die voran oder danach stehen

                    niceText = Trim(ActiveDocument.Range(startPos, Selection.Range.Start))



                    Gib diese im "Direktbereich" des VB Editors aus

                    Debug.Print niceText

                End If

        End If

    Loop

End Sub







Gruß,

Böttchi

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: