7,763
社区成员
发帖
与我相关
我的任务
分享word中的text怎么读出来？
一编word文档里面已经有好多bookmark了，怎么一次把所有的字都读到一个变量里？
我的代码如下：
Dim LObj_WordApp As Word.Application
Dim LObj_WordDoc As Word.Document
Dim LStr_TmpStr As String
Set LObj_WordApp = New Word.Application
Set LObj_WordDoc = LObj_WordApp.Documents.open("c:\test.dot")'打开模板
'**************写点东西******************
LObj_WordDoc.Bookmarks("整改要求").Range.Text = "test1"
LObj_WordDoc.Bookmarks("整改时间").Range.Text = now()
LObj_WordDoc.Bookmarks("整改人").Range.Text = "test2"
LObj_WordDoc.Bookmarks("办理时限").Range.Text = "test3"
'****************写完**********************
LStr_TmpStr = '就是这里怎么读取整编的文档？请高手指点
LObj_WordDoc.save
LObj_WordDoc.Close False
LObj_WordApp.Quit (False)
Set LObj_WordDoc = Nothing
Set LObj_WordApp = Nothing
我的代码如下：
Dim LObj_WordApp As Word.Application
Dim LObj_WordDoc As Word.Document
Dim LStr_TmpStr As String
Set LObj_WordApp = New Word.Application
Set LObj_WordDoc = LObj_WordApp.Documents.open("c:\test.dot")'打开模板
'**************写点东西******************
LObj_WordDoc.Bookmarks("整改要求").Range.Text = "test1"
LObj_WordDoc.Bookmarks("整改时间").Range.Text = now()
LObj_WordDoc.Bookmarks("整改人").Range.Text = "test2"
LObj_WordDoc.Bookmarks("办理时限").Range.Text = "test3"
'****************写完**********************
LStr_TmpStr = '就是这里怎么读取整编的文档？请高手指点
LObj_WordDoc.save
LObj_WordDoc.Close False
LObj_WordApp.Quit (False)
Set LObj_WordDoc = Nothing
Set LObj_WordApp = Nothing
...全文
请发表友善的回复…
发表回复
