> vb6 怎么打开word文件并读出其中的内容
vb6 怎么打开word文件并读出其中的内容
kdskylei & &
发布时间： & &
浏览：7 & &
回复：2 & &
悬赏：0.0希赛币
vb6 如何打开word文件并读出其中的内容最近刚学习学习VB，想要在VB6 & 中打开word文件并读出文件中某行的内容，考虑
word文件的结构不能知道，只能将word文件看成对象，是用document、application之类的对象吗，请教如何实现
'引用 Microsoft Word 8.0 Object library
Dim objWD as Word.Application
Set objWD = CreateObject( &Word.Application &)
Dim objWdDoc As Word.Document
Set objWdDoc = GetObject( &c:\my documents\doc1.doc &)
'显示前 5 段内容
Me.Text1 = objWD.ActiveDocument.Range(Start :=0, End :=ActiveDocument.Paragraphs(5).Range.End).Text
'关闭 Word 文档
objWD.Quit
'释放内存
Set objWD = Nothing
ke4697988 & &
& & （0）（0）On Error GoTo err1
Dim objWD As Word.Application
Set objWD = CreateObject( &Word.Application &)
Dim objWdDoc As Word.Document
Set objWdDoc = objWD.Documents.Open( &d:\doc1.doc &)
Me.Text1 = objWD.ActiveDocument.Range(Start:=0, End:=ActiveDocument.Paragraphs(1).Range.End).Text
'关闭 Word 文档
objWD.Quit
'释放内存
Set objWD = Nothing
Debug.Print Err.Descriptionke1698 & &
& & （0）（0）
本问题标题：
本问题地址：
温馨提示：本问题已经关闭，不能解答。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&共有 483 人关注过本帖
标题：vb6合并office2007中的word文档
等　级：新手上路
结帖率：100%
&&已结贴√
&&问题点数：20&&回复次数：6&&&
vb6合并office2007中的word文档
C:\abc\中有1.docx,2.docx,3.docx.....30.docx如何把它们合并到一个新的文档中？
搜索更多相关主题的帖子:
等　级：贵宾
威　望：24
帖　子：707
专家分：3425
&&得分:20&
在VB6中引用WORD没做过几次。
试试这个，两个文件合并为新文件。程序代码： Dim wApp As Word.Application
&Dim wDoc As Word.Document
Private Sub Command1_Click()
&&Merge &c:\1.docx&, &c:\2.docx&, wApp
&&Form1.Caption = &OK&
Private Sub Form_Load()
&&Set wApp = New Word.Application
&Function Merge(ByVal sFirstFile As String, ByVal sSecondFile As String, ByRef wrdapp As Word.Application) As Boolean
&&& Dim docNew As Word.Document
&&& 'open the main document
&&& Set docNew = wrdapp.Documents.Open(sSecondFile)
&&& 'insert the coversheet
&&& wrdapp.Selection.InsertFile FileName:=sFirstFile, Range:=&&, ConfirmConversions:=False, Link:=False, Attachment:=False
&&& 'set position to first page/coversheet
&&& wrdapp.Selection.MoveUp Unit:=wdScreen, Count:=<font color=#
&&& 'force header/footer to begin on 2nd page
&&& With wrdapp.Selection.PageSetup
&&&&&&&&.DifferentFirstPageHeaderFooter = True
&&& End With
&&& 'save the document
&&& docNew.SaveAs &C:\NewFile.docx&
End Function
等　级：新手上路
我可能没有说清楚：win7系统，office2007.如果是XP系统及office2003能够很好解决。
Dim wApp As Word.Application
Dim wDoc As Word.Document
运行后提示这两名错误
等　级：贵宾
威　望：24
帖　子：707
专家分：3425
回复 3楼 二中仙神
在工程中引用Microsoft Word *.* Object Library
我是在XP下的Word2007测试,Win7自己试.
等　级：新手上路
先谢谢您的指导，不过引用了Microsoft Word *.* Object Library，还是不行。另外找到一个拆分的
结果每页都是空白。如下：
Private Sub Form_Load()
Dim w As Object, d As Object, s As Object, page As Object, i As Integer
Set w = CreateObject(&WORD.application&)
w.Visible = True
Set d = w.Documents.Open(&C:\d.docx&)
'文档名相应改为你的文档名
For Each page In d.ActiveWindow.ActivePane.pages
d.Range.Copy
'复制全部，不是每一页
'我想把每一页的内容作为一个新文件保存
Set s = w.Documents.Add
s.Content = page.Rectangles.Item(1).Range
s.Range(0, 0).Paste
s.SaveAs &C:\d& & i & &t.docx&
'文档名相应改为你的文档名
Set s = Nothing
Set w = Nothing
Set d = Nothing
MsgBox &完毕&
等　级：新手上路
您好，经过测试应该这样写：
Dim wApp As Object
'Dim wDoc As Word.Document
&Private Sub Command1_Click()
&&&Merge &c:\1.docx&, &c:\2.docx&, wApp
&&&Form1.Caption = &OK&
Private Sub Form_Load()
&&&Set wApp = New Word.Application
Function Merge(ByVal sFirstFile As String, ByVal sSecondFile As String, ByRef wrdapp As Word.Application) As Boolean
&&&&&Dim docNew As Word.Document
&&&&&'open the main document
&&&&&Set docNew = wrdapp.Documents.Open(sSecondFile)
&&&&&'insert the coversheet
&&&&&wrdapp.Selection.InsertFile FileName:=sFirstFile, Range:=&&, ConfirmConversions:=False, Link:=False, Attachment:=False
&&&&&'set position to first page/coversheet
&&&&&wrdapp.Selection.MoveUp Unit:=wdScreen, Count:=1
&&&&&'force header/footer to begin on 2nd page
&&&&&With wrdapp.Selection.PageSetup
&&&&&&&&&.DifferentFirstPageHeaderFooter = True
&&&&&End With
&&&&&'save the document
&&&&&docNew.SaveAs &C:\NewFile.docx&
&&& '''''''
&&&&&docNew.close
&End Function
等　级：贵宾
威　望：24
帖　子：707
专家分：3425
回复 6楼 二中仙神
在WIN7下就是改了Dim wApp As Object？感觉这不是XP和WIN7的区别。
版权所有，并保留所有权利。
Powered by , Processed in 0.094114 second(s), 8 queries.
Copyright&, BCCN.NET, All Rights Reserved(寻找csdn传说中的英雄)vb6下对word中字符的查找有关问题 - VB当前位置:& &&&(寻找csdn传说中的英雄)vb6下对word中字符的查找有(寻找csdn传说中的英雄)vb6下对word中字符的查找有关问题&&网友分享于：&&浏览：0次(寻找csdn传说中的英雄)vb6下对word中字符的查找问题&有代码如下：
wordArange.Find.Execute("Rich",&MatchCase,&,&,&,&,&,&wdFindContinue,&,&ReplaceString,&True)&'查找并替换
&这是一句判断在vb6下对&word&查找并替换的代码。请问字符串“Rich”用正则表达式换成模糊匹配序号（如1．2．3．……）应怎样表示？find.&Execute&只判断查找为真而不替换怎么修改？&&------解决思路----------------------没研究过。
正则匹配的表达式是
^\d+\..*------解决思路----------------------word的vba很少玩的。笨法吧：
Sub&Test()
&&&&Dim&i&As&Integer
&&&&Do&While&ReplaceStr("rich",&CStr(i&+&1)&&&".")
&&&&&&&&i&=&i&+&1
Function&ReplaceStr(ByVal&findText&As&String,&ByVal&RepStr&As&String)&As&Boolean
&&&&Dim&Rng&As&Range
&&&&Set&Rng&=&ThisDocument.Content
&&&&With&Rng.Find
&&&&&&&&.ClearFormatting
&&&&&&&&.Text&=&findText
&&&&&&&&.Replacement.ClearFormatting
&&&&&&&&.Replacement.Text&=&RepStr
&&&&&&&&.Execute&Replace:=wdReplaceOne,&Forward:=True
&&&&&&&&ReplaceStr&=&.Found
&&&&End&With
End&Function
------解决思路----------------------引用:不是vba,是vb6
你稍稍修改一下不就得了？
Sub&Test1()
&&&&''手动打开word文档，然后执行下面的
&&&&Dim&i&As&Integer
&&&&Dim&mWord&As&Word.Application,&wDoc&As&Word.Document
&&&&Set&mWord&=&GetObject(,&"word.application")
&&&&Set&wDoc&=&mWord.ActiveDocument
&&&&Do&While&ReplaceStr(wDoc,&"rich",&CStr(i&+&1)&&&".")
&&&&&&&&i&=&i&+&1
&&&&Set&wDoc&=&Nothing
&&&&Set&mWord&=&Nothing
Function&ReplaceStr(bDoc&As&Word.Document,&ByVal&findText&As&String,&ByVal&RepStr&As&String)&As&Boolean
&&&&Dim&Rng&As&Range
&&&&Set&Rng&=&bDoc.Content
&&&&With&Rng.Find
&&&&&&&&.ClearFormatting
&&&&&&&&.Text&=&findText
&&&&&&&&.Replacement.ClearFormatting
&&&&&&&&.Replacement.Text&=&RepStr
&&&&&&&&.Execute&Replace:=wdReplaceOne,&Forward:=True
&&&&&&&&ReplaceStr&=&.Found
&&&&End&With
End&Function
12345678910
12345678910
12345678910 上一篇：下一篇：文章评论相关解决方案 12345678910 Copyright & &&版权所有更多频道内容在这里查看
爱奇艺用户将能永久保存播放记录
过滤短视频
暂无长视频（电视剧、纪录片、动漫、综艺、电影）播放记录，
您的白银会员还有3天到期啦，续费继续免广告～
手机注册爱奇艺，享受更多云服务
按住视频可进行拖动
把视频贴到Blog或BBS
当前浏览器仅支持手动复制代码
视频地址：
flash地址：
html代码：
通用代码：
通用代码可同时支持电脑和移动设备的分享播放
收藏成功，可进入查看所有收藏列表
方式1：用手机看
用爱奇艺APP或微信扫一扫，在手机上继续观看：
word2003文字字体下面怎么添加创建着重号
方式2：一键下载至手机
限爱奇艺安卓6.0以上版本
使用微信扫一扫，扫描左侧二维码，下载爱奇艺移动APP
其他安装方式：手机浏览器输入短链接http://71.am/164eL4
下载安装包到本机：&&
设备搜寻中...
请确保您要连接的设备（仅限安卓）登录了同一爱奇艺账号 且安装并开启不低于V6.0以上版本的爱奇艺客户端
连接失败！
请确保您要连接的设备（仅限安卓）登录了同一爱奇艺账号 且安装并开启不低于V6.0以上版本的爱奇艺客户端
部安卓（Android）设备，请点击进行选择
请您在手机端下载爱奇艺移动APP（仅支持安卓客户端）
使用微信扫一扫，下载爱奇艺移动APP
其他安装方式：手机浏览器输入短链接http://71.am/164eL4
下载安装包到本机：&&
爱奇艺云推送
请您在手机端登录爱奇艺移动APP（仅支持安卓客户端）
使用微信扫一扫，下载爱奇艺移动APP
180秒后更新
打开爱奇艺移动APP，点击“我的-扫一扫”，扫描左侧二维码进行登录
没有安装爱奇艺视频最新客户端？
爸爸去哪儿2游戏 立即参与
30秒后自动关闭
word2003文字字体下面怎么添加创建着重号
播放量数据：
&正在加载...
&正在加载...
没有找到内容，看看其它集吧！
&正在加载...
{{ each data as item index}}
{{if item}}
{{if item.isYugao }}{{/if}}
{{if item.isNeedPay }}
{{else if item.isNew }}
&正在加载...
&正在加载...
{{each data}}
抱歉，没有“{{feature}}”的其他视频了.
&正在加载...
{{ each data as item index}}
Copyright (C) 2016
All Rights Reserved
您使用浏览器不支持直接复制的功能，建议您使用Ctrl+C或右键全选进行地址复制
安装爱奇艺视频客户端，
马上开始为您下载本片
5秒后自动消失
&li data-elem="tabtitle" data-seq="{{seq}}"&
&a href="javascript:void(0);"&
&span>{{start}}-{{end}}&/span&
&li data-downloadSelect-elem="item" data-downloadSelect-selected="false" data-downloadSelect-tvid="{{tvid}}"&
&a href="javascript:void(0);"&{{pd}}&/a&
选择您要下载的《》剧集：
您使用浏览器不支持直接复制的功能，建议您使用Ctrl+C或右键全选进行地址复制}