Private Sub Document_Change()
On Error Resume Next
Application.ScreenUpdating = False
' --- 修改开始:设置为单倍行距 ---
With ActiveDocument.Styles("脚注文本").ParagraphFormat
.LineSpacingRule = wdLineSpaceSingle ' 改为单倍行距
.LineSpacing = 0 ' 单倍行距下,此值通常设为0或1,Word会自动计算
.SpaceBefore = 0
.SpaceAfter = 0
End With
' 兼容英文版 Word (如果中文版样式名无效)
If Err.Number <> 0 Then
Err.Clear
With ActiveDocument.Styles("Footnote Text").ParagraphFormat
.LineSpacingRule = wdLineSpaceSingle ' 改为单倍行距
.LineSpacing = 0
.SpaceBefore = 0
.SpaceAfter = 0
End With
End If
' --- 修改结束 ---