如何写VBA批量统计word和txt的字符数(不含空格)
我把我以前用excel做的类似的module改了下发给你你可能需要在工具引用那里添加 microsoft word 14.0 object library以及 microsoft scripting runtime。
你可以改下用word vba,然后txt那部分的处理用别的方法做就不用添加引用了Sub CountTxtWord()Dim fName As String, fPath As StringDim s As StringDim i As IntegerDim WrdApp As ObjectSet WrdApp = CreateObject("word.application")ActiveSheet.Cells.ClearfPath = "D:\test6\"fName = Dir(fPath)i = 2Do Until fName = ""If Right(fName, 4) = ".txt" ThenWith New Scripting.FileSystemObjectWith .OpenTextFile(fPath & fName)s = .ReadAlls = Replace(s, " ", "")Cells(i, 1) = fPath & fNameCells(i, 2) = Len(s)i = i + 1End WithEnd WithElseWrdApp.Documents.Open (fPath & fName)s = WrdApp.ActiveDocument.Range.TextWrdApp.ActiveDocument.Close Falses = Replace(s, " ", "")Cells(i, 1) = fPath & fNameCells(i, 2) = Len(s)i = i + 1End IffName = DirLoopColumns(1).AutoFitWrdApp.QuitEnd Sub
word字数统计,如何计算word中字数的多少
有多种方法: (1)工具统计法: 单击Word菜单栏的“工具”菜单,选择“字数统计”。
(2)文档属性法: 单击Word菜单栏的“文件”菜单,选择“属性”,在“统计信息”栏下面就可以看到。
对于高版本的Word,可直接在windows中看到文档属性,这样就不用打开文档,查看其文档属性就能了解其字数了。
(3)插入域法: 按快捷键Ctrl+F9,在灰块中输入numwords,再按F9,出现的数字就是这篇文章的总字数,并且这个数字是变化的(选中全文后按F9键就更新),这对于将文章字数作为文章一部分的应用是比较有用的,它可使结果动态更新、不用每次修改文章后再去修改字数。
省事小技巧:Word文档字数怎样实时动态统计在Word中,我们统
请注意一点儿,百度提问时,是因为网页中提交内容有字数限制。
而WPS文字中输入内容时,一个文档大小在理论情况下,是根据硬盘大小限定。
相对于输入文字来说,基本不可能限制还可以输入多少。
在WPS文字的状态栏中,显示已经输入多少文字。
打开Word时总是出现 “Microsoft Office Word 需要 VBA 宏语言支持来...
展开全部 方法 1 当我们打开Word时,会弹出“Microsoft Office Word 需要 VBA 宏语言支持来完成此操作。
”这项功能目前尚未安装,是否现在安装?点击是又安装不了,证明此方法行不通,那么就点击否。
2 然后弹出“此文档有宏,该应用程序的宏语言支持功能被取消。
功能要求的VBA不可用,是否以只读方式打开该文档?直接点击取消。
3 然后点击菜单栏的工具按钮,再选择“宏”,然后选择“安全性”。
4 在弹出的安全项中,选择非常高。
只允许运行安装在受信任位置的宏。
所有其他签署的和未经签署的宏都将被禁用。
5 然后点击可靠发行商,将颁发对象中有的宏全部选择,然后点击删除,要全部删除掉,然后去掉信任所有安装的加载项和模板及信任对于“Visual Basic项目”的访问前面的勾,两个复选框都不要勾选,然后点击确定返回打开Word就可以了。
...
转载请注明出处51数据库 » vba word实现字数统计