Thema Datum  Von Nutzer Rating
Antwort
09.01.2017 18:46:16 heiwela
NotSolved
Blau Silben in einem Wordtext markieren
09.01.2017 19:50:00 Gast76059
****
NotSolved
09.01.2017 20:30:35 Gast59913
NotSolved
10.01.2017 09:44:43 heiwela
NotSolved
10.01.2017 12:03:09 Gast39584
NotSolved
10.01.2017 13:17:20 heiwela
NotSolved
10.01.2017 13:36:36 heiwela
NotSolved
10.01.2017 13:52:34 Gast3610
NotSolved
10.01.2017 15:24:28 heiwela
NotSolved
10.01.2017 21:17:14 Gast61385
NotSolved
10.01.2017 22:43:10 heiwela
NotSolved
11.01.2017 01:08:51 Gast77652
NotSolved
11.01.2017 01:22:44 Gast92040
NotSolved
11.01.2017 09:02:26 heiwela
NotSolved
09.01.2017 20:45:26 Heiwela
NotSolved
11.01.2017 11:29:04 heiwela
NotSolved
11.01.2017 14:06:13 Gast99846
NotSolved
11.01.2017 15:43:11 heiwela
NotSolved
11.01.2017 21:32:16 Gast4091
NotSolved
11.01.2017 22:33:46 heiwela
NotSolved
12.01.2017 01:28:00 Gast4091
NotSolved
12.01.2017 07:53:39 Heiwela
NotSolved
12.01.2017 20:07:42 heiwela
NotSolved
12.01.2017 20:17:42 Gast4091
NotSolved
13.01.2017 10:06:19 heiwela
NotSolved
13.01.2017 10:11:45 heiwela
NotSolved
13.01.2017 13:48:33 heiwela
NotSolved
14.01.2017 03:08:12 Gast65801
NotSolved
14.01.2017 12:29:07 heiwela
NotSolved
16.01.2017 18:27:44 heiwela
Solved

Ansicht des Beitrags:
Von:
Gast76059
Datum:
09.01.2017 19:50:00
Views:
803
Rating: Antwort:
  Ja
Thema:
Silben in einem Wordtext markieren

Hallo heiwela,

ich wünsche Dir das selbige. ;)

Dein Anliegen ist relativ schnell und umkompliziert umzusetzen.

Probier mal:

Option Explicit

Sub Test()
  
  Dim rngWord   As Word.Range
  Dim vntaSilb  As Variant
  Dim vntSilb   As Variant
  
  vntaSilb = Array("ung", "heit", "keit", "nis")
  
  For Each rngWord In ThisDocument.Words
    For Each vntSilb In vntaSilb
      If InStr(1, rngWord.Text, vntSilb, vbBinaryCompare) > 1 Then 'vbBinaryCompare bedeutet: Groß-/Kleinschreibung wird unterschieden
        rngWord.HighlightColorIndex = wdYellow
        Exit For
      End If
    Next
  Next
  
End Sub

Grüße


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
09.01.2017 18:46:16 heiwela
NotSolved
Blau Silben in einem Wordtext markieren
09.01.2017 19:50:00 Gast76059
****
NotSolved
09.01.2017 20:30:35 Gast59913
NotSolved
10.01.2017 09:44:43 heiwela
NotSolved
10.01.2017 12:03:09 Gast39584
NotSolved
10.01.2017 13:17:20 heiwela
NotSolved
10.01.2017 13:36:36 heiwela
NotSolved
10.01.2017 13:52:34 Gast3610
NotSolved
10.01.2017 15:24:28 heiwela
NotSolved
10.01.2017 21:17:14 Gast61385
NotSolved
10.01.2017 22:43:10 heiwela
NotSolved
11.01.2017 01:08:51 Gast77652
NotSolved
11.01.2017 01:22:44 Gast92040
NotSolved
11.01.2017 09:02:26 heiwela
NotSolved
09.01.2017 20:45:26 Heiwela
NotSolved
11.01.2017 11:29:04 heiwela
NotSolved
11.01.2017 14:06:13 Gast99846
NotSolved
11.01.2017 15:43:11 heiwela
NotSolved
11.01.2017 21:32:16 Gast4091
NotSolved
11.01.2017 22:33:46 heiwela
NotSolved
12.01.2017 01:28:00 Gast4091
NotSolved
12.01.2017 07:53:39 Heiwela
NotSolved
12.01.2017 20:07:42 heiwela
NotSolved
12.01.2017 20:17:42 Gast4091
NotSolved
13.01.2017 10:06:19 heiwela
NotSolved
13.01.2017 10:11:45 heiwela
NotSolved
13.01.2017 13:48:33 heiwela
NotSolved
14.01.2017 03:08:12 Gast65801
NotSolved
14.01.2017 12:29:07 heiwela
NotSolved
16.01.2017 18:27:44 heiwela
Solved