在 Word 中循环段落 - VBA

Question

Im trying to fix my word document's empty paragraphs with VBA. The issue is that i have pages with paragraphs that have a font.size = 11. I need to change these paragraphs to font.size = 10. So i need a loop that starts from the beginning of the document, iterates through the paragraphs and searches If paragraph is empty AND font.size = 11 then Font.Size 10.

I keep getting an errors and not quite sure if im trying to do the right thing. Any help?

With Selection
Dim Paragraph As Word.Paragraph
For Each Paragraph In ActiveDocument.Paragraphs
If Paragraph.Range.Count = 1 And Font.Size = 11 Then
Paragraph.Font.Size = 10
Next Paragraph
End With

Answer 1

There are several reasons your code doesn't work.

With Selection
   ...
End With

This statement is not used and you have no reason to have it here. With statements always go together with expressions starting with . .

The If .. Then statement needs an End If since you aren't doing it all in one line.

The Font property is not directly connected to the Paragraph . There is a Range object too.

Put it all together:

Dim Paragraph As Word.Paragraph
For Each Paragraph In ActiveDocument.Paragraphs
    If Len(Paragraph.Range.Text) <= 1 And Paragraph.Range.Font.Size = 11 Then
        Paragraph.Range.Font.Size = 10
    End If
Next Paragraph