Ошибка при попытке форматирования межстрочного интервала с использованием переменной вместо «Выделение»

Question

Я хочу изменить межстрочный интервал на одиночный и пробел до и пробел после = 0 только для текста с font.size = 12 и font.name = "Arial". Я записал свой макрос и для всех случаев, когда макрос записывал Selection, я заменил в коде на wdDoc.Range, но я получаю ошибку с кодом ниже в строках .Replacement.ParagraphFormat, который говорит Compile error: Invalid use of property

Как можно это исправить?

Sub SingleLineSpacing()
Dim wdDoc As Document

Set wdDoc = ActiveDocument

    With wdDoc.Range.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Font.Size = 12
        .Font.Name = "Arial"
        .Replacement.ParagraphFormat
        .Replacement.ParagraphFormat.SpaceBefore = 0
        .Replacement.ParagraphFormat.SpaceBeforeAuto = False
        .Replacement.ParagraphFormat.SpaceAfter = 0
        .Replacement.ParagraphFormat.SpaceAfterAuto = False
        .Replacement.ParagraphFormat.LineSpacingRule = wdLineSpaceSingle
        .Replacement.ParagraphFormat.LineUnitBefore = 0
        .Replacement.ParagraphFormat.LineUnitAfter = 0
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
    End With
End Sub

Заранее спасибо.