VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Mit VBA in Excel auf Word zugreifen	18.11.2014 14:56:22	Mara
zum Bleistift so ?	19.11.2014 10:37:06	Gast60144
zum Bleistift so ?	20.11.2014 15:12:15	Gast58649
in der Zeile, in der oWordApp definiert wird	20.11.2014 19:59:39	Gast13621
in der Zeile, in der oWordApp definiert wird	24.11.2014 08:27:23	Mara
in der Zeile, in der oWordApp definiert wird	24.11.2014 08:40:15	Mara
.Find.Execute	24.11.2014 09:25:08	Gast92691
.Find.Execute	25.11.2014 07:17:57	Mara
Run-time error	03.12.2014 11:09:21	Mara
Run-time error	03.12.2014 11:25:21	Ambg
Run-time error	03.12.2014 11:30:43	Gast96518
Run-time error	03.12.2014 14:50:36	Mara
Run-time error	03.12.2014 15:18:58	Ambg
Run-time error	09.12.2014 15:27:19	Mara
Run-time error	09.12.2014 20:11:17	Ambg
Run-time error	10.12.2014 15:31:23	Mara

Ansicht des Beitrags:

Von:
Gast58649

Datum:
20.11.2014 15:12:15

Views:
605

Rating:

Antwort:

Thema:
zum Bleistift so ?

Hallo, mein Code sieht wie folgt aus:

Sub FormatNachWort()
Dim vList1 As Variant, vList2 As Variant
Dim intI As Integer
Dim myRange As Range
Dim aWord As Range

vList1 = Array("Abkürzungen")
vList2 = Array("GmbH")

Set myRange = ActiveDocument.Range(Start:=0, End:=Selection.End)

For Each aWord In myRange.Words
  For intI = 0 To UBound(vList1)
    If LCase(vList1(intI)) = Trim$(LCase(aWord)) Then
      aWord.HighlightColorIndex = wdPink
      Exit For
    End If
  Next
  For intI = 0 To UBound(vList2)
    If LCase(vList2(intI)) = Trim$(LCase(aWord)) Then
      aWord.Bold = True
      aWord.Font.Color = wdColorRed
      Exit For
    End If
  Next
Next

Set myRange = Nothing
End Sub

Allerdings ist dies wie gesagt in Word und auf das Wort "Abkürzungen" beschränkt (vList2 spielt keine Rolle).

Ich bekomme hier jetzt noch eine Fehlermeldung: "User-defined type not defined" in der Zeile, in der oWordApp definiert wird. Du machst mir gerade sehr viel Hoffnung *froh*

Viele 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
Mit VBA in Excel auf Word zugreifen	18.11.2014 14:56:22	Mara
zum Bleistift so ?	19.11.2014 10:37:06	Gast60144
zum Bleistift so ?	20.11.2014 15:12:15	Gast58649
in der Zeile, in der oWordApp definiert wird	20.11.2014 19:59:39	Gast13621
in der Zeile, in der oWordApp definiert wird	24.11.2014 08:27:23	Mara
in der Zeile, in der oWordApp definiert wird	24.11.2014 08:40:15	Mara
.Find.Execute	24.11.2014 09:25:08	Gast92691
.Find.Execute	25.11.2014 07:17:57	Mara
Run-time error	03.12.2014 11:09:21	Mara
Run-time error	03.12.2014 11:25:21	Ambg
Run-time error	03.12.2014 11:30:43	Gast96518
Run-time error	03.12.2014 14:50:36	Mara
Run-time error	03.12.2014 15:18:58	Ambg
Run-time error	09.12.2014 15:27:19	Mara
Run-time error	09.12.2014 20:11:17	Ambg
Run-time error	10.12.2014 15:31:23	Mara