Laufzeitfehler 4198

Computer: Software & Programmierung Office Software
#1

Guten Tag,

beim Verwenden des Makros:
Sub tab_in_text()
’
’ test Makro
’ Makro aufgezeichnet am 24.07.2009 von Administrator
’
’ Makro fuer Projekt MAPFRE-CDs(fritz)
’ tab_in_text Makro
’ Makro aufgezeichnet am 26.06.2009 von Fritz
’
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.Tables(1).Select
Selection.Rows.ConvertToText Separator:=wdSeparateByTabs, NestedTables:= _
True
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = „^t“
.Replacement.Text = „“
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Copy

End Sub

taucht der Laufzeitfehler 4198 auf. Ich kann eine Excel Tabelle eingefügt in Word nicht in einen einfachen Fließtext verwandeln.
Woran liegt das? Wie behebe ich den Fehler?

Danke im Voraus für die Unterstützung.
Grüsse

#2

Hallo Administrator :smile:,

taucht der Laufzeitfehler 4198 auf.

Das ist zwar gut als Info aber nur ein Teil der Miete, in welcher Codezeile denn?

Lassen wir mal die Nichtangabe der Version wie in der Brettbeschreibung gwünscht, beiseite.
Sehe ich da als auch nicht so relevant, aber man weiß nie.

Bitte benutze den Pre-tag wenn du hier Code postest, wird unterhalb des Eingabefensters erläutert.

Ich kann eine Excel
Tabelle eingefügt in Word nicht in einen einfachen Fließtext
verwandeln.

K.A.
Wenn du mir sagst wie der Fließtext einer Exceltabelle aussieht traue ich mir schon zu dir Code zu basteln der, egal in Word oder Excel gestartet, einen Tabllenblattinhalt als Fließtext umformatiert und in Word einfügt.
Mein Problem dabei, ich kann ihn nicht genau positionieren in einem Worddokument.
Also die Einfügestelle.

Dafür kommt hier im Word-Brett viel zu wenig Word-Vba Code von dem ich lernen könnte *seufz*
Sonst wüßte ich das.

Woran liegt das? Wie behebe ich den Fehler?

Sorry, ich weiß weder das Eine noch das Andere.

Macht aber gar nix. Beantworte mal meine Fragen, dann schauen wir weiter…

Gruß
Reinhard

#3

hallo

im excel kopieren
im word bearbeiten->inhalte einfügen->unformatierten text

schon sparst du dir die konvertierung der tabelle in text. der rest sollte trivial sein.

lg
erwin

ps: das einfügen als unformatierten text kann man auch mit dem makrorekorder aufzeichnen und als eigenen menüpunkt ins menü aufnehmen - falls dir das durchhangeln durch das menü zu mühsam ist.

#4

Guten Tag,

Hallo Administrator :smile:,

taucht der Laufzeitfehler 4198 auf.

Das ist zwar gut als Info aber nur ein Teil der Miete, in
welcher Codezeile denn?

Sub tab_in_text()
’
’ test Makro
’ Makro aufgezeichnet am 24.07.2009 von Administrator
’
’ Makro fuer Projekt MAPFRE-CDs(fritz)
’ tab_in_text Makro
’ Makro aufgezeichnet am 26.06.2009 von Fritz
’
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.Tables(1).Select

HIER taucht der Code Fehler auf:
" Selection.Rows.ConvertToText Separator:=wdSeparateByTabs, NestedTables:= _True "

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = „^t“
.Replacement.Text = „“
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Copy

Lassen wir mal die Nichtangabe der Version wie in der
Brettbeschreibung gwünscht, beiseite.
Sehe ich da als auch nicht so relevant, aber man weiß nie.

Bitte benutze den Pre-tag wenn du hier Code postest, wird
unterhalb des Eingabefensters erläutert.

… Keine Ahnung was ein Pre-tag ist. Wird hier auch nicht erläutert. Sorry.

Ich kann eine Excel
Tabelle eingefügt in Word nicht in einen einfachen Fließtext
verwandeln.

K.A.
Wenn du mir sagst wie der Fließtext einer Exceltabelle
aussieht traue ich mir schon zu dir Code zu basteln der, egal
in Word oder Excel gestartet, einen Tabllenblattinhalt als
Fließtext umformatiert und in Word einfügt.
Mein Problem dabei, ich kann ihn nicht genau positionieren in
einem Worddokument.
Also die Einfügestelle.

Dafür kommt hier im Word-Brett viel zu wenig Word-Vba Code von
dem ich lernen könnte *seufz*
Sonst wüßte ich das.

Woran liegt das? Wie behebe ich den Fehler?

Sorry, ich weiß weder das Eine noch das Andere.

Macht aber gar nix. Beantworte mal meine Fragen, dann schauen
wir weiter…

Gruß
Reinhard

Hi, ich konnte nur die Fragen beantworten, die du auch konkret gestellt hast. Aber danke.
Gruß