VBA代码-批量替换多个word文档中的内容，并详细标注

最新推荐文章于 2024-02-05 15:34:55 发布

谷雨之际

最新推荐文章于 2024-02-05 15:34:55 发布

阅读量2.6k

点赞数 3

分类专栏： VBA编程学习文章标签： word

本文链接：https://blog.csdn.net/lavend117/article/details/130707061

版权

VBA编程学习专栏收录该内容

2 篇文章 4 订阅

订阅专栏

该代码段展示了一个使用VBA在Word中批量替换文档内容的Sub程序。它通过FileDialog让用户选择多个Word文件，然后逐个打开文件，查找并替换指定文本（如“信息科”到“XXX部门”），最后保存并关闭文件。

摘要由CSDN通过智能技术生成

Sub 批量替换内容()

    Dim myDialog As FileDialog, oDoc As Document
	Dim oFile As Variant
     '定义文件夹选取对话框
	Set myDialog = Application.FileDialog(msoFileDialogFilePicker)


    'Selection.Find.ClearFormatting
    'Selection.Find.Replacement.ClearFormatting
	
    With myDialog
	 .Filters.Clear  
	 .Filters.Clear  '清除所有文件筛选器中的项目，确保所有的条件都显示
		
	 '增加筛选器的项目为所有Word文件，添加文件类型的项目位置，该参数从1开始
     .Filters.Add "所有Word文件", "*.doc,*.docx", 1  
     .AllowMultiSelect = True   '允许多项选择
		
     If .Show = -1 Then   '确定   显示对话框，等待用户操作，-1 为用户进行了确认操作
	   For Each oFile In .SelectedItems   '在所有选取项目中循环
        '对单个文档进行处理
	    Set oDoc = Word.Documents.Open(FileName:=oFile, Visible:=False) 
		With oDoc.content.Find
		.ClearFormatting
        .Text = "信息科"
        .Replacement.Text = "XXX部门"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
		'Find 方法的一个参数，用于执行查找并全部替换操作，也可以定义只替换第一个
        .Execute Replace:=wdReplaceAll 
	    End With
	 oDoc.Save
     oDoc.Close
	    Next
	 End If
	 MsgBox "所有文档处理完成"
    End With