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
Rot VBA Word: Filtern von klar gekennzeichneten Wörtern aus einem Text
15.02.2012 12:58:29 Fragezeichen
NotSolved
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:
Fragezeichen		 Datum:
15.02.2012 12:58:29		 Views:
1647		 Rating:
     
Antwort:
  Ja
Thema:
VBA Word: Filtern von klar gekennzeichneten Wörtern aus einem Text

Ok hier ist der Prototyp  der Lösung.

Bin zwar anfänger aber es funktioniert wenn die Wörter ein Leerzeichen zwischen den <<< Text >>> haben.

Es wird gleich ein Document eröffnet, dort kommen dann die gesuchten Wörter rein und wird gleich gespeichert

Sub Text()
Dim intI As Integer
Dim strText As String
Dim strZugabe As String
Selection.HomeKey unit:=wdStory
Do
With Selection.Find

    .ClearFormatting
    .Text = "<<<"
    .Execute Forward:=True
    
End With
If Selection.Find.Found = False Then
        Exit Do
End If
    Selection.MoveRight unit:=wdWord, Count:=3, Extend:=wdExtend 'Wenn die Wörter doch ohne Leerzeichen zwischen
        strZugabe = Selection.Text                                   den Klammern <<<Text>>> sind, dann 
        strText = strText & vbCr & strZugabe                         setzt man den Wert von Count:=3 auf Count:=2 um.
    Selection.MoveRight unit:=wdCharacter, Count:=1

Loop Until intI = 1

Documents.Add
Selection.HomeKey unit:=wdStory
Selection.TypeText Text:=strText
'Hier kann noch der Pfad angegeben werden
ActiveDocument.SaveAs2 FileName:="Suchwoerter.doc", FileFormat:=wdFormatDocument
ActiveDocument.Close
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:



  • 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
Rot VBA Word: Filtern von klar gekennzeichneten Wörtern aus einem Text
15.02.2012 12:58:29 Fragezeichen
NotSolved
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