Mehrere finden und ersetzen in MS Word aus einer Liste in MS Excel

Question

Hallo Ich hoffe wirklich, dass Sie mir helfen können, wie ich dies mit einer Weile mit wenig Glück versucht habe.

Ich habe eine Liste in Excel, sagen wir, Datei 1 (sagen wir, A1 - B10, 2 Spalten von Wörtern - die Wörter in Spalte A sind diejenigen, die durch die in Spalte B zu ersetzen sind).

Ich habe ein Dokument in Wort, sagen wir, Datei 2, die ich die Wörter in der Excel-Datei ausführen soll, so dass jedes Auftreten von Wörtern, die in Spalte A der Excel-Datei sind, durch die entsprechenden Wörter ersetzt wird Spalte B.

Ich würde wirklich jede Hilfe schätzen, die Sie mir geben konnten, vielen Dank.

Answer 1

Wenn ich Sie richtig verstanden habe, möchten Sie Wörter in Ihrem Word-Dokument durch Wörter ersetzen, die in Ihrer Excel-Datei aufgeführt sind. Wenn ja, sollte dieser Makro den Trick (Makro für MS Word):

Function findAndReplace() 
Dim xlApp As Object 
Dim xlWB As Object 
Dim xlWS As Object 

Dim i As Integer, j As Integer 
Dim lastRow As Integer 

'Set Objects 
Set xlApp = CreateObject("Excel.Application") 
Set xlWB = xlApp.Workbooks.Open("PATH TO EXCEL FILE") 'Replace String with path to Excel File 
Set xlWS = xlWB.Worksheets("Name of Worksheet") 'Replace String with your Worksheet Name 

'get last row of excel file 
lastRow = xlWS.UsedRange.SpecialCells(xlCellTypeLastCell).Row 

'loop through all words in Word Document 
For i = 1 To ThisDocument.Words.Count - 1 Step 1 

    'Loop through cells in Excel File 
    For j = 1 To lastRow Step 1 

     'Replace Word value in Column B of Excel File 
     ThisDocument.Words(i) = Replace(ThisDocument.Words(i), xlWS.Cells(j, 1).Value, xlWS.Cells(j, 2).Value) 
    Next j 
Next i 

'Close Excel and Cleanup 
Set xlWS = Nothing 
xlWB.Close True 
Set xlWB = Nothing 
xlApp.Quit 
Set xlApp = Nothing 

End Function

Wenn ich Sie falsch verstanden, bitte geben Sie uns genauer an, was Sie zu tun versuchen.