求助如何将文件夹内所有WORD文件里带有关键字的内容按日期提取到EXCEL中

jian82372387 · 发表于 2021-11-27 23:08

本帖最后由 jian82372387 于 2021-12-2 09:24 编辑

需求：将11月份汇总文件夹里所有WORD文件里带有主板故障类型的内容提取到excel中并标注号日期

jian82372387 · 发表于 2021-12-5 10:08

有大哥能帮下忙吗？

jian82372387 · 发表于 2021-12-9 10:49

自己顶一下

jian82372387 · 发表于 2021-12-20 10:12

本帖最后由 jian82372387 于 2021-12-20 10:29 编辑

如果日期就是以当前WORD文件名，有大神帮一下忙吗？？

jian82372387 · 发表于 2021-12-24 13:32

本帖最后由 jian82372387 于 2021-12-24 13:33 编辑

Sub shishi()
Set FSO对象 = CreateObject("Scripting.FileSystemObject")
Set 文件夹 = FSO对象.GetFolder("c:\11月份维修汇总")
行 = 1
For Each i In 文件夹.Files
文件名 = FSO对象.GetBaseName(i)
Set 文档 = Documents.Open(CStr(i))
s = "(分：)(*)(%)"
With 文档.Content.Find
      .Text = s
      .MatchWildcards = True  '使用通配符
      If .Execute Then a = Replace(Replace(.Parent, "分：", ""), "%", "")
End With
ThisDocument.Tables(1).Cell(行, 1).Range.Text = 文件名
ThisDocument.Tables(1).Cell(行, 2).Range.Text = a
行 = 行 + 1
文档.Close
Next
End Sub

这是网上别人提取所有word文档内两个字符之间的文本的代码，有大神能帮忙修改一下上面代码完成上述需求吗？？

jian82372387 · 发表于 2021-12-25 10:48

有大神帮一下忙吗？？

		自动登录	找回密码
密码			注册