想用vb打开一个指定的word文档，并可以实现查找替换功能

比如，我要打开F盘目录下的1.doc，然后将文档里面的某个名字1改成另外一个名字2。用一个command键和2个text框的，谢谢哈

推荐答案 2015-04-17

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
    End With

祝你成功！

温馨提示：答案为网友推荐，仅供参考

当前网址：http://77.wendadaohang.com/zd/G38qqvYqvIIIWqG8qpv.html

其他回答

第1个回答 2015-04-17

jttttttttttttttttttttttttttttttttttttttttt

第2个回答 2015-04-17

快捷键：ctrl+H

相似回答

VB应用程序中实现“查找和替换”功能答：每当开发一个需要处理大量文本数据的应用程序时，需要具有拼写错误纠正功能，例如，微软的Word程序，当运行"拼写检查"时，将提供给你一个改正错误的机会（尽管是建议），它同时也提供了"查找替换"工具，用以进行用户定义的单词替换。这篇文章我将解释如何在VB应用程序中实现"查找替换"功能。二、前提条件在...

怎样用VB代码实现查找替换word页眉里的文字答：参考这个代码替换页眉里的文字(注意这个代码只适用于奇偶页眉相同的情形):Sub ReplaceAllInHeader(strFind As String, strReplace As String) Dim oStoryRange As Range Set oStoryRange = ActiveDocument.StoryRanges(wdPrimaryHeaderStory) oStoryRange.Find.ClearFormatting oStoryRange.Find.Replacement.Clea...

求一段VB(word宏)的代码,关于文件查找替换功能。答：Message = "请输入文件所在目录" ' Set prompt.Title = "InputBox Demo" ' Set title.Default = "c:\" ' Set default.' Display message, title, and default value.MyValue = InputBox(Message, Title, Default)Message = "请输入需要被替换的词" ' Set prompt.Title = "Inpu...

如何在vb中调出word文档并对其中的内容作出修改?答：示例：把c:\1.doc中的“一”替换为“壹”：Private Sub Command1_Click()Dim wordObj Set wordObj = CreateObject("Word.Application")With wordObj.Documents.Open("c:\1.doc").Content.Find.Execute "一", , , , , , , , , "壹", 2 .Save End With wordObj.quit End Sub ...

求教:VB编辑(替换)word文档答：docApp.Selection.Find.Replacement.ClearFormatting With docApp.Selection.Find .Text = "1" '要查找的内容 .Replacement.Text = "5" '要替换的内容 .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildca...

如何用VBA实现WORD批量替换?答：第一，首先将需要批量替换的多个Word文档放在同一文件夹下面。第二，新建一空白Word文档，右击空白工具栏，单击“控件工具箱”，就可以看到屏幕上调出的控件工具箱。第三，在控件工具箱上单击“命令按钮”，文档中就放置了一个按钮了。第四，双击该按钮，进入VB代码编写模式，将以下代码复制进去。Private ...

求一段VB代码以实现自动查找替换word里指定字符串(请勿从网上抄袭,那 ...答：下面代码已做过测试，可行：Private Sub Command1_Click()Dim wordObj Set wordObj = CreateObject("Word.Application")With wordObj.Documents.Open(App.Path & "\1.doc") 'WORD文档路径 With .Content If .Find.Execute("需要被替换的文字") Then .Text = Me.Text1.Text End If End With ....

大家正在搜

word合并文档 ppt怎么转换成word文档 word指定页面开始页码如何把word文档两页变成一页 word文档删除其中一页 word文档两页调成一页 word文档 word文档表格调整 word文档格式