Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

2 Probleme mit Wordobjekt
Autor: RG
Datum: 25.10.06 13:23
Hallo, ich versuche seit 2 Tagen ein Problem zu lösen, komm aber einfach nicht dahinter. Ich hoffe, es kann hier jemand mit mehr „ Worderfahrung“ helfen. Ich verwende VB 6.0 SP 6 Ich möchte in einem Wordobjekt eingefügte Textstellen mit Daten einer DB ersetzen. Funktioniert alles wunderbar, nur wenn einer der Textstellen in einem Textrahmen ist, wird es ignoriert. Hier der Code: Sub WordDruck(ByVal Datei As String) RecordsÖffnen ‘ Sub zum öffnen der benötigten Recordsets – funktioniert einwandfrei Set wApp = CreateObject("Word.Application.9") With wApp .ChangeFileOpenDirectory Pfad.Vorlagen & "Angebote\" .Documents.Add Template:=Datei, NewTemplate:=False, DocumentType:=0 .Selection.Find.ClearFormatting .Selection.Find.Replacement.ClearFormatting WE "KD_Anrede", rskd!Anrede ‚ Sub zum Ersetzen der einzelnen Parameter WE "KD_Name", rskd!Firma1 …….. Die Sub für das Ersetzen Sub WE(ByVal s As String, ByVal d As String) With wApp.Selection.Find .Text = s .Replacement.Text = d .Forward = True .Wrap = wdFindContinue .Format = False .Execute Replace:=wdReplaceAll End With End Sub Mein 2. Problem ist, wenn ich einen String, der vbcrlf oder vbNewLine enthält, einfüge, werden kleine Quadrate am Anfang der neuen Zeile in Word dargestellt. Der Zeilenumbruch erfolgt zwar, aber die Quadrate stören. Läßt sich das irgendwie vermeiden ? Vielen Dank schon mal im voraus. Reiner

2 Probleme mit Wordobjekt

632

RG

25.10.06 13:23

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen