VBA-makro: Excel zu Word-text-Ersatz

Gibt es einfache VBA-Makros für Excel (2003). Es so Aussehen zu Zelle A$N B$N, und ersetzen in Word-Dokument text von B$N A$N.

Sub Макрос1()

Dim pathh As String, i As Integer
pathh = "c:\1.doc"
Dim pathhi As String
Dim from_text As String, to_text As String
Dim WA As Object, WD As Object
Set WA = CreateObject("Word.Application")
WA.Documents.Open (pathh)
WA.Visible = True

For oCell = 1 To 150
    from_text = Range("B" + CStr(oCell)).Value
    to_text = Range("A" + CStr(oCell)).Value
    With WA
        .Activate
        With .Selection.Find
          .ClearFormatting
          .Replacement.ClearFormatting

          .Text = from_text
          .Replacement.Text = to_text
          .Execute Replace:=wdReplaceAll
        End With
    End With
Next
End Sub

Problem: im Word-Dokument das Skript wählen Sie nur text, aber keine Ersatz. Nein Vorschlag?

  • Sie haben I dimensioniert und verwenden oCell statt
InformationsquelleAutor potapuff | 2012-12-11
  1. 2

    Ersten ich erwarten, dass Sie den Verweis auf die Word object library aktiv:
    VBA-makro: Excel zu Word-text-Ersatz

    Dem das Skript sollte eigentlich funktionieren, ich habe einige kleinere änderungen und haben diese arbeiten, einschließlich ersetzen:

    Sub test1()

    Dim pathh As String
    Dim pathhi As String
    Dim oCell  As Integer
    Dim from_text As String, to_text As String
    Dim WA As Object

    pathh = "C:\1.doc"

    Set WA = CreateObject("Word.Application")
    WA.Documents.Open (pathh)
    WA.Visible = True

    For oCell = 1 To 2
        from_text = Sheet2.Range("B" & oCell).Value
        to_text = Sheet2.Range("A" & oCell).Value
        With WA
            .Activate
            With .Selection.Find
              .ClearFormatting
              .Replacement.ClearFormatting

              .Text = from_text
              .Replacement.Text = to_text
              .Execute Replace:=wdReplaceAll
            End With
        End With
    Next
End Sub
    • Ausgezeichnete Vorschlag! Ms Excel-und MS Office-Bibliothek verknüpft wurde, zu Projekt, aber MS-Word - nicht.
    • Gut, dass es nun funktioniert!
    InformationsquelleAutor K_B
  2. 0

    Mithilfe von Excel VBA 7.0 und Word 14.0 object Bibliothek die Mit .Auswahl block muss etwas geändert werden

                With .Selection.find
            .ClearFormatting
            .Execute FindText:=from_text, ReplaceWith:to_text, replace:=wdReplaceAll
        End With
    InformationsquelleAutor MikeF
Schreibe einen Kommentar