批量替换word内容宏代码
答：在E盘下建立“HongTiHuan.xlsx”→在该文件中修改其中一个工作表的名称为“替换”→在该工作表第一列中输入被替换的内容，第二列中输入需要替换为的内容→保存该文件并关闭；2.视图→宏→查看宏→创建→在空白区域粘贴下面的代码→保存→关闭VB窗口；Sub 用Excel替换()'Excel文件中的替换（Ctrl+Alt...
答：Dim ReplaceArr(1 To 4) As String '替换成的内容的数组，根据需要替换内容的数量，将4改变成相应的量即可 Dim TempString(1 To 4) As String '中间变量数组，根据需要替换内容的数量，将4改变成相应的量即可 Dim i As Integer OriginalArr(1) = "张三" '内容可以根据需要自设置，其余...
答：把Excel工作簿复制到Word文档所在文件夹下，打开后插入模块，粘贴以下代码，点击运行 Sub test1()Application.ScreenUpdating = False Dim wdapp As Word.Application, wdoc As Document, r&, myp$, myf$, i&, a$, b$, c Set wdapp = New Word.Application myp = ThisWorkbook.Path & "\"my...
答：可以使用宏来批量修改Word文档的内容格式。首先，打开Word文档，按下Alt+F11进入VBA编辑器，然后选择插入-模块，编写宏代码。宏代码可以通过VBA语言修改文档的格式，例如设置字体、字号、颜色等。接着，保存宏代码，返回Word文档，按下Alt+F8打开宏窗口，选择需要执行的宏，点击运行即可批量修改文档格式。注意...
答：需要安装有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...
答：如果要替换的数在Word表格中，这个Word只有一个表格，可以使用下面的方式进行处理：Sub 宏1() Dim Rng As Cell Set Rng = ActiveDocument.Tables(1).Cell(1, 1) If InStr(Rng.Range.Text, "42") Then Rng.Range.Text = Int(40 + 10 * Rnd()) Do Set Rng = Rng.Next ...
答：把一批.doc文件拖拽到这个VBS文件上，松开手，再按提示运作就行了。不打开doc文件就能够批量替换的vbs程序 On Error Resume nextSet objWord = CreateObject("Word.Application") If Wscript.Arguments.Count <> 0 ThenFindstr=InputBox(chr(13)&" 输入要查找的字符串 ", "输入查找字符","vbs")If...
答：先发一个替换的宏给你试试：Sub Replace()Dim Message, Title, Default, MyValue, NeedReplace, MyReplace Message = "请输入文件所在目录" ' Set prompt.Title = "InputBox Demo" ' Set title.Default = "c:\" ' Set default.' Display message, title, and default value.MyValue...
答：查找：^13[!^13]@[一-龥][!^13]@^13，替换为：^13 (勾选使用通配符，全部替换）查找：^13[!^13]@[一-龥]^13，替换为：^13 (勾选使用通配符，全部替换）查找：^13[一-龥][!^13]@^13，替换为：^13 (勾选使用通配符，全部替换）将上述过程录制为宏 ...
网友评论：
缪宏17679734915：
word怎样一次性替换多个文本框的内容呢? -
14879翁河
： 视图——工具栏——勾选“绘图”,随后,word的最下方会出现绘图工具条,最左边是“绘图(d)”和一个下拉黑三角,再过来就是一个白色的小箭头,点那个小箭头,在文档中像画一个虚线的矩形一样,被矩形框在内的文本框都会被选中.
缪宏17679734915：
Excel word中通过宏可否实现批量替换 -
14879翁河
： 当然可以实现批量替换,而且还可以有更加强大和个性化的功能,只不过你得先得有VB语言基础,然后通过录制宏,获取部分代码,再进行修改,最后才可能灵活运用.
缪宏17679734915：
如何用word 批量替换 -
14879翁河
： 打开替换对话框,单击高级,勾选使用通配符,在查找框中输入:[13579],在替换为框中输入:X,单击全部替换即可同理,在查找框中输入:[24680],替换为框中输入:Y,单击全部替换即可.不需要用到宏.如果自己经常做字符替换(建议可使用《文件批量处理百宝箱V8.0》中的批替换以及文本行处理的功能),还是自己多多学习学习word的通配符替换吧. 对于这个问题,如果要用大炮似的几十上百行宏代码,有点大炮打蚊子的感觉了,呵呵
缪宏17679734915：
如何在word用宏命令中通过变量把相同的字替换成不同的文字内容 -
14879翁河
： 新定义一个变量,比如k,当遇到第一个“喜欢”时,k=1,…… 设置若k=1,k=2等的对应的替换内容.
缪宏17679734915：
如何用CMD批量替换word中的字符 -
14879翁河
： 会用word宏吗?自定义一个宏,Sub MyModify() ModifyText ＂文件名＂, ＂查找的文本＂, ＂替换的文本内容＂ End Sub Function ModifyText(strFilename As String, FindText As String, mText As String) Documents.Open filename:=strFilename,...
缪宏17679734915：
word怎样一次性替换多个文本框的内容 -
14879翁河
： 创建以下宏 Sub 替换word文本框内容() Dim mShape As Shape Dim tmpString As StringFor Each mShape In ActiveDocument.Shapes If mShape.Type = msoTextBox ThentmpString = mShape.TextFrame.TextRange.TextmShape.TextFrame.TextRange.Text = Replace(tmpString, ＂查找内容＂, ＂替换内容＂) End If Next End Sub 将查找内容跟替换内容更换即可
缪宏17679734915：
word 如何利用vba实现批量替换字符? -
14879翁河
： 录制宏,替换所有的1都替换为key“1”,然后在代码里面复制(所有的1都替换为key“1”)修改为其他替换.
缪宏17679734915：
急!求关于word批量处理 - 文字修改的宏代码有一堆的文档要进行批
14879翁河
： 操作如下: 编辑——替换: 在弹出的替换框中的“查找”中输入:教材 “替换”中输入:推荐教材 就可以把“教材”改为“推荐教材”啦.并且,原本是推荐教材的现在还是推荐教材.查找:教学基本内容如下,替换:教学基本内容 要改其他的也是类似.呵呵
缪宏17679734915：
word 替换宏编写 -
14879翁河
： 第一步:启动word 2003(其他版本操作类似),然后单击菜单“工具→宏→宏”命令,打开“宏”对话框,接着在该对话框“宏名”下边的文本框内输入“autoexec”(不包括外侧引号),再单击“宏的位置”右边的下拉箭头,选择“normal....
缪宏17679734915：
在WORD2007中,如何利用宏实现成批替换 -
14879翁河
： 项目不多的话WORD中直接替换就成了,我说的是项目,全部替换就成
