如何使用vba提取word文档标签内容到Excel？
现在有很多个WORD文档，文档内两部分内容需要提取，这两部分都定义成了aa和bb标签，现在需要利用VBA把标签里的内容分别提取到EXCEL表格中，有没有大神有办法？有人帮...
现在有很多个WORD文档，文档内两部分内容需要提取，这两部分都定义成了aa和bb标签，现在需要利用VBA把标签里的内容分别提取到EXCEL表格中，有没有大神有办法？有人帮忙的话我可以传给予附件。
展开
1个回答
展开全部
Sub abc()
Dim App, WrdDoc, Mypath As String, StrA As String, StrB As String
Mypath = "文件实际路径\TEXT1.doc" '请修改实际储存路径！
Set App = CreateObject("Word.Application") '用Set关键字创建Word应用成序对象！
App.Visible = True
Set WrdDoc = App.Documents.Open(Mypath) '打开这个Word文件！
StrA = WrdDoc.Bookmarks("aa").Range ' 读取书签aa内容
StrB = WrdDoc.Bookmarks("bb").Range ' 读取书签bb内容
WrdDoc.Close ' 关闭文件
Set App = Nothing
End Sub
Dim App, WrdDoc, Mypath As String, StrA As String, StrB As String
Mypath = "文件实际路径\TEXT1.doc" '请修改实际储存路径！
Set App = CreateObject("Word.Application") '用Set关键字创建Word应用成序对象！
App.Visible = True
Set WrdDoc = App.Documents.Open(Mypath) '打开这个Word文件！
StrA = WrdDoc.Bookmarks("aa").Range ' 读取书签aa内容
StrB = WrdDoc.Bookmarks("bb").Range ' 读取书签bb内容
WrdDoc.Close ' 关闭文件
Set App = Nothing
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
