|
Vielen lieben Dank für die schnelle Antwort:)!
...Mir ist aufgefallen, dass meine Überschrift "1. Zeichen im String löschen" wohl irreführend iist, den ich möchte den String wie in den Details beschrieben, ja nicht löschen sondern ersetzen (die "3" durch eine "2").
Zum Code: Leider scheitere ich an der ersten Hürde und schaffe es nicht, die Tabelle anzusteuern. Ich bekomme gleich eine Fehlermeldung ("the requested member of the collection does not exist"). Das Word-Dokument enthält viele Tabellen im Hauptteil und in den Kopf- und Fußzeilen.
Am einfachsten wäre es, das Makro aufzurufen, wenn man den Cursor in die dritte Spalte der Tabelle gesetzt hat:
Set objTable = Selection.Tables(1)
So bekomme ich zumindest an dieser Stelle keine Fehlermeldung mehr.
Danach bin ich aber etwas verloren, was ich wo definieren muss:
- wo gebe ich Spalte 1 an (Ursprungsdaten) und wo Spalte 3 (zu genierende Daten)
- wo gebe ich "3" an, die durch "2" zu ersetze ist.
With objTable.Cell(r, c).Range
Debug.Print "Cell(" & r & "," & c & ") = " & Left$(.Text, Len(.Text) - 2)
Sorry für die absoluten Anfängerfragen...
Viele Grüße
Steffi
|