实现进度条功能

Question

    Sub demo()
    Dim oPara As Paragraph
    For Each oPara In ActiveDocument.Paragraphs
           If oPara.style = "Body text" Then
               With oPara.Format
                    .LineSpacingRule = wdLineSpaceSingle
                    .SpaceAfter = Word.Application.LinesToPoints(0)
                    .SpaceBefore = Word.Application.LinesToPoints(0)
               End With
        End If
    Next oPara
End Sub

vba代码将每个带有“正文文本”样式的段落设置为某种格式，但我想添加 进度条，当代码运行时，进度条显示：当前页数/总页数？

Answer 1

正如蒂莫西所说：

Sub Demo()
With ActiveDocument.Styles(wdStyleBodyText).ParagraphFormat
  .LineSpacingRule = wdLineSpaceSingle
  .SpaceAfter = 0
  .SpaceBefore = 0
End With
End Sub

不需要循环，因此不需要进度条。