如何将word里的特定信息提取到excel里？

2024-12-21 15:06:27

推荐回答（5个）

回答1：

提取WORD中特定内容制成excel表格：
用宏命令。
Sub abc()
Dim App, WrdDoc, Mypath As String, StrA As String, StrB As String
Mypath = ThisWorkbook.Path & "\aaa.doc" '请修改实际储存路径！
Set App = CreateObject("Word.Application") '用Set关键字创建Word应用成序对象！
App.Visible = True'根据实际情况修改是否可见
Set WrdDoc = App.Documents.Open(Mypath) '打开这个Word文件！
StrA = WrdDoc.Tables(1).Cell(1, 2).Range.Text ' 你要的第一个内容：第一行，第二列
StrB = WrdDoc.Tables(1).Cell(2, 2).Range.Text ' 你要的第一个内容：第二行，第二列
WrdDoc.Close ' 关闭文件
Set App = Nothing
Debug.Print StrA
Debug.Print StrB
End Sub

回答2：

我对提取网站信息不太懂，你能确保格式都是一样的信息吗，是只取到站点空泊位数吗？
如果以上都是的话，把这些信息直接粘到EXCEL中变成一列（如第一列A），然后在第二列B中逐项输入公式：
第一行站点编号 =MID(A1,FIND("ID",A1)+4,FIND(">",A1)-FIND("ID",A1)-4-1)
第二行往下 =MID(A2,FIND(">",A2,2)+1,FIND("<",A2,2)-FIND(">",A2,2)-1)
已经测试过，应该没有问题，得到结果为：
1

River Street , Clerkenwell

51.52916347

-0.109970527

4

15

如对你有帮助，请采纳。

回答3：

这个好像是XML格式，右键打开方式里，直接选excel打开
如果是word 文档，那就另存为xml格式或文本格式

回答4：

这些文件不能直接在ipad里面看到的。他们需要特定的软件打开。\r\n你可以试试同步助手的文件管理功能，足够解决你的关于 word excel的问题了。

回答5：

看看能否使用“超链接”来实现！