Office: (Office 2016) Text ersetzen in Word

Hallo...Schönen Nachmittag!

Ich möchte in Word Text ersetzen.
Dieses Programm funktioniert in Word:




Das gleiche Programm von Excel ausgeführt, funktioniert nicht:

Set objword = GetObject(Class:="Word.Application")
Set worddoc = objword.ActiveDocument
'----
'----
Set myrange = worddoc.Content
With myrange.Find
.Text = c_suchwort
.Execute ReplaceWith:=c_ersetzen, Replace:=wdReplaceAll
End With

Hat jemand einen Hinweis woran das liegen könnte.

Herzlichen Dank!
Grüße Herbert

 

Hallo Herbert,

wenn du den Excel-Code korrekt deklarierst, erkennst du, woran es liegt:

Code:

[COLOR="#FF0000"][B][SIZE=4]Option Explicit[/SIZE][/B][/COLOR]

Sub ttt()
[COLOR="#FF0000"]  Dim objWord As Object, WordDoc As Object
  Dim MyRange As Object
  Const c_suchwort As String = [COLOR="#000000"]"Suche"[/COLOR]
  Const c_ersetzen As String = [COLOR="#000000"]"Ersetze"[/COLOR]
[SIZE=4][B]  Const wdReplaceAll As Variant = 2[/B][/SIZE]
[/COLOR]  
  Set objWord = GetObject(Class:="Word.Application")
  Set WordDoc = objWord.activedocument
  
  Set MyRange = WordDoc.Content
  With MyRange.Find
    .Text = c_suchwort
    .Execute ReplaceWith:=c_ersetzen, Replace:=wdReplaceAll
  End With
End Sub

Insbesondere die rot gefärbten Codeteile und dort wieder die fett geschriebenen Teile sind verantwortlich dafür.

 

Hallo Anton!

Danke...Ja, so funktioniert es.
Auf den Grund, warum es ohne Deklaration nicht funktionierte, bin ich jetzt auch draufgekommen.
Deine fett geschriebene Zeile war der Hinweis.
Der Verweis auf WORD war bei diesem fremden Tool nicht aktviert!

Grüße Herbert