在word中使用VBA区分标题和正文

在word中使用VBA区分标题和正文

获取标题与正文使用style。试验一下如下代码。
Sub Test()
Dim i As Single
For i = 1 To ActiveDocument.BuiltInDocumentProperties(wdPropertyLines).Value
With Selection
    .GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=i
    .HomeKey Unit:=wdLine
    .EndKey Unit:=wdLine, Extend:=wdExtend
End With
If Selection.Style = "正文" Then
MsgBox i & "行是正文"
End If
If Selection.Style = "标题 1" Then
MsgBox i & "行是标题 1"
End If
Next

End Sub追问您能解释一下with里面的那段代码吗？追答按行选择文本，循环数i即为行标。追问请问方便留个联系方式吗？还有些问题想向您请教

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息