统计word文档基础信息

cuanju

用wordvba可以很方便地统计一篇word文档的基础信息，包括一篇文档的节数、域代码数量、表格数、书签数、浮动式图片（Shape）数、嵌入式图片（inlineshape）数等等。这样一目了然，可以迅速形成对文章结构的总体认知。一般来说，一篇文档包含的节、域代码、表格等数量越多，文档结构越复杂，对其后期的修改排版也随之复杂。

Subd()

Rem 统计word文档基础信息

Rem 以下均不考虑页眉页脚

    i1 = ActiveDocument.Shapes.Count

    i2 = ActiveDocument.InlineShapes.Count

    i3 = ActiveDocument.Sections.Count

    i4 = ActiveDocument.Tables.Count

    i5 = ActiveDocument.Bookmarks.Count

    i6 = ActiveDocument.Fields.Count

    i7 = ActiveDocument.Frames.Count

    i8 = ActiveDocument.Footnotes.Count

    i10 = ActiveDocument.OMaths.Count

    i13 =ActiveDocument.Range.Information(wdNumberOfPagesInDocument) '页数

    i14 = ActiveDocument.Endnotes.Count

    i15 =ActiveDocument.Range.ComputeStatistics(wdStatisticWords) '字数

    For Each oField In ActiveDocument.Fields

        If oField.Code.Text Like"*Equation*" Or oField.Code.Text Like "*EQUATION*" Then'Mathtype公式数量

            iflag = iflag + 1

        End If

    Next

    If iflag = 0 Then i9 = 0 Else i9 = iflag

    For Each oField In ActiveDocument.Fields

        If oField.Code.Text Like "*TOC*"Then '目录

            lflag = lflag + 1

        End If

    Next

    If lflag = 0 Then i16 = 0 Else i16 = lflag

    For i = ActiveDocument.Shapes.Count To 1Step -1

        If ActiveDocument.Shapes(i).Type =msoTextBox Then '文本框数量

            jflag = jflag + 1

        End If

    Next

    If jflag = 0 Then i11 = 0 Else i11 = jflag

    For Each oField In ActiveDocument.Fields

        'Debug.Print oField.Type

        If oField.Type = wdFieldPageRef OroField.Type = wdFieldTOC Or oField.Code.Text Like "*Toc*" Then '目录域数量

            k = k + 1

        End If

    Next

    Rem 统计所有表格的嵌套表格个数（只统计第一层嵌套表格，针对该word文档统计全局嵌套表格总数）

    For Each Tbl In ActiveDocument.Tables

        kflag = kflag + Tbl.Tables.Count

    Next

    If kflag = 0 Then i12 = 0 Else i12 = kflag

    MsgBox "本文共"& i3 & "节！本文共"& i13 & "页！"& "平均每页"& Round(i15 / i13, 0) & "个字！"& Chr(13) & Chr(13) & "本文共"& i6 - k & "个非目录域（其中"& i9 & "个Mathtype公式，"& i6 - k - i9 & "个其他域）！" _

        & Chr(13) & Chr(13) &"本文共"& i16 & "个目录！"& Chr(13) & Chr(13) & "本文共"& i10 & "个自带公式！" _

        & Chr(13) & Chr(13) &"本文共"& i4 & "个表格（其中"& i12 & "个嵌套表格）！"& Chr(13) & Chr(13) & "本文共"& i5 & "个书签！" _

        & Chr(13) & Chr(13) &"本文共"& i8 & "个脚注！本文共"& i14 & "个尾注！"& Chr(13) & Chr(13) & "本文共"& i2 - i9 & "个InlineShape（不含Mathtype公式）！"& Chr(13) & Chr(13) _

        & "本文共"& i1 & "个Shape（其中"& i11 & "个文本框）！"& "本文共"& i7 & "个图文框！"

EndSub

cuanju

1. Sub dm2()
   
2.     Rem 以下均不考虑页眉页脚
   
3.     i1 = ActiveDocument.Shapes.Count
   
4.     i2 = ActiveDocument.InlineShapes.Count
   
