Excel+Word: Falsche Zeichen im String beim Auslesen von Text aus einer Word-Tabellen-Zelle...

Hallo Andreas,

nachdem ich schon vor meiner Frage in diesem Forum intensiv aber leider ergebnislos im Netz recherchiert hatte, ist mir heute noch etwas eingefallen. Da ich keine Beispieldatei hochladen kann, habe in Word ein Makro aufgezeichnet, das die "falschen" eckigen
Klammern durch die richtigen ersetzt. Das aufgezeichnete Makro hat mir dann das Ergebnis geliefert: die eckigen Klammern im Word-Dokument sind die Sonderzeichen ChrW(61531) und ChrW(61533).

Jetzt habe ich eine Lösung gefunden: in jeder Word-Datei werde ich vor dem Auslesen der Tabellen das unten stehende Makro aus Excel-VBA starten. Damit ersetze ich die Sonderzeichen durch die richtigen eckigen Klammern. Ein erster Versuch aus
Excel heraus war erfolgreich. Hoffentlich tauchen nicht noch mehr dieser Sonderfälle auf.

Falls du einen Tipp hast, wie diese Sonderzeichen in das Word-Dokument gelangt sind, wäre ich natürlich interessiert. Auch wenn du eine bessere Lösung auf Lager hast, wäre ich für deinen Tipp dankbar. Man lernt ja schließlich nie aus.

Nochmals vielen Dank für deine Unterstützung.

Grüße

OWI

Und hier das Unterprogramm, das ich in Excel-VBA ausführe:

Sub EckigeKlammernErsetzen(in_objWordDoc As Object)

'

' EckigeKlammernErsetzen Makro

'

With in_objWordDoc.Content.Find

.Text = ChrW(61531)

.Replacement.Text = "["

.Wrap = wdFindContinue

.Execute Replace:=wdReplaceAll

End With

With in_objWordDoc.Content.Find

.Text = ChrW(61533)

.Replacement.Text = "]"

.Wrap = wdFindContinue

.Execute Replace:=wdReplaceAll

End With

End Sub

Das aufgezeichnete Makro hat mir dann das Ergebnis geliefert: die eckigen Klammern im Word-Dokument sind die Sonderzeichen ChrW(61531) und ChrW(61533).

Hmm, das ist nicht nachvollziehbar. Wenn ich ein neues Dokument mache und das ausführe:

Sub Makro1()

Selection.TypeText Text:=ChrW(61531) & ChrW(61533)

End Sub

Den Zoom auf 200% stelle (sonst ist der Screenshot zu klein), dann sieht es so aus:





Eckige Klammer sieht anders aus. Ich hab auch keinen Font der an der Stelle was Eckiges hätte...

Was auch immer das ist, scheint ein lokales Phänomen auf Deinem Rechner zu sein. Mehr kann ich so nicht sagen.

Andreas.

Die eckigen Klammern im Word-Text werden falsch interpretiert.

Ganz generell: Nein. Wenn Du irgendwas mit VBA machst, dann bist Du selber schuld. ;-)

VBA hat eine automatische Typenkonvertierung, da kann man z.B. Zahlen einem String zuweisen (oder andersrum) ohne das zu einem Fehler kommt und so wird 123 ganz automatisch zu "123".

Jeder korrekte Compiler haut Dir das schon beim kompilieren schon um die Ohren.

Außerdem gibt es noch Unicode und ASCII Strings, das sind 2 Paar Schuhe die nicht zusammen und in VBA trotzdem "gehen". Zusätzlich hat Word div. Steuerzeichen in Tabellen, diese liest man mit VBA auch aus, aber in Word "sieht" man diese niemals.

Lange Rede, kurzer Sinn:

Wenn Du weitere Hilfe benötigst, dann lade die Datei (möglicherweise mit anonymisierten Daten) auf einen Online-Datei-Hoster wie www.dropbox.com hoch und veröffentliche den Download-Link hier. Dann kuck ich mal was da tatsächlich drinsteht in der Tabelle.

Andreas.

Hallo Andreas,

zuerst einmal vielen Dank für die Antwort.

Mit VBA hat erst einmal grundsätzlich nichts zu tun. Das Verhalten tritt auch beim kopieren von Word nach Excel auf - also völlig unabhängig von VBA.

Zwischenzeitlich habe ich noch einen anderen Versuch gestartet. Ich habe eine neue Word-Datei erstellt, Tabelle eingefügt, Text "[EEx ii 2]" in eine Zelle, diese von Word nach Excel auf die beiden oben beschriebenen Arten kopiert, und es hat funktioniert.
Die eckigen Klammern wurden richtig nach Excel kopiert. Das heißt also, dass das Problem in den Word-Dateien zu suchen ist. Ich versuche mal eine Datei hochzuladen.

Zurück zu deiner Antwort. Die Steuerzeichen in den Word-Tabellen sind mit bekannt, da ich teilweise noch den Text aus einer Word-Tabellen-Zelle in zwei Excel-Zellen schreiben muss.

Grüße

OWI

Deine Probleme haben wir verstanden, allerdings muss ich mich Frank anschließen.



Zu Bild1:



Es stimmt nicht das das alte Excel den Text an der gestrichelten Linie automatisch umbricht, um mal Deine Wortwahl zu benutzen.



Nur wenn Du vorher den Zeilenumbruch der Zelle setzt (wie das geht hatte ich schon gesagt), dann wird beim Schreiben der Text am rechten Rand der Zelle umgebrochen.



Es gibt hier keinen Unterschied zwischen "altem" und "neuem" Excel.



Zu Bild2:



Excel ist nicht Word, es kann keine Silbentrennung. Auch hier ist alles wie gehabt.



Du kannst probieren ein Worddokument in die Tabelle einzubetten und den Text dort zu schreiben, aber ob Du damit glücklicher wirst...



Andreas.