如何批量在WORD文件最后添加相同的文字 如何快速在WORD文档中的每个行后面插入相同文字

www.zhiqu.org     时间: 2024-05-31

录制一个宏,添加一个按钮或者快捷键,然后把所有的文件全部打开,每个文件点一下录制宏的按钮,然后保存,关闭。这样的也要快点。

录制宏的办法:

开发工具默认是隐藏的,首先要在选项中打开“开发工具”

勾选开发工具

点击确定后,就会在菜单栏多出一个开发工具,里面有录制宏的按钮。

点击录制宏

输入宏名,选择按钮或键盘。选择按钮就会增加一个快速按钮,选键盘就定义一个快捷键。后面以按钮为例:

点击按钮后,弹出下列对话框,

选择与宏名对应的按钮,点击添加,到右边快速访问工具栏。

在左上角增加一个快捷按钮。

然后就开始录制宏,尽量用键盘操作。我录制的宏代码如下:

Sub 宏1()

'

' 宏1 宏

'

'

    Selection.MoveDown Unit:=wdLine, Count:=1000

    Selection.TypeText Text:="【】"

    Selection.MoveLeft Unit:=wdCharacter, Count:=1

    Selection.TypeText Text:="文本结束"

End Sub

解释一下:从开始向下移动鼠标1000行(如果你的每个文件超过了1000行,就把数字改大一点),先输入【】,然后输入【文本结束】,结束。

最好是自己录制一个代码,然后全选所有的word文件,按确定,全部打开,每个文件都点一下宏按钮,然后保存关闭。你也可以把保存关闭的过程录制到宏里面。这样就可以很快处理完毕了。





把所有文件放在一个文件夹中,打开任意一个文件,打开VBA编辑器
输入以下代码
Option Explicit
Sub AddTheEnd()

Dim Self$, CurrPath$, CurrFile$

Dim Doc As Document

CurrPath = ThisDocument.Path & "\"

Self = ThisDocument.Name

CurrFile = Dir(CurrPath)
Do Until CurrFile = ""

If CurrFile <> Self And CurrFile <> "." And CurrFile <> ".." And (LCase(Right(CurrFile, 5)) = ".docx" Or LCase(Right(CurrFile, 4)) = ".doc") Then

Set Doc = Documents.Open(CurrPath & CurrFile)

ActiveDocument.Content.InsertAfter Text:=" 【本文结束】"

Doc.Save

Doc.Close

Set Doc = Nothing
End If

CurrFile = Dir()

Loop

End Sub
运行后就可以在该文件夹下的所有文件后面添加【本文结束】了。

如何在word选择相同格式然后批量修改~

1、打开word文档,我要选择所有红色字体,将它们改成蓝色。

2、先选择其中一项,例如我选择【烟火】,然后右击选中文本。

3、鼠标指向最后的【样式】。

4、选择第三项【选择格式相似的文本】。

5、这样所有红色字体就被选中了,然后右击文本。

6、点击字体填充。

7、选择蓝色。

8、这样所有格式相同的文字就都改成了蓝色字体。

同时按Ctrl和H(替换),查找处输入com.cn
替换处输入
cn.com
全部替换;
接着查找处改为.com
替换处改为.com,
(增加一逗号或你要的文字)
全部替换;
最后查找处改为cn.com
替换处com.cn
全部替换。
完成。


#敖杭怕# 怎样子用Word 2010 在文章每行的开头或结尾添加同样的字符? -
(14713388803): 查找行的开头或结尾符并替换为添加同样的字符

#敖杭怕# 如何批量在文本内容末尾加上字符或者文字 -
(14713388803): 用软件Replace Pioneer把每行替换成$match=\n即可,极简单,详细步骤:1. ctrl-o打开文件2. ctrl-h打开replace窗口* 把replace unit选为Line* 在replace with pattern输...

#敖杭怕# 如何同时替换多个word文档里面相同的文字 -
(14713388803): VBA程序 : 第一,首先将需要批量替换的多个Word文档放在同一文件夹下面. 第二,新建一空白Word文档,右击空白工具栏,单击“控件工具箱”,就可以看到屏幕上调出的控件工具箱.

#敖杭怕# 如何在word表格中批量添加字符? -
(14713388803): 打开查找替换,查找内容中输入([0-9a-zA-z一-颌]{1,}),在替换为中输入\1,在\1后面加上要加的字,勾选通配符选项,全部替换即可

#敖杭怕# 怎么能一次性在word或excel表格文件的每一行末尾加上一个相同的符号? -
(14713388803): 将你的表格文件复制进excel表格,然后在第一行的最后输入那个符号,接着在那个格子线框周围移动鼠标形状变成“+”,然后往下拖就行,最后将表格复制出来就ok囖

#敖杭怕# 怎么批量?我有多个相同的Word文档?我有多个相同的Word文档
(14713388803): 除了查找替换,WORD无法同时修改多处相同的文字.修改方法:1、菜单上的编辑,2、替换.3、查找和替换窗口中的替换.(或者直接按CTRL+F)4、输入要被替换的文字.5、输入要替换的文字.

#敖杭怕# word里面每一页都要加入同样的内容 -
(14713388803): 视图:页眉与页脚 进入页眉状态,插入你想要的内容. 关闭页眉.0k

#敖杭怕# word中如何给多页文档插入相同艺术字 -
(14713388803): 使用水印吧 有两个方法 方法一 文字水印 执行[格式]→[背景]→[水印]命令,打开“水印”对话框选中“文字水印”选项后,进行必要的设置,按下[确定]按钮,水印即刻添加到整个文件的每一个页面中.方法二如下: 1. 制作好文档后,通过“视...

#敖杭怕# 如何在所有文档前加同样的文字? -
(14713388803): 用word 或wps做,插入页眉或页脚 ,编辑页眉或页脚,内容设定成 你想要的相同内容

#敖杭怕# word每张图片下插入相同的文字 -
(14713388803): 查找替换 ,操作如下,红框内为注意事项.不过这样操作会对文章中的每张图做操作,包括可能有的封面.悬浮状态的图片,此操作无效下面是操作前提,这几百张图片的版式环绕方式必须为 【嵌入式】