知识树投稿区

wojoy Lv.1

关注
希望论坛大神可以帮忙修改一下提取出来是原表是如框框内这样的打钩
7[R[`XD0D5M3UR9WN@FBPXE.png

提取出来的大部分无论打没打钩都是如图“(”这样的
QMFFYZ7H4UCYSM]_W$}AG2R.png

多日研究终未解决,只有求论坛大神了。。。。

esDoc2Xls.rar   2020-4-17 17:16 上传

文件

544.8 KB, 下载次数: 8

1998阅读
4回复 倒序

wojoy 楼主 2楼

  1. Sub 提取word表格1()

  2.     Dim wApp, myfile, t
  3.     mypath = ThisWorkbook.Path & ""
  4.     myname = Dir(mypath & "*.doc")
  5.     m = 1
  6.         Do While myname <> ""
  7.         Set mydoc = GetObject(mypath & myname)
  8.         With mydoc
  9.             m = m + 1
  10.             mydoc.Content.Find.Execute findtext:=ChrW(163), ReplaceWith:="□", Replace:=2
  11.             With .Tables(1)
  12.                 Cells(m, 1) = m - 1
  13.                 Cells(m, 2) = "'" & myname
  14.                 Range("A1:F1") = Array("序号", "文件名", "报告编号", "住址", "A级", "B级")
  15.                 Cells(m, 3) = Replace(.cell(2, 4).Range.Text, "", "")
  16.                 Cells(m, 4) = Replace(.cell(5, 2).Range.Text, "", "")
  17.                 Cells(m, 5) = Replace(.cell(25, 1).Range.Text, "(", "R")
  18.                 Cells(m, 5) = Replace(Cells(m, 5).Text, "", "")
  19.                 Cells(m, 5).Characters(Start:=1, Length:=1).Font.Name = "Wingdings 2"
  20.                 Cells(m, 5).Characters(Start:=2, Length:=30).Font.Name = "宋体"
  21.                 Cells(m, 6) = Replace(.cell(25, 2).Range.Text, "(", "R")
  22.                 Cells(m, 6) = Replace(Cells(m, 6).Text, "", "")
  23.                 Cells(m, 6).Characters(Start:=1, Length:=1).Font.Name = "Wingdings 2"
  24.                 Cells(m, 6).Characters(Start:=2, Length:=30).Font.Name = "宋体"
  25.             End With
  26.             .Close False
  27.         End With
  28.         myname = Dir()
  29.         Loop
  30.         Set mydoc = Nothing
  31.         MsgBox "提取完成"

  32. End Sub

zmj9151 Lv.3 3楼

Selection.Find.Text = ChrW(254) 或者是其它值,录宏可见

wojoy 楼主 4楼

引用: zmj9151 发表于 2020-4-17 18:23
Selection.Find.Text = ChrW(254) 或者是其它值,录宏可见

小白不懂,可否帮我改一下

zmj9151 Lv.3 5楼

好象每个文档编码不一样,你试试
image.png

已显示全部内容