Как найти несколько свойств абзаца с помощью макроса MS Word

Question

У меня есть макрос, который находит некоторые свойства слова абзацы. Мне нужно найти абзацы «4 строки или больше», используя макрос.

Я попробовать этот код:

If oPar.LineCount = LineCount + 4 Then 

Ниже всего код:

Sub CheckKeepLinesTogether() 
Application.ScreenUpdating = False 
Const message As String = "Check Keep Lines Together" 
Dim oPar As Paragraph 
Dim oRng As Word.Range 
Dim LineCount As Long 

For Each oPar In ActiveDocument.Paragraphs 
Set oRng = oPar.Range 

With oRng 
    With .Find 
     .ClearFormatting 
     .Text = "^13" 
     .Execute 
    End With 

    Set oRng = oPar.Range 

     If oPar.KeepTogether = False Then 
     If oPar.LineCount = LineCount + 4 Then 

      .Select 
      Selection.Comments.Add Range:=Selection.Range 
      Selection.TypeText Text:=message 
      Set oRng = Nothing 

     End If 
     End If 
    End With 
Next 
Application.ScreenUpdating = True 
End Sub 

Answer 1

Замените неисправную линию с незакомментированным кодом:

'If oPar.LineCount = LineCount + 4 Then 
    If oPar.Range.ComputeStatistics(wdStatisticLines) >= 4 Then 

Кстати , вам не нужно дважды устанавливать Set oRng = oPar.Range.

Answer 2

Не тестировался

Sub CheckKeepLinesTogether() 
    Application.ScreenUpdating = False 
    Const message As String = "Check Keep Lines Together" 
    Dim oPar As Paragraph 
    Dim oRng As Word.Range 
    Dim LineCount As Long 

    For Each oPar In ActiveDocument.Paragraphs 
    Set oRng = oPar.Range 

    With oRng 
     With .Find 
      .ClearFormatting 
      .Text = "^13" 
      .Execute 
     End With 
      If oPar.KeepTogether = False Then 
      If oPar.Range.ComputeStatistics(wdStatisticLines) >= 4 Then 
       Set oRng = oPar.Range 
       oRng.Comments.Add Range:=oRng 
       oRng.TypeText Text:=message 
      Set oRng = Nothing 
      End If 
      End If 
     End With 
    Next 
    Application.ScreenUpdating = True 
    End Sub