| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1508 人关注过本帖
标题:vb6.0中FramerControl如何读取替换打开的WORD中文字
只看楼主 加入收藏
kbtwhg
Rank: 1
等 级:新手上路
帖 子:8
专家分:5
注 册:2018-5-23
结帖率:50%
收藏
已结贴  问题点数:20 回复次数:4 
vb6.0中FramerControl如何读取替换打开的WORD中文字
vb6.0中FramerControl如何读取替换打开的WORD中文字
搜索更多相关主题的帖子: 读取 替换 打开 WORD 文字 
2018-05-23 16:41
kbtwhg
Rank: 1
等 级:新手上路
帖 子:8
专家分:5
注 册:2018-5-23
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册

用的是VB6.0中FramerControl控件,如何获取WORD中文字并替换

[此贴子已经被作者于2018-5-23 17:06编辑过]

2018-05-23 17:03
kbtwhg
Rank: 1
等 级:新手上路
帖 子:8
专家分:5
注 册:2018-5-23
收藏
得分:0 
如何读取WORD文字并替换?
2018-05-23 17:04
wds1
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:49
帖 子:393
专家分:2025
注 册:2016-3-10
收藏
得分:7 
'直接在word文件替换,不会的话,录制宏

Private Sub Command1_Click()
  Dim wordApp As New Word.Application
  Dim wordDoc As New Word.Document
  Set wordApp = CreateObject("Word.Application")
  wordApp.Visible = False
  Set wordDoc = wordApp.Documents.Open("d:\2.doc")
  With Selection.Find
      .Text = "456"
      .Replacement.Text = "999"
  End With
   
  With Selection
       If .Find.Forward = True Then
          .Collapse Direction:=wdCollapseStart
       Else
          .Collapse Direction:=wdCollapseEnd
       End If
         .Find.Execute Replace:=wdReplaceAll'替换全部
  End With
End Sub
2018-05-23 21:54
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:7 
FramerControl控件是第三方控件,不是VB60的控件,需要下载安装,没有用过。
以前用过WebOffice.OCX,也是第三方控件,可以在线编辑Word、Excel、PPT、WPS...等的大多数办公文档。
优点是将文档以二进制方式存储在数据库,可以新建、修改、删除文档,比较好用。

请不要选我!!!
2018-05-24 09:08
快速回复:vb6.0中FramerControl如何读取替换打开的WORD中文字
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.123039 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved