Forums Neueste Beiträge
 

.DropCap Verwirrungen

12/09/2007 - 21:18 von Robert M. Franz (RMF) | Report spam
Hallo allerseits

bin wieder mal am basteln ausserhalb meines Reviers. Aufgabenstellung:
"DropCap" für jeden Absatz, der nach einer "Überschrift 1" steht.

[Ein zweiter Schritt wàre noch, sicherzustellen, dass der Absatz nicht
z.B. selbst wieder eine Überschrift ist, etc. -- soweit bin ich aber
noch lange nicht! :-)]

Folgendes habe ich mal so aufgesetzt, und es làuft auch ohne Fehler
durch. Es tut aber auch gar nix:

Dim myPara As Word.Paragraph
If ActiveDocument.Paragraphs.Count > 1 Then
For Each myPara In ActiveDocument.Paragraphs
If myPara.Style = wdStyleHeading1 Then
With myPara.Next.DropCap
.Position = wdDropNormal
.FontName = "+Headings"
.LinesToDrop = 3
.DistanceFromText = CentimetersToPoints(0)
End With
End If
Next myPara
End If

Zweiter Ansatz war dann halt mit "Aufzàhlen":

Dim i As Long
For i = 1 To ActiveDocument.Paragraphs.Count - 1
If ActiveDocument.Paragraphs(i).Style = wdStyleHeading1 Then
With ActiveDocument.Paragraphs(i + 1).DropCap
.Position = wdDropNormal
.FontName = "+Headings"
.LinesToDrop = 3
.DistanceFromText = CentimetersToPoints(0)
End With
End If
Next i

Hat er lànger, làuft aber auch ganz einfach durch, ohne was sichtbar zu
tun im Dokument. Dort hat es auf jeden Fall ein paar Ü1! :-(

Wer nimmt mir das Brett weg?

Gruss
Robert
/"\ ASCII Ribbon Campaign | MS
\ / | MVP
X Against HTML | for
/ \ in e-mail & news | Word
 

Lesen sie die antworten

#1 Helmut Weber
12/09/2007 - 22:14 | Warnen spam
Hallo Robert,

wàre ganz angenehm, wenn es so ginge, geht aber nicht.

So gehts:

If myPara.Style = ActiveDocument.Styles(wdStyleHeading1) Then

Allerdings ist da einiges nicht so recht geordnet,
denn ich kann durchaus einen Style mit Namen "-2" anlegen,
entspricht wdStyleHeading1, ist aber eine Zahl,
was Word nicht weiter stört, sollte es aber.

In der Folge kommt einiges durcheinander...


Gruß

Helmut Weber, MVP WordVBA

"red.sys" & chr$(64) & "t-online.de"
Win XP, Office 2003 (US-Versions)

Ähnliche fragen