作者：绿色风
分类：
时间：2022-08-18
浏览：104
楼主
amulee |
利用Word的批注自动生成修订意见Excel表，如图：
 ----------〉
参考代码如下：
- Sub 批注生成Excel()
- Dim Cmt As Comment
- Dim ExcelApp As Object
- Dim xlsWbk As Object
- Dim RowN, ArrJG, K&
- RowN = ThisDocument.Comments.Count
- ReDim ArrJG(1 To RowN, 1 To 4)
- For Each Cmt In ThisDocument.Comments
- K = K + 1
- ' 页码
- ArrJG(K, 1) = Cmt.Scope.Information(wdActiveEndPageNumber)
- '行号
- ArrJG(K, 2) = Cmt.Scope.Information(wdFirstCharacterLineNumber)
- '批注引用内容
- ArrJG(K, 3) = Cmt.Scope
- '批注内容
- ArrJG(K, 4) = Cmt.Range
- Next
- '新建Excel程序
- Set ExcelApp = CreateObject("Excel.Application")
- '打开勘误表
- Set xlsWbk = ExcelApp.Workbooks.Add
- With xlsWbk.sheets(1)
- .Cells.Clear
- .Range("A2").Resize(RowN, 4) = ArrJG
- .Range("A1") = "页码"
- .Range("B1") = "行号"
- .Range("C1") = "原文字"
- .Range("D1") = "修订意见"
- .Columns.AutoFit
- End With
- xlsWbk.SaveAs ThisDocument.Path & Application.PathSeparator & "修订表.xlsx"
- xlsWbk.Close
- ExcelApp.Application.Quit
- End Sub
 修订.rar
|
2楼
lucien-_- |
谢谢了 |
3楼
lucien-_- |
麻烦能不能指导下怎么操作 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一