VBA unter Word

Computer: Software & Programmierung Visual Basic
#1

Hallo,

ich habe da ein Problem, das mich schon eine ganze Weile beschäftigt. Von mir wurde in Word eine Makro geschrieben, das mir z.B. einen markierten Text in folgende Tags einbetten soll:

 Mein Text

Der Quellcode ist auch recht zügig geschrieben:

Sub HTML\_Standard()
 Selection.Copy
 Selection.TypeText Text:=""
 Selection.TypeParagraph
 Selection.Paste
 Selection.TypeParagraph
 Selection.TypeText Text:=""
End Sub

Das Problem versteckt sich im Detai. Wird dieser Quellcode ausgeführt, so erzeugt er Folgendes:

 Mein Text

Wie ihr erkennen könnt, ist es mir nicht gelungen die Anführungszeichen (") einzubetten. Es liegt daran, dass der gesamte String des Textes im Makroquelltext den String markiert.

Somit erzeugt mir der Quelltext:

Sub HTML\_Standard()
 Selection.Copy
 Selection.TypeText Text:=""
 Selection.TypeParagraph
 Selection.Paste
 Selection.TypeParagraph
 Selection.TypeText Text:=""
End Sub

einen Fehler.

Wer kann helfen?

Gruß,

MrLubaLuba

#2

Hallo MrLubaLuba

du musst die " mit chr$(34) ersetzen, das 34ste Zeichen der ASCII-Tabelle entspricht dem "

Selection.TypeText Text:=""

Bsp.:
Selection.TypeText Text:="

#3

Hallo MrLubaLuba,

um ein VBA ein " als String übergeben zu könnne, musst du „“ eingeben.
Also z.B.
debug.Print „“„Hallo“", sagte ich."
liefert dir:
„Hallo“, sagte ich.

Gruß
Daniel

#4

Hallo Michael,

leider funktioniert es nicht so, wie Du es mir vorgeschlagen hast. Der Tipp von Daniel führte mich auf die richtige Spur:

Die Eingabe von

führt zur Ausgabe

Dennoch bedanke ich mich recht herzlich für Deine Mühe.

Grüße,

MrLubaLuba

#5

Hallo Daniel,

vielen Dank für den Tipp. Er war goldrichtig.

Grüße,

MrLubaLuba

#6

Du darfst mir auch gern ein * geben wenn’s so richtig war(ich sammle die). :wink:)