[VBA] Formatteren intevoegen tekst

[a3konijn]

Ik moet in een word-document wat tekst invoegen op de plaats van bookmarks (bladwijzers). Dit op zich is geen probleem, alleen wat is nu de handigste manier om deze tekst ook gelijk te formatteren??

gebruikte code voor invoegen op plaats van bookmark:

code:

FillBookmark "bmOnderwerp", txtOnderwerp

'Vult de bladwijzer met de naam bookMarkName met text
Sub FillBookmark(bookMarkName As String, text As String)

    Dim BMRange As range
    
    'Bladwijzer vullen en de bladwijzer weer terug zetten
    With ActiveDocument
      If .Bookmarks.Exists(bookMarkName) Then
        Set BMRange = .Bookmarks(bookMarkName).range
        If Len(text) = 0 Then
            BMRange.text = ""
        Else
            BMRange.text = text
        End If
        .Bookmarks.Add bookMarkName, BMRange
      End If
    End With
End Sub

[Verwijderd]

Lang leve de MSDN Library @ http://msdn.microsoft.com/library/default.asp ! Kijk dan vooral eens in de sectie 'Microsoft Office Developer'.

Ergens is daar het uitgebreide en onoverzichtelijke objectmodel van Word te vinden, en daar zul je zien dan een Range object een Paragraph object subobject heeft, die weer een Style object bevat, en daar kan je volgens mij van alles mee doen.

Schiet me niet lek als ik het mis hebt want VBA is niet mijn sterkste punt en dat wil ik graag zo houden.
/me huivert

[a3konijn]

MrX ik zal eens kijken in de MSDN.
En ja, VBA is ook niet m'n favo-taal maar soms krijg je een opdracht van je werkgever en die moet toch gedaan worden.