wps怎么自动计算字数并填充到内容

vipkf

大概意思：


就是我想知道文档里有多少个字。


然后自动计数出来，并填充到内容里。


ctrl+shift+g 可以计算出字数，但我想填充到内容里。


具体看演示图：

r336di

那你用这个。

找到插入，右边文档部件下拉选择“域”，找到文档属性，里面有一个Words，选中确定。

之后右键这个值，点“更新域”，就能更新字数了

r336di

用宏。
alt+f11 - vba编辑器 - 插入 - 模块，然后粘贴。之后再文档中alt+f8插入CountWordsAndInsert宏

Sub CountWordsAndInsert()
    ' 统计文档的字数
    Dim wordCount As Long
    wordCount = ActiveDocument.Words.Count
   
    ' 在文档末尾插入字数
    With ActiveDocument.Content
        .InsertAfter "文档字数: " & wordCount
        .InsertParagraphAfter
    End With
End Sub

vipkf

r336di 发表于 2024-4-30 12:53
用宏。
alt+f11 - vba编辑器 - 插入 - 模块，然后粘贴。之后再文档中alt+f8插入CountWordsAndInsert宏

还有更简单的方法吗？感觉好复杂啊

JackLei

不管多少个文档都能统计出来

[Visual Basic] 纯文本查看 复制代码

Sub WORD字数统计()
    Dim wapp, m, k, word1, i%
    Application.ScreenUpdating = False
    
    With ThisWorkbook.Sheets(1)
        .Range("A2:Z9999").Clear
        Set wapp = CreateObject("Word.Application")
        m = Application.GetOpenFilename(Title:="打开文件", MultiSelect:=True, filefilter:="WORD文件(*.doc*),*.doc*")
        '判断是否选中文件
        
        If Not IsArray(m) Then
            Application.ScreenUpdating = True
            Exit Sub
        End If
        
        .Cells(1, 1) = "名称"
        .Cells(1, 2) = "字数"
        .Cells(1, 3) = "图片数"
        .Cells(1, 4) = "表格数"
        i = 2
        
        For Each k In m
            Set word1 = wapp.documents.Open(k)
            wapp.Windows(1).Visible = True
            .Cells(i, 1) = word1.Name '文件名
            .Cells(i, 2) = word1.BuiltinDocumentProperties(15) '字数
            .Cells(i, 3) = word1.InlineShapes.Count '图片数
            .Cells(i, 4) = word1.tables.Count '表格数
            i = i + 1
            word1.Close False
            Set word1 = Nothing
        Next
    End With
    
    wapp.Quit
    Set wapp = Nothing
    MsgBox ("完成" & i & "个文档，统计完毕")
End Sub