Word art unterstreichen?

Computer: Software & Programmierung Office Software
1

hallo.
habe noch eine Frage. Kann man eine WordArt unterstreichen? also wie normalen text? nur halt passend? möchte die 4. aus der ersten reihe verwenden (word 2000)…

gruß,
mareike

2

hallo mareike,

Kann man eine WordArt unterstreichen?

nein

weihnachtliche Grüße aus Schönberg (Lübeck)
Wolfgang
(Netwolf)

3

Kann man eine WordArt unterstreichen?

nein

Hallo Wolfgang,
kann man denn nicht aufgrund des Namens der WordArt o.ä. deren Position feststelllen per Vba, dann halt 20 Punkte darunter eine waagerechte Linie ziehen?
Mit Position meine ich jetzt Top,Left,usw.
Gibts das in Word?
Gruß
Reinhard

4

Hallo Reinhard,

kann man denn nicht aufgrund des Namens der WordArt o.ä. deren
Position feststelllen per Vba, dann halt 20 Punkte darunter
eine waagerechte Linie ziehen?

wenn du sooooo fragst: es ist einfacher per Grafikelement einen Strich darunter zu setzten.

Mit Position meine ich jetzt Top,Left,usw.
Gibts das in Word?

nun ja, geben wird es das nicht, das müßte dann programmiert werden.
Das Problem dabei ist: die Ränder entsprechen nicht immer dem Schriftzug, erst recht nicht, wenn der Text mehrzeilig, oder gekrümmt ist.

Also wird es nicht sinnvoll sein, so eine Funktion zu programmieren, da man die Position der Grafikschrift nicht bestimmen kann (es ist ja eigentlich ein Bild das per Wordart generiert wird).

Grüße aus Schönberg (Lübeck)
Wolfgang
(Netwolf)

5

wie mein Vorschreiber schon geschrieben hat - es geht nicht direkt.
Eine MÖglichkeit (musst natürlich die konkreten Einstellungen [schriftarten, größe, Schatten etc.] machen wie du sie brauchst) wäre jedoch

  1. öffne WordArt (WA) mit der Vorlage die du haben möchtest
  2. schreibe als Text die Unterstriche „______“ so viel du brauchst
  3. bestätige mit „ok“
  4. öffne (falls noch nicht da) die WA-Symbolleiste
  5. klick auf das Symbol „ABC“ und nehme oben den waagerechten Strich

Nun kannst du diese „unterstreichung“ manuell unter deinen Text packen.
Ich hoffe es klappt wie du es brauchst

Viel Spaß

6

Hallo Wolfgang,

kann man denn nicht aufgrund des Namens der WordArt o.ä. deren
Position feststelllen per Vba, dann halt 20 Punkte darunter
eine waagerechte Linie ziehen?

wenn du sooooo fragst: es ist einfacher per Grafikelement
einen Strich darunter zu setzten.

also Variante1:

Sub Makro1()
Dim S As Shape
On Error Resume Next
 ActiveDocument.Shapes("MeineArt").Delete
 ActiveDocument.Shapes("MeineLinie").Delete
On Error GoTo 0
ActiveDocument.Shapes.AddTextEffect(msoTextEffect4, "Mein Text", \_
 "Arial Black", 36#, msoFalse, msoFalse, 219.5, 224.4).Name = "MeineArt"
With ActiveDocument.Shapes("MeineArt")
 ActiveDocument.Shapes.AddLine(200, 300, 500, 300).Name = "MeineLinie"
End With
End Sub

Das Problem dabei ist: die Ränder entsprechen nicht immer dem
Schriftzug, erst recht nicht, wenn der Text mehrzeilig, oder
gekrümmt ist.

Also wird es nicht sinnvoll sein, so eine Funktion zu
programmieren, da man die Position der Grafikschrift nicht
bestimmen kann (es ist ja eigentlich ein Bild das per Wordart
generiert wird).

Irgendwie hast du auch Recht, so prickelnd sieht Variante2 nicht aus :smile::

Sub Makro2()
Dim S As Shape
On Error Resume Next
 ActiveDocument.Shapes("MeineArt").Delete
 ActiveDocument.Shapes("MeineLinie").Delete
On Error GoTo 0
ActiveDocument.Shapes.AddTextEffect(msoTextEffect4, "Mein Text", \_
 "Arial Black", 36#, msoFalse, msoFalse, 219.5, 224.4).Name = "MeineArt"
ActiveDocument.Shapes.AddTextEffect(msoTextEffect3, "\_\_\_\_\_\_\_\_\_", \_
 "Arial Black", 36#, msoFalse, msoFalse, 219.5, 280.4).Name = "MeineLinie"
ActiveDocument.Shapes("MeineLinie").Select
Selection.ShapeRange.ScaleWidth 1.25, msoFalse, msoScaleFromTopLeft
End Sub

Gruß
Reinhard