ja, ich dachte mir schon, dass es ohne Dokument schwierig
werden könnte. Habe auch gerade versucht die Tabelle
rauszukopieren oder ähnliches,damit ich sie hochladen kann,
funktioniert aber leider nicht, weil dann der Fehler
verschwindet *seuftz* es scheint sich also um ein Problem zu
handeln, dass nur auf bestimmten Seiten austaucht. Kann aber
bei der Formatierung nichts auffällig entdecken.
Hallo u,
du bräuchtest zwei identisch aufgebaute Dolumente. D.h. welcher und wieviel Text drinsteht ist wurscht, Hauptsache in beiden ist eine Tabelle. In dem einen Dokument sollte der Fehler sein, im anderen nicht.
Dann lasse über beide das folgende Makro laufen, es zeigt dir am Ende die im Dokument benutzten Steuerzeichen an.
Notiere, vergleiche mal beide Anzeigen, ist in dem Dokument mit dem Fehler ein Steuerzeichen mehr drin als in der Fehlerfreien Version?
Welche Nummer?
Die Nummern 10, 13 sind normal, sie entsprechen CR und LF, zu Deutsch wie bei der Schreibmaschine wenn du je eine gesehen hast
Wagenrücklauf und Zeilenvorschub.
Die Tab-taste erzeugt das Steuerzeichen 8 oder 9, weiß grad nicht.
Vorgehen, öffne beide Dokumente.
Alt+F11, suche links einen der Dokumennamen bei den Projekten und klicke darauf, dann oben Einfügen—Modul, dort kopierst du den Code rein.
Stellst den Curser irgendwo in den Code und drückst F5.
Das Fensterchen mit der Anzeige erscheint.
Nun über die Taskleiste nach Word wechseln und das andere Dokument anzeigen lassen, wieder per Taskleiste zurück zum Code und nochmals F5.
Wenn du den Code nicht mehr brauchst, einfach Rechtsklick links auf Modul1 und „Entfernen von Modul“ auswählen, weg ist der Code samt Modul.
Option Explicit
'
Sub SonderzeichenFinden()
Dim Alles, Z As Long, colC As New Collection
On Error Resume Next
Alles = ActiveDocument.Content.Text
For Z = 1 To Len(Alles)
If Asc(Mid(Alles, Z, 1))
Gruß
Reinhard