Scripta in text i Word

[Johan Almblad]

Jag lägger till text i Word mha Word.Application i VBScript. Allt gåt som smort utom att jag inte lyckas formatera stycken med de formatmallar som finns i dokumentet.

Jag öppnar ett tomt dokument som innehåller ett antal stilar och sätter in texten "En rubrik" enligt följande:

Set oRange = Doc.Range(0,0)

With oRange

.InsertAfter "En rubrik"

.InsertParagraphAfter

End With

Någon som vet hur jag gör så att det insatta stycket formateras med formatmallen "Rubrik24" (som finns i dokumentet)

 

Tack!

// Johan

[MH]

nej, word är inte min grej, men du borde kunna bygga på någonting i stil med:

Selection.Style = ActiveDocument.Styles("Rubrik24")

fast då måste du förstås se till att få en "selection" som stämmer