Formatvorlagen über VBA zuweisen

09/04/2008 - 13:07 von Jürgen Dietze | Report spam
Word2007

Hallo zusammen,
ich erzeuge aus Excel heraus Worddokumente. Ich schreibe meine Werte in eine
bestehende Tabelle eines bestehenden Dokumentes. Diesen Text möchte ich nun
mit Formatvorlagen versehen (z.B. Überschrift1).

Der Witz ist, dass der Text auch so aussieht wie Überschrift1, die
zugehörige Formatvorlage aber nicht aktiv ist. Ich benötiges dies, um spàter
beim Export als pdf-Datei ein Inhaltsverzeichnis zu erstellen.

Hier einmal exemplarisch die Codezeilen (***). Was mache ich falsch?
Gruß
Jürgen Dietze


Dim Wordobj As Object
Dim WordTab As Table
Dim Tabelle As Range
Set Wordobj = CreateObject("Word.Application")
Wordobj.Visible = True
On Error Resume Next
Wordobj = Wordobj.Documents.Open("F:\Excel\PivotNachWord.docx")
Set WordTab = Wordobj.ActiveDocument.Tables(1)


For i = 1 To 10
For j = 1 To 4
If j = 1 And Cells(i, j) <> "" Then
WordTab.Cell(i, j).Range.Text = Cells(i, j)

*** WordTab.Cell(i, j).Range.Style = "Überschrift1"
*** WordTab.Cell(i, j).Range.Style =
Wordobj.ActiveDocument.Styles("Überschrift 1")
End If
Next j
Next i
 

Lesen sie die antworten

#1 Lisa Wilke-Thissen
09/04/2008 - 14:43 | Warnen spam
Hallo Jürgen,

"Jürgen Dietze" schrieb im Newsbeitrag
news:

[Word 2007]

ich erzeuge aus Excel heraus Worddokumente.



die VBA-Experten findest du in news:microsoft.public.de.word.vba.

Ich schreibe meine Werte in eine bestehende Tabelle
eines bestehenden Dokumentes. Diesen Text möchte
ich nun mit Formatvorlagen versehen (z.B. Überschrift1).



Welchen Text mit welcher Art von Formatvorlagen (derer es quasi fünf gibt:
Absatz-, Zeichen-, verknüpfte -, Listen-, Tabellen-Formatvorlagen)?

Der Witz ist, dass der Text auch so aussieht wie
Überschrift 1, die zugehörige Formatvorlage
aber nicht aktiv ist.



Was meinst du mit "nicht aktiv"?
Möglicherweise hast du nur ausgewàhltem Text (statt dem gesamten Absatz) die
Absatzformatvorlage zugewiesen.

Viele Grüße

Lisa
MS MVP Word

Ähnliche fragen