我想通過條件識別，如紅色代碼部分，設定某一段中第一句話的格式，該怎么實作呢，請大神相助。代碼在附件檔案的宏中。跪求大神指教。謝謝。
Dim ib As Paragraph
For Each ib In ActiveDocument.Paragraphs
If ib.Range.Information(wdWithInTable) = False Then
ib.Range.Select '選中
Selection.ClearFormatting
If ib.Range Like "[關于]" Then
If ib.Range.Sentences.Count = 1 Then
ib.Range.Style = wdStyleHeading1
Else
End If
ElseIf ib.Range Like "[一二三四五六七八九十百零千]、*" Then
If ib.Range.Sentences.Count = 1 Then
ib.Range.Style = wdStyleHeading2
Else
End If
ElseIf ib.Range Like "（[一二三四五六七八九十百零千]）*" Then
If ib.Range.Sentences.Count = 1 Then
ib.Range.Style = wdStyleHeading3
Else
End If
ElseIf ib.Range Like "[0-9][、.．]*" Then
If ib.Range.Sentences.Count = 1 Then
ib.Range.Style = wdStyleHeading4
Else
End If
ElseIf ib.Range Like "（[0-9]）*" Then
If ib.Range.Sentences.Count = 1 Then
ib.Range.Style = wdStyleHeading5
Else
End If
Else
End If
End If
Next
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/43596.html
標籤：VBA