Bookmarks in hoofdletters weergeven.

[sandervkn]

Hallo,

Hoe kan ik mijn ingevoerde bookmarks in hoofdletters laten tonen in mijn Word-document?

Ik gebruik nu deze code:
ActiveDocument.Range.Case = wdUpperCase

Maar die doet het hele document hoofdletters maken, en dat is niet de bedoeling...

Alvast bedankt,
Sander.

 

[OctaFish]

Met deze macro bijvoorbeeld.

Sub BM_Omzetten()
Dim BM As Bookmark
Dim BMRange As Range
For Each BM In ActiveDocument.Bookmarks
    If BM.Empty = True Then
        Set BMRange = ActiveDocument.Bookmarks(BM).Range
        BMRange.Delete
    Else
        BM.Range.Case = wdUpperCase
    End If
Next
End Sub

 

[sandervkn]

Dank je wel! Dat werkt fantastisch!

 

[sandervkn]

Kunnen er trouwens ook uitzonderingen gemaakt worden, zodat bijvoorbeeld txtOmschrijving niet in hoofdletters komen te staan?

 

[OctaFish]

(Bijna) alles kan wel...

Sub BM_Omzetten()
Dim BM As Bookmark
Dim BMRange As Range
For Each BM In ActiveDocument.Bookmarks
    If BM.Empty = True Then
        Set BMRange = ActiveDocument.Bookmarks(BM).Range
        BMRange.Delete
    Else
        Select Case BM.Name
            Case "Test1"
                BM.Range.Case = wdTitleSentence
            Case "Test2"
                BM.Range.Case = wdToggleCase
            Case Else
                BM.Range.Case = wdUpperCase
        End Select
    End If
Next
End Sub