5.     i3 = ActiveDocument.Sections.Count
   
6.     i4 = ActiveDocument.Tables.Count
   
7.     i5 = ActiveDocument.Bookmarks.Count
   
8.     i6 = ActiveDocument.Fields.Count
   
9.     i7 = ActiveDocument.Frames.Count
   
10.     i8 = ActiveDocument.Footnotes.Count
    
11.     i10 = ActiveDocument.OMaths.Count
    
12.     i13 = ActiveDocument.Range.Information(wdNumberOfPagesInDocument) '页数
    
13.     i14 = ActiveDocument.Endnotes.Count
    
14.     i15 = ActiveDocument.Range.ComputeStatistics(wdStatisticWords) '字数
    
15.     For Each oField In ActiveDocument.Fields
    
16.         If oField.Code.Text Like "*Equation*" Or oField.Code.Text Like "*EQUATION*" Then 'Mathtype公式数量
    
17.             iflag = iflag + 1
    
18.         End If
    
19.     Next
    
20.     If iflag = 0 Then i9 = 0 Else i9 = iflag
    
21.     For Each oField In ActiveDocument.Fields
    
22.         If oField.Code.Text Like "*TOC[!0-9]*" Then '目录
    
23.             lflag = lflag + 1
    
24.         End If
    
25.     Next
    
26.     If lflag = 0 Then i16 = 0 Else i16 = lflag
    
27.     For i = ActiveDocument.Shapes.Count To 1 Step -1
    
28.         If ActiveDocument.Shapes(i).Type = msoTextBox Then '文本框数量
    
29.             jflag = jflag + 1
    
30.         End If
    
31.     Next
    
32.     If jflag = 0 Then i11 = 0 Else i11 = jflag
    
33.     For Each oField In ActiveDocument.Fields
    
34.         If oField.Type = wdFieldPageRef Or oField.Type = wdFieldTOC Or oField.Code.Text Like "*Toc*" Or oField.Code.Text Like "*TOC[0-9]*" Then '目录域数量
    
35.             k = k + 1
    
36.         End If
    
37.     Next
    
38.     Rem 统计所有表格的嵌套表格个数（只统计第一层嵌套表格，针对该word文档统计全局嵌套表格总数）
    
39.     For Each Tbl In ActiveDocument.Tables
    
40.         kflag = kflag + Tbl.Tables.Count
    
41.     Next
    
42.     If kflag = 0 Then i12 = 0 Else i12 = kflag
    
43.     MsgBox "本文共" & i3 & "节！本文共" & i13 & "页！" & "平均每页" & Round(i15 / i13, 0) & "个字！" & Chr(13) & Chr(13) & "本文共" & i6 - k & "个非目录域（其中" & i9 & "个Mathtype公式，" & i6 - k - i9 & "个其他域）！" _
    
44.         & Chr(13) & Chr(13) & "本文共" & i16 & "个目录！" & Chr(13) & Chr(13) & "本文共" & i10 & "个自带公式！" _
    
45.         & Chr(13) & Chr(13) & "本文共" & i4 & "个表格（其中" & i12 & "个嵌套表格）！" & Chr(13) & Chr(13) & "本文共" & i5 & "个书签！" _
    
46.         & Chr(13) & Chr(13) & "本文共" & i8 & "个脚注！本文共" & i14 & "个尾注！" & Chr(13) & Chr(13) & "本文共" & i2 - i9 & "个InlineShape（不含Mathtype公式）！" & Chr(13) & Chr(13) _
    
47.         & "本文共" & i1 & "个Shape（其中" & i11 & "个文本框）！" & "本文共" & i7 & "个图文框！"
    
48. End Sub
    
49. 
    
50. 
    

复制代码

cuanju

原先的代码已进行了更改。

cuanju

统计word文档基础信息

wdpfox

感谢cuanju老师分享，支持一下！论坛因你而精彩！

We meet by chance like patches of drifting duckweed,  
May everything be fine with you everyday !
  （你我萍水相逢，愿君一切安好！）

ke3088