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

Question

如下所示：我要将以下编码的站点编号、站点名称、经纬度等信息按一列一列的格式提取到excel当中，该怎样操作呢？
<dockStation ID="1">站点编号
<name>River Street , Clerkenwell</name>站点名称
<latitude>51.52916347</latitude>站点坐标：纬度
<longitude>-0.109970527</longitude>站点坐标：经度
<bikesAvailable>4</bikesAvailable>站点存车数
<emptySlots>15</emptySlots>站点空泊位数
<installed>true</installed>
<locked>false</locked>
<temporary>false</temporary>
</dockStation>
<dockStation ID="2">
<name>PhillimoreGardens, Kensington</name>
<latitude>51.49960695</latitude>
<longitude>-0.197574246</longitude>
<bikesAvailable>10</bikesAvailable>
<emptySlots>27</emptySlots>
<installed>true</installed>
<locked>false</locked>
<temporary>false</temporary>
</dockStation>

Answer 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

Answer 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

如对你有帮助，请采纳。本回答被网友采纳

Answer 3

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

Answer 4

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

Answer 5

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