标题:用vb来对word文档修改问题,各位给点提示,小弟感激不尽!
只看楼主
li1876696
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2017-4-10
结帖率:0
已结贴  问题点数:20 回复次数:4 
用vb来对word文档修改问题,各位给点提示,小弟感激不尽!
以前都是做c/c++编程,现在需要做的是一个可视化小窗口,需要转换一下word文档,比如检索到word里边的a时,用b来替换一下,然后别的部分也要改变一下(类似,实际复杂的多,实质是找到规律来替换),请问用vb能实现吗?我之前没用过vb但有c基础,请问我这种需求的话用vb和vc哪个更好实现呢?做的话用到sql检索功能吗?还是单纯的用vb就可实现?
搜索更多相关主题的帖子: vb word 文档 提示 感激不尽 
2017-06-13 16:49
li1876696
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2017-4-10
得分:0 
窗口很简单,就一个inputfile  一个outputfile  一个convert,目的就是转换后能得到我需要的word文档
2017-06-13 16:51
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:934
专家分:5244
注 册:2015-8-10
得分:20 
需要转换一下word文档,比如检索到word里边的a时,用b来替换一下,然后别的部分也要改变一下(类似,实际复杂的多,实质是找到规律来替换)
 红色的看不大明白,大致知道就是替换功能呗
 
程序代码:
  Dim wordapp
    Set wordapp = CreateObject("word.application")
    With wordapp
        .documents.open ("F:\1.doc")
        .Visible = True
        .activedocument.Content.Find.Execute FindText:=text1, ReplaceWith:=text2, Replace:=2
         activedocument.saveas "F:\2.doc"
    End With
2017-06-13 19:12
li1876696
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2017-4-10
得分:0 
回复 3楼 xiangyue0510
好,谢谢,那如果工作量很大,也就是输入的这个word文档非常庞大,有没有什么简单的方法呢?
2017-06-14 10:00
人格疯劣
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2018-5-30
得分:0 
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:\123.doc")
  With Selection.Find
      .Text = "a"
      .Replacement.Text = "b"
  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-06-11 21:22



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-477896-1-1.html




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

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