Thema Datum  Von Nutzer Rating
Antwort
13.02.2012 16:31:27 Stephan
NotSolved
14.02.2012 11:08:45 Stephan
NotSolved
15.02.2012 10:35:02 Fragezeichen
NotSolved
15.02.2012 08:41:31 Fragezeichen
NotSolved
15.02.2012 12:58:29 Fragezeichen
NotSolved
Blau VBA Word: Filtern von klar gekennzeichneten Wörtern aus einem Text
16.02.2012 15:12:42 Holger
NotSolved
17.02.2012 05:47:38 Gast36697
NotSolved
17.02.2012 16:43:33 Holger
NotSolved
17.02.2012 19:10:46 Fragezeichen
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
16.02.2012 15:12:42		 Views:
1621		 Rating:
     
Antwort:
  Ja
Thema:
VBA Word: Filtern von klar gekennzeichneten Wörtern aus einem Text

Hallo Stephan,

vieleicht noch ein Ansatz, der unabhängig von speziellen Eigenschaften der eingeschlossenen Wörter ist:

Application.ScreenUpdating = False
System.Cursor = wdCursorWait
Selection.HomeKey wdStory
ReDim w(0)
c = -1: s = -1
With Selection.Find
    Do
        .text = "\<\<\<*\>\>\>"
        .Wrap = wdFindContinue
        .Forward = True
        .MatchWildcards = True
        .Execute
        If .Found = True Then
            If s = Selection.start Then Exit Do
            If s = -1 Then s = Selection.start
            c = c + 1
            ReDim Preserve w(c)
            w(c) = Mid(Selection.text, 4, Len(Selection.text) - 6)
        End If
    Loop While .Found = True
End With
Selection.EndKey wdStory
For i = 0 To c
    Selection.TypeText vbCrLf + w(i)
Next i
System.Cursor = wdCursorNormal
Application.ScreenUpdating = True

Gruß

Holger

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:



  • 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
13.02.2012 16:31:27 Stephan
NotSolved
14.02.2012 11:08:45 Stephan
NotSolved
15.02.2012 10:35:02 Fragezeichen
NotSolved
15.02.2012 08:41:31 Fragezeichen
NotSolved
15.02.2012 12:58:29 Fragezeichen
NotSolved
Blau VBA Word: Filtern von klar gekennzeichneten Wörtern aus einem Text
16.02.2012 15:12:42 Holger
NotSolved
17.02.2012 05:47:38 Gast36697
NotSolved
17.02.2012 16:43:33 Holger
NotSolved
17.02.2012 19:10:46 Fragezeichen
NotSolved