Hallo,
ich habe ein WORD-Formular, daß ich aus VB 6.0 (kein VBA) anspreche und ausdrucke. Da ein bestimmter Text sehr lang werden kann, kann ich dort die Textmarkenfunktion nicht verwenden. Andere Idee: Ich möchte nun einen unsinnigen Text „#Ä“ innerhalb dieses WORD-Dokuments mittels VB-Befehl durch meinen Langtext ersetzen. Gibt es eine solche Möglichkeit ? Könnt ihr mir helfen, wie das geht ?
Gruß
Klaus
Hallo,
Hi,
anbei ein einfaches Beispiel, um in einem Text etwas zu ersetzen:
Private Sub Command1\_Click()
Dim objWord As Object
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.Documents.Open "c:\test.doc"
objWord.Selection.Find.Text = "alt"
objWord.Selection.Find.Replacement.Text = "neu"
objWord.Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Gruß.Timo
ich habe ein WORD-Formular, daß ich aus VB 6.0 (kein VBA)
anspreche und ausdrucke. Da ein bestimmter Text sehr lang
werden kann, kann ich dort die Textmarkenfunktion nicht
verwenden. Andere Idee: Ich möchte nun einen unsinnigen Text
„#Ä“ innerhalb dieses WORD-Dokuments mittels
VB-Befehl durch meinen Langtext ersetzen. Gibt es eine solche
Möglichkeit ? Könnt ihr mir helfen, wie das geht ?
Gruß
Klaus
Hi Timo,
ich habe es gleich mal ausprobiert, für kleine Texte funktioniert das auch, bei Strings größer 255 Zeichen kommt der alte Fehler „Zeichenkette zu lang“. Jetzt dachte ich, ich könnte das Problem umgehen, weil ich auf die Textmarken verzichten kann …
Kennst Du noch einen anderen Trick ?
Gruß
Klaus
Hi Timo,
weisst Du was, Deine Lösung ist viel besser, als die Lösung die ich vorher hatte. Genau genommen muß ich jetzt nur mehrere unsinnige Texte im Formular definieren und den Großen Text in mehrere kleine (