作者:绿色风
分类:
时间: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总版主之一