[Word 2002] Formatvorlage erzeugen, die erstes Wort fett formatiert
Andreas Borutta
ist es möglich eine Formatvorlage zu erzeugen, die das erste Wort des
Absatz fett formatiert.
Es soll irgendeine Autoformatvariante bei Listen geben, mir geht es
jedoch um das kontrollierte separate Erzeugen einer solchen
Formatvorlage.
Andreas
--
Kann Haß eine Hoffnung erzeugen? (Max Frisch. Tagebücher.)
Barbara Karli
> ist es möglich eine Formatvorlage zu erzeugen, die das erste Wort des
> Absatz fett formatiert.
>
> Es soll irgendeine Autoformatvariante bei Listen geben, mir geht es
> jedoch um das kontrollierte separate Erzeugen einer solchen
Das Makro, das du weiter unten gepostet hast bezieht sich wohl eher auf
diese Frage - deshalb hier ergaenzt mit einer Schleife, die das Dokument
durchlaeuft.
Wichtig ist aber, dass immer vor jedem neuen Absatz 2 leere Absaetze stehen,
sonst laeuft das krumm.
Gruss
Barbara
Sub Walli()
'Makro aufgezeichnet am 08.01.2002 von s
Dim MyDoc As Range
'MyDoc den ganzen Dokumentbereich zuweisen
Set MyDoc = ActiveDocument.Range
'Cursor an den Anfang des Dokuments bringen
Selection.HomeKey Unit:=wdStory
'Schleife fuer alle in MyDoc befindlichen Absaetze
'durchlaufen lassen
For Each myParagraph In MyDoc.Paragraphs
With Selection
.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
.Font.Bold = True
.MoveDown Unit:=wdParagraph, Count:=3
End With
Next myParagraph
End Sub
Andreas Borutta
>> ist es möglich eine Formatvorlage zu erzeugen, die das erste Wort des
>> Absatz fett formatiert.
>>
>> Es soll irgendeine Autoformatvariante bei Listen geben, mir geht es
>> jedoch um das kontrollierte separate Erzeugen einer solchen
>
> Das Makro, das du weiter unten gepostet hast bezieht sich wohl eher auf
> diese Frage
Es ist ein Workaround, weil ich eben nicht weiß, ob eine solche
Formatvorlage möglich ist.
Ein Formatvorlage ist in jedem Fall eleganter als ein Makro.
> - deshalb hier ergaenzt mit einer Schleife, die das Dokument
> durchlaeuft.
>
> Wichtig ist aber, dass immer vor jedem neuen Absatz 2 leere Absaetze stehen,
> sonst laeuft das krumm.
Bei mir ist eine Tabelle, daher sind keine leeren Absätze vorhanden.
Das konntes Du natürlich nicht wissen.
Mein Makro funktioniert aber für die zweispaltige Tabelle wunderbar.
Meine Frage nach der Schleife hatte aber allgemeine Bedeutung.
Ich wolle sie auch zukünftig auf diverse Makros anwenden.
"Führe Makro aus bis Dateiende erreicht ist"
Danke trotzdem für Deine Mühe.
Andreas
--
Wie stehen Sie zu Männern: a wenn Sie der Nachfolger sind? b wenn Sie der
Vorgänger sind? c wenn Sie dieselbe Frau gleichzeitig lieben?
(Max Frisch. Tagebücher.)
Barbara Karli
> Meine Frage nach der Schleife hatte aber allgemeine Bedeutung.
> Ich wolle sie auch zukünftig auf diverse Makros anwenden.
>
> "Führe Makro aus bis Dateiende erreicht ist"
>
Es gibt kein End Of File in diesem Sinn (IMHO). Deshalb habe ich das ganze
Dokument als Range definiert und in diesem Range die Schleife laufen lassen.
Damit erreichst du jeweils auch das gewuenschte. Siehe dir kurz meine
Kommentare im Makro an.
Gruss
Barbara