Vba批量提取word文件名和每个word的总页数
1条回答 默认 最新
soar3033 2022-01-08 21:52关注通过vba进行遍历，然后把文件名读取下来，并同时通过word的dom对象打开word读取页数
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏举报
分享
- 2022-01-05 16:11回答 1 已采纳 通过vba对象word进行遍历，然后把表内内容进行读取再写到单元格
- 2021-04-30 10:20回答 4 已采纳 这是不是VBA
- 2021-08-27 18:01回答 4 已采纳 Sub aa() n = ActiveDocument.Tables.Count f = "soar" '这里是你要找的文字 ff = f & vbCr & Chr(7)
- 2021-12-28 16:44欧恩意的博客 VBA 提取批注实例 - Excel一键导入办公文章批注
- 2021-06-21 12:05回答 1 已采纳 Dim tbs As Tables Set tbs = ActiveDocument.Tables Dim tb As Table Set tb = tbs.Item(1) tb.cell(1,
- 2017-04-14 08:27回答 2 已采纳 自己给自己回答，因为sub 不返回， function 才返回
- 2016-06-19 07:37回答 1 已采纳 新建一个窗体，放上文本框，比如叫Text1 在里面的确定按钮写 ActiveDocument.Range(范围).InsertAfter(text1.Text)
- 2017-10-24 22:30weixin_30628801的博客 StartTime = VBA.Timer 'Set ppApp = CreateObject("Powerpoint.Application") With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = ThisWorkbook.Path & "\" ....
- 2021-04-09 21:31回答 7 已采纳 如果写VBS： Sub a() Dim fso Dim fld Dim fil Dim xls Dim bok Dim sht Dim i
- 2019-02-28 12:24回答 2 已采纳 代码稍作了修改，除了第10段匹配不到，其他没问题。不知是不是其他什么问题 Sub 通配符查找改变颜色() For i = 1 To ActiveDocument.Paragraphs.Coun
- 2023-02-14 13:46回答 1 已采纳 如果你的自定义函数返回的是一个字典，可以使用VBA中的“Dictionary”对象来接收和返回它。具体来说，可以按照以下步骤操作： 在函数的开头声明一个“Dictionary”对象，用于存储函数的返回
- 2023-10-29 16:45风暴之零的博客 只能修改英文和数字，并且run.font.name识别的...将一份PPT的每一页字体、大小、是否加粗都统一，是一个常见需求。在python操控PPT常用库python-pptx中有一个bug，对字体的修改只能修改数字和英文字母，无法修改汉字。
- 2022-12-27 09:43VBA说的博客 23 多个文档批量转html 将多个文档批量转化为html文件格式 24 批量解除限制 可以批量解除多个文档的限制编辑，让文档可以正常编辑 25 文件名复制到文档首行 把多个word的文档名，分别复制并粘贴到每个word文档的...
- 2019-01-13 14:36sandorn的博客 If MsgBox("是否转换为 Word2003 格式？", vbYesNo + vbCritical) = vbYes Then x = Left(y, Len(y) - 5) .SaveAs FileName:=x, FileFormat:=wdFormatDocument If MsgBox("是否删除源文件？", 4 + 16) = ...
- 2020-11-02 14:29weixin_39846664的博客 举个例子，将一份上百页的PPT导出文字，对100张图片重命名批量排序，又或者是推文链接的复制粘贴等，这些都是日常工作可能会遇到的问题。竞技体育，原罪是菜。电脑办公，亦是如此。如果我们找到方法，以上这些看起来...
- 没有解决我的问题, 去提问
问题事件
系统已结题
1月16日
已采纳回答
1月8日-
创建了问题
1月5日