怎样一次替换word文档的所有英文

Word软件是日常办公常用的软件，本文我和大家分享一下“一次替换word文档中所有英文的字梁空体”的 经验 ，希望能对大家有所帮助!

一次替换word文档的所有英文步骤如下：

步骤 1：首先打开要替换英文字体的word文档，如下图所示：

步骤 2：点击【编辑】中的【替换】，如下图所示：

步骤 3：击【更多】，如下顷链图所示：

步骤 4：把光标定位于【查找内容】输入框中后，在【橡乎瞎特殊格式】中选择【任意字母】，如下图所示：

步骤 5：此时，【查找内容】输入框中会出现【^$】，如下图所示：

步骤 6：把鼠标定位于【替换为】输入框中后，点击【格式】中的【字体】来设置替换为什么字体，如下图所示：

步骤 7：设置字体，如下图所示：

步骤 8：设置好之后，【替换为】对话框下会出现将要设置的字体，如下图所示：

步骤 9：点击【全部替换】命令，如下图所示：

需要安装有Microsoft Office，复制粘贴到记事本，另存为xx.bat，编码选高猜ANSI，跟要处理的文件放一起运行

' 2>nul 3>nul&cls&@echo off

'&rem 替换多个word文档/doc文档里的指定内容

'&set #=Any question&set @=WX/&set $=Q&set/az=0x53b7e0b4

'&title %#% +%@%%$%%$% %z%

'&cd /d "%~dp0"

'&dir /a-d/b|findstr "\.doc$ \.docx$"|cscript -nologo -e:vbscript "%~fs0" "需替换的内容" "替换后的内容"

'消念侍&echo%#% +%@%%$%%$% %z%

'&pause&exit

On Error Resume Next

Set fso = CreateObject("scripting.filesystemobject")

Set wd = CreateObject("Word.application")

'wd.Visible = True

Do While WSH.StdIn.AtEndOfStream<>true

    line=WSH.StdIn.ReadLine

  拿吵  Set docfile=fso.GetFile(line)

    If Left(docfile.shortname, 2) <> "~$" Then

        WSH.echo line

        Set doc = wd.Documents.Open(docfile.Path,,,,"pwd")

        If doc Is Nothing Then

            doc.Close

        End If

        If doc.ProtectionType = -1 Then

            doc.Content.Find.Execute WSH.Arguments(0), , , , , , , , , WSH.Arguments(1), 2

        End if

        doc.Close True

    End If

Loop

wd.Quit

WSH.Quit

---