【求助】求助各位大神，需要统计WORD中的批注数量，并在excel中进行显示

juliaying66

【求助】各位大神，现在需要统计WORD中批注的数量，批注中都标有年份，然后年份对应计数，最后将结果记入EXCEL中，详细资料请查看附件，WORD文件比较大，只放了部分，但是意思是一样的，求助各位大神了！ execl 中是想要得到的结果

smiletwo

对应年份的批注数量，为何要多行数据，一行不就解决了吗？
另问下，年份的范围是什么？

zxskyqq

Sub copytext()

Dim xlApp As Object    '定义excel应用变量
Dim xlDoc As Object    '定义excel文档变量

Set xlApp = CreateObject("Word.Application")    '创建excel应用
xlApp.Visible = True    '显示excel应用

Set xlDoc = xlApp.Documents.Open("C:\Users\ZJN\Downloads\Compressed\附件文件\新建文件夹\教材原始文件.docx")    '打开excel文档

Dim n As Integer    '定义变量，用来统计批注个数
n = xlDoc.Comments.Count    '获取批注个数

Dim i As Integer    '定义变量，用来循环
For i = 1 To n    '循环

Range("A" & i) = xlDoc.Comments(i).Scope.Text    '将原文复制到A列
Range("B" & i) = Left(xlDoc.Comments(i).Range.Text, 6)    '将批注复制到B列

Next

End Sub
把路径改为的WORD文件的路径，这就实现了第一步，再往下想办法

zxskyqq

Sub copytext()

Dim xlApp As Object    '定义excel应用变量
Dim xlDoc As Object    '定义excel文档变量

Set xlApp = CreateObject("Word.Application")    '创建excel应用
xlApp.Visible = True    '显示excel应用

Set xlDoc = xlApp.Documents.Open("C:\Users\ZJN\Downloads\Compressed\附件文件\新建文件夹\教材原始文件.docx")    '打开excel文档

Dim n As Integer    '定义变量，用来统计批注个数
n = xlDoc.Comments.Count    '获取批注个数

Dim i As Integer    '定义变量，用来循环
For i = 1 To n    '循环

Range("A" & i) = xlDoc.Comments(i).Scope.Text    '将原文复制到A列
Range("B" & i) = Left(xlDoc.Comments(i).Range.Text, 6)    '将批注复制到B列

Next

End Sub

smiletwo

juliaying66

smiletwo 发表于 2023-2-25 13:58
对应年份的批注数量，为何要多行数据，一行不就解决了吗？
另问下，年份的范围是什么？

因为要统计该知识点之下，当年考了几道题，所以需要把题量划分到各个知识点之下 然后在进行统计

juliaying66

smiletwo 发表于 2023-2-25 13:58
对应年份的批注数量，为何要多行数据，一行不就解决了吗？
另问下，年份的范围是什么？

年份是为了以后还有题目，就录入进去

juliaying66

smiletwo 发表于 2023-2-25 13:58
对应年份的批注数量，为何要多行数据，一行不就解决了吗？
另问下，年份的范围是什么？

因为就是统计不同知识点下，各年份 分别考了几道题。所以需要分知识点统计

juliaying66

zxskyqq 发表于 2023-2-25 14:18
Sub copytext()

Dim xlApp As Object    '定义excel应用变量

这个表我有，因为就是按照这个表在通过搜索放入到WORD中的。但是我最终 目的就是想统计不同的知识点下  不同年份各考了多少题。这个表我没有，所以需要大神教我如何实现 谢谢

smiletwo

juliaying66 发表于 2023-2-25 17:30
年份是为了以后还有题目，就录入进去

录题目和求个数是两回事啊