|
>> Mit dem Beispieltext klappt es super.
>> Wenn ich das jedoch mit einem anderen Dokument versuche, welches genauso formatiert ist, kommt die Fehlermeldung "Ungültiger Textmarkenname".
>> Woran mag das liegen?
Gute Frage.
Geh mal mit dem Textcursor in die folgende Zeile
Call rngCurrent.Document.Bookmarks.Add("R" & objWord.Text, rngCurrent)
und drück dort dann die F9 Taste. Daraufhin ist die Zeile rotbraun hinterlegt -> ein Haltepunkt wurde dort gesetzt (erneutes drücken hebt ihn wieder auf).
Wenn du das Makro jetzt einmal laufen läßt, wird in dieser Zeile autom. angehalten (du kannst dann im Einzelschritt [F8 Taste] eine Anweisung weiter laufen lassen). Geh mal mit der Maus über den Ausdruck objWord.Text und es wird dir kurz darauf im Tooltip deren Inhalt angezeigt.
Was steht denn in objWord.Text drin?
Alternativ kannst du vor die oben genannte Zeile auch eine zusätzliche Zeile einfügen, die da z.B. lautet:
Debug.Print "objWord.Text = '" & objWord.Text & "'"
Die Ausgabe erfolgt dann hier im Direktfenster (muss ggf. über das Menü Ansicht erst eingeblendet werden, bzw. mittels der Tastenkombination STRG+G).
Gruß
|