作者：绿色风
分类：
时间：2022-08-17
浏览：268
楼主
0Mouse |
Q：如何为当前路径下的所有Word文档（扩展名为.docx）名称添加相应的总页数呢？
添加前：
添加后：
A：运用VBA批量处理，代码如下：
- Sub 为当前路径下的所有Word文档名称添加相应的总页数()
- Dim sPath As String
- Dim sName As String
- Dim sName2 As String
- Dim Doc As Document
- Dim Arr() As String
- Dim i As Long
- Dim j As Long
- sPath = ThisDocument.Path & "\"
- sName = Dir(sPath & "*.docx")
- ReDim Arr(1 To 1000)
- Do While sName <> ""
- i = i + 1
- If i > UBound(Arr) Then ReDim Preserve Arr(1 To UBound(Arr) + 1000)
- Arr(i) = sName
- sName = Dir
- Loop
- If i Then
- For j = 1 To i
- sName = sPath & Arr(j)
- Set Doc = Documents.Open(sName)
- sName2 = Left(sName, InStrRev(sName, ".") - 1) & _
- "_共" & Format(Selection.Information(wdNumberOfPagesInDocument), "00") & "页.docx"
- Doc.Close 0
- Name sName As sName2
- Next j
- MsgBox "处理完毕", vbInformation, "xqoa"
- End If
- Erase Arr
- End Sub
附件：
 为当前路径下的所有Word文档名称添加相应的总页数.rar
|
2楼
亡者天下 |
最后几分钟秒杀啊！
 |
3楼
0Mouse |
几个月前的最后一个夜晚，不幸被天南终结，今天芐雨成了受害者了。
 |
4楼
亡者天下 |
他也有发帖子啊，我应该是受害者，我现在看不见数据了！
我今天只发了两个主题，教学分才40分！
|
5楼
亡者天下 |
永远没有终点的！
莫非到了20了，后面就没有21了？
|
6楼
芐雨 |
 本来是能拿三个的 |
7楼
亡者天下 |
三个啊
分一个给我哦！
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一