判断word标题是否居中的vba

386026398

我想通过vba判断word的标题是否居中，以便执行后续动作，包括word表中的，烦请高手指点

约定的童话

Sub CheckTitleAlignment()
    Dim doc As Document
    Dim title As Paragraph
   
    Set doc = ActiveDocument
    Set title = doc.Paragraphs(1) '假设标题在第一段
   
    If title.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter Then
        MsgBox "标题已居中"
    Else
        MsgBox "标题未居中"
    End If
End Sub

386026398

约定的童话 发表于 2023-6-3 08:26
Sub CheckTitleAlignment()
    Dim doc As Document
    Dim title As Paragraph

谢谢，这种条件判断法我做过，没反映的

386026398

约定的童话 发表于 2023-6-3 08:26
Sub CheckTitleAlignment()
    Dim doc As Document
    Dim title As Paragraph

Set title = doc.Paragraphs(1) '假设标题在第一段，怎么改为在鼠标所在段落

蜀中草莽

386026398 发表于 2023-6-3 11:20
Set title = doc.Paragraphs(1) '假设标题在第一段，怎么改为在鼠标所在段落

Set title = Selection.Paragraphs(1)

是不是还要考虑 有没有首行缩进的问题   如果首行缩进了居中的位置肯定跟未缩进的位置不一样