博思aippt
2024-07-20 广告
2024-07-20 广告
作为深圳市博思云创科技有限公司的工作人员,对于Word文档生成PPT的操作,我们有以下建议:1. 使用另存为功能:在Word中编辑完文档后,点击文件->另存为,选择PowerPoint演示文稿(*.pptx)格式,即可将文档内容转换为PPT...
点击进入详情页
本回答由博思aippt提供
展开全部
工具--字数统计,里面有 字数、字符数(不计空格)、字符数(计空格),非中文单词,基本上就能计算出WORD里的中文字数了
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在word的上方 菜单栏 中 有一个工具菜单 打开工具菜单 有一个字数统计 就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
以上的方法统计出的中文字数还包括了中文标点符号的个数,如果想准确的查出中门字数,可以试试下面的自定义函数
将代码复制,打开EXCEL,工具--宏--录制新宏,确定,然后停止,接下来点工具--宏,VBA编辑器,双击模块1,把代码复制进去
然后返回SHEET1,把WORD里的文章复制到单元格里,一般是一段一格,比如A1里有一段文字,那B1=TAX(A1),C1=LEN(B1),然后同时向下填充公式到最后一段,最后把C列相加,就得到全部中文字数了
Function TAX(b As Range)
Dim m, n As Long
m = Len(b)
c = ""
For i = 1 To m Step 1
qushu = Mid(b, i, 1)
n = 65536 + Asc(qushu)
If n > 45217 And n < 65184 Then
c = c & qushu
End If
Next i
TAX = c
End Function
将代码复制,打开EXCEL,工具--宏--录制新宏,确定,然后停止,接下来点工具--宏,VBA编辑器,双击模块1,把代码复制进去
然后返回SHEET1,把WORD里的文章复制到单元格里,一般是一段一格,比如A1里有一段文字,那B1=TAX(A1),C1=LEN(B1),然后同时向下填充公式到最后一段,最后把C列相加,就得到全部中文字数了
Function TAX(b As Range)
Dim m, n As Long
m = Len(b)
c = ""
For i = 1 To m Step 1
qushu = Mid(b, i, 1)
n = 65536 + Asc(qushu)
If n > 45217 And n < 65184 Then
c = c & qushu
End If
Next i
TAX = c
End Function
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询