Tags in Word via Makro generieren

PCDjoe · 15.02.2009

Ola,

bei meinem Editor gibt es folgende Funktion: Ich markiere einen Text, aktiviere eine Tastenkombination. Dann erscheint eine Dialogbox, wo ich eine Zeichenfolge eingebe, bsp. title. Wenn ich die Dialogbox bestätige, dann erscheint der Text in einem Tag, der die Zeichenfolge enthält: <title>Text</title>. Kennt jemand dafür eventuell ein AddoN für Word 2007, das das kann oder hat selbst schon eine Makrolösung dafür?

klexy · 20.02.2009

Kannst du das nochmal für Hausfrauen erklären?
Ich glaube, ich habe eine Idee, bin mir aber nicht sicher, ob ich das richtig verstanden habe.

PCDjoe · 20.02.2009

Für Hausfrauen?

ich bin in Word und schreibe einen Text, z.B. Überschrift.
dann markiere ich das Wort Überschrift und drücke eine Tastenkombination.
Es erscheint eine Box. wo ich title eingebe und bestätige.
Danach steht in meinem Word-Dokument
<title>Überschrift</title>

hahahaha · 20.02.2009

Hi,
meinst du sowas hier?

Code:

Sub test()
Dim eingabe As String

eingabe = InputBox(Bitte etwas eingeben, Titel der Inputbox)

Selection = &lt; &amp; eingabe &amp; > &amp; Selection &amp; &lt;/ &amp; eingabe &amp; >

End Sub

PCDjoe · 20.02.2009

Ola,

danke, genau so. bin die Sache wieder nur zu kompliziert angegangen ...

hahahaha · 20.02.2009

kein Problem,
kenn das nur zu gut, manchmal sieht man den Wald vor lauter Bäumen nicht

klexy · 22.02.2009

Jetzt ist mir die Thekensau zuvorgekommen.

PCDjoe · 22.02.2009

Ola,

du kannst ja noch ne Sicherheitslösung einbauen: Wenn eingabe leer - Fehlermeldung und keine Aktion ;-)

klexy · 22.02.2009

Ok. Aber hausfrauenmäßig, denn über die Funktion Len geht es nicht, wenn man nix markiert hat. Dann meint er trotzdem, daß er das nächstfolgende Zeichen nach dem Cursor markiert hätte.

Code:

Sub Tag_schreiben()
Dim eingabe As String
On Error GoTo nixmarkiert
Selection.Copy
eingabe = InputBox(Bitte etwas eingeben, Titel der Inputbox)
If eingabe =  Then
MsgBox             Nix eingegeben            
Exit Sub
End If

Selection = &lt; &amp; eingabe &amp; > &amp; Selection &amp; &lt;/ &amp; eingabe &amp; >
Exit Sub
nixmarkiert:
MsgBox             Nix markiert            
End Sub

Tags in Word via Makro generieren

PCDjoe

klexy

PCDjoe

hahahaha

PCDjoe

hahahaha

klexy

PCDjoe

klexy

Tags in Word via Makro generieren

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums