vb修改word word无法初始化vb环境

发布日期：2020-08-15

如何在vb中调出word文档并对其中的内容作出修改？

示例：把c:\1.doc中的“一”替换为“壹”：Private Sub Command1_Click()Dim wordObjSet wordObj = CreateObject(＂Word.Application＂)With wordObj.Documents.Open(＂c:\1.doc＂).Content.Find.Execute ＂一＂， ， ， ， ， ， ， ， ， ＂壹＂， 2.SaveEnd WithwordObj.quitEnd Sub

vb调用word

操作步骤。

第一，首先将需要批量替换的多个Word文档放在同一文件夹下面。

第二，新建一空白Word文档，右击空白工具栏，单击“控件工具箱”，就可以看到屏幕上调出的控件工具箱。

第三，在控件工具箱上单击“命令按钮”，文档中就放置了一个按钮了。

第四，双击该按钮，进入VB代码编写模式，将以下代码复制进去。

Private Sub CommandButton1_Click()Application.ScreenUpdating = FalseDim myPas As String, myPath As String, i As Integer, myDoc As DocumentWith Application.FileDialog(msoFileDialogFolderPicker) .Title = ＂选择目标文件夹＂ If .Show = -1 Then myPath = .SelectedItems(1) Else Exit Sub End IfEnd WithmyPas = InputBox（＂请输入打开密码：＂）With Application.FileSearch .LookIn = myPath .FileType = msoFileTypeWordDocuments If .Execute > 0 Then For i = 1 To .FoundFiles.Count Set myDoc = Documents.Open(FileName:=.FoundFiles(i), Passworddocument:=myPas) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = ＂大家好＂ .Replacement.Text = ＂你好＂ .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll myDoc.Save myDoc.Close Set myDoc = Nothing Next End IfEnd WithApplication.ScreenUpdating = TrueEnd Sub 第五，保存上面代码，退出VB编辑模式，返回Word文档界面。

第六，单击选中该按钮，再单击控件工具箱的第一个按钮“退出设计模式”。

第七，进行测试：点击按钮，选择要放置多个WORD文档所在的文件夹，确定后即可完成！注意如果WORD文档没有加密的话，密码项就不填，直接确认。

就会发现该文件夹下面的所有WORD文档中“大家好”已被替换为“你好”了。

如何将在VB中生成文本导入到WORD中？在VB中生成的一张表,如

编了个函数，原理是先删掉原来的文件，再写一个新文件。

Su WiteWod(ByVal sFileName As Sting, ByVal sText As Sting) Kill sFileName Dim newDoc As Wod.Document Set newDoc = New Wod.Document newDoc.Content.InsetAfte sText newDoc.SaveAs FileName:=sFileName End Su 参数说明： sFileName 文件名（例：＂D:\asp学习\数据 .doc＂） sText 想要写入的文本（例：＂Test＂） 调用例： WiteWod ＂D:\asp学习\数据 .doc＂, ＂Test＂

求一个完整的用vb窗体界面打开一个word文件的实例我在网上找了

我试试吧，请您联系我，我的邮箱是：diligent2011@ ，请您先不要给我分，如果做不好就不用给了，如果您满意的话再给分。

回答完毕，祝您好运。

我最近比较忙，但是昨晚抽空帮您做好了一个可以用打开对话框打开一个Wod显示到窗体的一个OLE控件上，可是还有一个问题就是由于昨晚我的电脑没电了那个控件的滚动条没加，您可以自己加上，方法是将OLE控件放到 pictueox上，然后给pictueox加滚动条，这样就可以显示Wod的全篇内容了，我现在在外边等我下午回去之后把作品发给您，由于时间有限没有做美化，可能界面很难看望多包涵。

vb识别将word数字中的。

改为.

用通配符替换即可：12345678910111213141516171819202122232425262728293031323334353637 Sub宏1() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting WithSelection.Find .Text = ＂[1-9]＂ .Replacement.Text = ＂.＂ .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True EndWith Selection.Find.Execute Replace:=wdReplaceAll Application.WindowState = wdWindowStateNormal EndSub...

VB问题（word中的vb编辑器和vb6.0有何不同？）

StoryRanges(wdPrimaryHeaderStory) oStoryRange.Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False 、奇偶页眉、普通页码.StoryRanges oStoryRange.Replacement.MatchWholeWord = False .Forward = True :Sub ReplaceAll(strFind As String, strReplace As String) Dim oStoryRange As Range For Each oStoryRange In ActiveDocument.Find.ClearFormatting oStoryRange.Find、尾注等等）.ClearFormatting With oStoryRange.Find .Text = strFind .Replacement.Text = strReplace .MatchAllWordForms = False End With oStoryRange.Find.Execute Replace:=wdReplaceAllEnd Sub如果想针对全文进行替换（包括正文、普通页眉.Execute Replace.Wrap = wdFindContinue .Format = False .MatchCase = False .Replacement.Find.ClearFormatting oStoryRange.Find、奇偶页码、脚注.MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With oStoryRange.Find参考这个代码替换页眉里的文字（注意这个代码只适用于奇偶页眉相同的情形）：Sub ReplaceAllInHeader(strFind As String.ClearFormatting With oStoryRange.Find .Text = strFind .Replacement.Text = strReplace , strReplace As String) Dim oStoryRange As Range Set oStoryRange = ActiveDocument.MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchWholeWord = False