OT: Word Dokument aus Vorlage mit Formatierung

27/08/2008 - 11:14 von Stefan M. | Report spam
Hallo,

wie weise ich einem Absatz eine Formatierung in einem neuem Word
Objekt zu?

Der Absatz hat die Werte des ausgewàhlten Formats aber im
Pulldown-Menü wo das Format angezeigt werden soll steht statt
Überschrift 2 die Werte von dem Format(Schriftart, Grösse, usw.)

Kennt jemand den Trick das Format komplett zuzuweisen so das auch
Überschrift 2 angezeigt wird wenn der Cursor in dem Absatz ist?
(Benötigt für das Inhaltsverzeichnis)

Gruß
Stefan


Dim oWord As Word.Application
Dim oDoc As Word.Document
Dim oPara1 As Word.Paragraph, oPara2 As Word.Paragraph

oWord = CreateObject("Word.Application")
oWord.Visible = True
oDoc = oWord.Documents.Add("normal.dot")

'Insert a dummy paragraph at the beginning of the document with
default value.
oPara1 = oDoc.Content.Paragraphs.Add
oPara1.Range.Text = ""
oPara1.Range.Font.Size = 8
oPara1.Range.Font.Bold = False
oPara1.Format.SpaceAfter = 2 '6 pt spacing after paragraph.
oPara1.Range.InsertParagraphAfter()

oPara2 oDoc.Content.Paragraphs.Add(oDoc.Bookmarks.Item("\endofdoc").Range)
oPara2.Style = oDoc.Styles("Überschrift 2")
oPara2.Range.Text = "Überschrift 2"
oPara2.Range.InsertParagraphAfter()
oPara2.Range.Style = oDoc.Styles("Überschrift 2")
 

Lesen sie die antworten

#1 Gerold Mittelstädt
27/08/2008 - 11:25 | Warnen spam
Hallo Stefan,

Stefan M. schrieb:
wie weise ich einem Absatz eine Formatierung in einem neuem Word
Objekt zu?

Der Absatz hat die Werte des ausgewàhlten Formats aber im
Pulldown-Menü wo das Format angezeigt werden soll steht statt
Überschrift 2 die Werte von dem Format(Schriftart, Grösse, usw.)

Kennt jemand den Trick das Format komplett zuzuweisen so das auch
Überschrift 2 angezeigt wird wenn der Cursor in dem Absatz ist?
(Benötigt für das Inhaltsverzeichnis)



Der einfachste Weg das rauszufinden dürfte es sein, in Word ein Macro
aufzuzeichnen und sich dann anzuschauen, was da wie gemacht wird.

Viele Grüße!

Ähnliche fragen