摘要：word 使用vba 怎么改一个内容？操作步骤。 第一，首先将需要批量替换的多个Word文档放在同一文件夹下面。 第二，新建一空白Word文档，右击空白工具栏，单击“控件工具箱”，就可以看到屏幕上调出...

word 使用vba 怎么改一个内容？

操作步骤。

第一，首先将需要批量替换的多个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文档中“大家好”已被替换为“你好”了。

VBA excel调用word内容

在有word文件的文件夹中新建一个excel工作簿，打开工作簿，按Alt+F11，把下面的代码复制进去，按F5执行。

代码会复制work文件的前300个字符到excel中。

Sub test() Dim i%, myName$, myPath$, AppWord As Object Set AppWord = CreateObject(＂Word.Application＂) myPath = ThisWorkbook.Path & ＂\＂ myName = Dir(myPath & ＂*.doc*＂) With ActiveSheet .Columns(＂A:B＂).ClearContents Do While myName ＂＂ AppWord.Documents.Open Filename:=myPath & myName i = i + 1 .Cells(i, 1) = myName .Cells(i, 2) = AppWord.ActiveDocument.Range(Start:=0, End:=300).Text AppWord.ActiveDocument.Close False myName = Dir Loop End With AppWord.Quit Set AppWord = Nothing MsgBox ＂已完成。

＂End Sub...

Word VBA中,如何根据内容删除一行？

Sub DelBlank()Dim i as Paragraph, n as LongApplication.ScreenUpdating = FalseFor Each i In ActiveDocument.ParagraphsIf Len(i.Range) = 1 Theni.Range.Deleten = n + 1End IfNextMsgBox ＂共删除空白段落＂ & n & ＂个。

＂Application.ScreenUpdating = TrueEnd Sub摘自 EXCELHOME

word文档批处理 用vba

VBA代码如下：Sub AddStr()Dim myDialog As FileDialog, oFile As Variant, oDoc As DocumentSet myDialog = Application.FileDialog(msoFileDialogFilePicker) With myDialog.Filters.Clear.Filters.Add ＂所有 WORD 文件＂， ＂*.doc＂, 1.AllowMultiSelect = TrueIf .Show -1 Then Exit Sub For Each oFile In .SelectedItemsSet oDoc = Documents.Open(FileName:=oFile, Visible:=False, PasswordDocument:=OldPW)With oDoc.Content.InsertBefore ＂这是加入的文本＂ & vbCr.Close True "关闭文档End WithNext oFileEnd WithEnd Sub说明：使用该方法的好处是灵活，不用指定固定的目录来搜寻目标文档，直接运行代码，会自动弹出选择目录或哪些文档的对话框，非常方便。

只需修改要加入的内容即可。

使用VBA在查询WORD中表格的内容

vba读取word内容会弄吗？dir(*.Doc)知道怎么用吗？大约思路吧1、枚举所有word文档2、查找word中的你需要的内容3、填写到excel表中呵呵，不知道你vba水平如何，但按你的题目，我也只能回答这么多了。

按这个思路百度去，总会找到办法的。

怎么能运用word的vba读取exce文档中的内容

Sub PageLine()nPage = InputBox(Chr(13) & ＂输入要查看的页数。

＂， ＂文本的页数＂， 13)nLine = InputBox(Chr(13) & ＂输入要查看的行数。

＂， ＂查看的行数＂， 7)Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPageSelection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Name:=nLine - 1Selection.ExtendSelection.EndKey Unit:=wdLineSelection.EscapeKeyMsgBox Selection.RangeEnd Sub