Thema Datum  Von Nutzer Rating
Antwort
30.12.2017 14:45:48 utaheide
NotSolved
30.12.2017 15:57:32 Gast76055
NotSolved
30.12.2017 17:16:30 Gast75963
NotSolved
30.12.2017 17:34:33 Gast87325
NotSolved
30.12.2017 18:11:20 Gast88300
NotSolved
30.12.2017 18:21:43 Gast35209
NotSolved
30.12.2017 19:33:39 Gast65262
NotSolved
30.12.2017 20:33:20 Gast22186
NotSolved
01.01.2018 17:48:07 Gast3930
NotSolved
30.12.2017 21:21:13 Gast63040
NotSolved
30.12.2017 21:32:54 Gast59794
NotSolved
01.01.2018 17:39:59 Gast57648
NotSolved
Rot Excel Spalten auslesen in Worddok markieren
 01.01.2018 20:14:20 Gast35885
NotSolved
03.01.2018 11:05:03 Gast15221
NotSolved
03.01.2018 17:08:08 Gast92829
Solved

Ansicht des Beitrags:
Von:
Gast35885		 Datum:
01.01.2018 20:14:20		 Views:
537		 Rating:
     
Antwort:
  Ja
Thema:
Excel Spalten auslesen in Worddok markieren

Aufgeben gilt nicht!!!

Der Code war (mit xl2016) gestestet und muss nur an 2 Stellen angepasst werden

'Makro in Wd-DAtei
'Verweis auf Excel
Sub WörterAusExcel()
'Dim xlApp As Object: Set xlApp = GetObject(, "excel.application")
 
Dim WB As Object
'Set WB = xlApp.workbooks.Open(ThisDocument.Path & "\" & "Wd Xl Ute.xlsx") 'die xl-Datei
Set WB = GetObject(ThisDocument.Path & "\" & "Wd Xl Ute.xlsx")
Farbe = Array(255, 65535) 'rot, gelb                    <<<<<<<<<<<<<< 10 Farben >>>>>>>>>>>>>>>>>>>>>
lr = WB.sheets(1).Cells(10000, "A").End(xlup).Row
For j = 1 To 2 'Spalten der xl-Liste                    <<<<<<<<<<<<<< ALLE Spalten >>>>>>>>>>>>>>>>>>
    For i = 1 To lr 'Zeilen der xl-Liste
        With ActiveDocument.Range.Find
            .Text = WB.sheets(1).Cells(i, j)
            .Replacement.Font.Color = Farbe(j - 1) ' in der Volage stand nur ".Replace", da gab es wohl eine Änderung zu alten xl-Versionen
            .Execute Replace:=wdReplaceAll
        End With
    Next i
Next j
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
30.12.2017 14:45:48 utaheide
NotSolved
30.12.2017 15:57:32 Gast76055
NotSolved
30.12.2017 17:16:30 Gast75963
NotSolved
30.12.2017 17:34:33 Gast87325
NotSolved
30.12.2017 18:11:20 Gast88300
NotSolved
30.12.2017 18:21:43 Gast35209
NotSolved
30.12.2017 19:33:39 Gast65262
NotSolved
30.12.2017 20:33:20 Gast22186
NotSolved
01.01.2018 17:48:07 Gast3930
NotSolved
30.12.2017 21:21:13 Gast63040
NotSolved
30.12.2017 21:32:54 Gast59794
NotSolved
01.01.2018 17:39:59 Gast57648
NotSolved
Rot Excel Spalten auslesen in Worddok markieren
 01.01.2018 20:14:20 Gast35885
NotSolved
03.01.2018 11:05:03 Gast15221
NotSolved
03.01.2018 17:08:08 Gast92829
Solved