Lille begyndelsesbogstav efter hvert punktum i vba?

Det er korrekt, at wdLowerCase = 0, men det har ingen relevans for Find-handlingen. Det betyder, at du kan bruge 0 (nul) i stedet for wdLowerCase.

Med linjen:
.Replacement.Text = ". \0"
er det nok din idé, at det skulle erstatte det fundne bogstav med lowercase – det er ikke muligt. I givet fald havde du heller ikke brug for koden While…Wend.

Her er en tilrettet version af din kode. Jeg har ”strømlinet" den ved at bruge With…End With. Desuden er der ændret en del i koden. Du kan sammenligne med din egen version.

Sub CapsAfterDot()
   
    With Selection
        With .Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = ". ([A-Å])"
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchCase = True
            .MatchWholeWord = False
            .MatchWildcards = True
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
   
        While .Find.Execute = True
            .Range.Case = wdLowerCase
        Wend
    End With
End Sub

Tusind tak, Lene. Det virker upåklageligt, som altid :-)