批量替换word页眉 批量替换word文档页眉上的字

有啊，photoshop就可以同想操作，

具体操作：

在photoshop打开你要改的第一张图片，按F9新建一个动作，把快捷键设成F2-F9随便你，然后你把你要改的最精彩的电影下载改成你要改的内容，改好了以后你就可以把动作记录结束,

后面的图片你就可以打开一张安下你设定的快捷键就会自动改了，

还可以更快，那就是在文件→自动→批量处理

打开批量处理后，你选取你要改的文件夹（装着你所有要改的图片的文件夹）

在目的里面选文件夹（就是你要保存的文件夹最好重建一个，你原来的文件不要变）保险一些，

希望对你有帮助

同一个word文档页眉页脚如何批量修改，一个一个修改太麻烦,有批量修改么

方法1、如果你的页眉页脚是统一的一致的，那么你可以将文档中的分节符替换为分页符，替换方法是：ctrl+h调出替换对话框

查找内容输入：^m

替换为输入：^m

高级或更多选择“使用通配符”，点击全部替换

方法2、如果你的页眉页脚是不完全一致的，而你需要修改的内容是一直的，那么直接用替换命令进行替换，但要注意的是，需要逐个查找后替换，避免将正文中的内容也替换掉了。

谢谢你的帮助哦 可是还有个问题 替换是能替换了 但是源文档一个页眉页脚均有两个地方填写的 一个是电话 一个是QQ 替换的时候 QQ那框架不够大 我新修改的页眉页脚显示不完整咋办呢

这个就比较麻烦了，你只能手动将文本框一个一个的调大些。

怎么实现批量的word文档的替换，替换的都是页眉上一样的内容?具体该怎么操作啊？

你是有很多的 word文档？都需要替换？

百度“Word文档批量处理大师软件 V7.3.6 官方免费版 ”

提供了30多个批量任务选项，如：内容替换、格式设置、页面设置、页眉页脚水印处理、属性设置、图片设置及替换、超链接替换及清除、word转图片、word转PDF、打印、插入、合并、权限及密码设置、文件更名等

公司给usb接口禁了不让用，网卡也禁了，没法下软件啊.....

那你们公司的电脑资料 从不出内网？？你在哪里上网呢？？

要不，下载后刻光盘（自己刻也就1元钱），用光驱安装。

你也可以和公司管理员联系，让他临时启用USB接口。

批量修改WORD文件的页眉页脚

材料/工具：word2010

1、打开文档页面。随意打开文档其中的一个页面，如图所示，接下来将“经典故事大讲堂”改成“小故事大讲堂”。

2、进入页眉修改页面。将鼠标移到所示位置，也就是说移到页边距的中间位置，不能离开这个区域太远，否则双击无效。

3、修改页眉。将鼠标选中要修改的内容，将“经典故事”改为“小故事”即可。

4、返回页面。修改完之后将鼠标移到空白区域，双击鼠标，可以看到如下图所示内容。说明该页修改成功。

5、浏览其他页面。修改完了之后浏览其他页面，如图所示为文档第二页，看看是否修改成功。

怎样批量更改WORD文件的页眉和页脚

录制一个插入页眉的宏，设置为auto_open名，到管理器中把此宏复制到NORMAL.dot中,然后逐个文件打开，保存就可。试一试

多个word文档可以批量修改页眉页脚吗？

每个文档需要单独修改页眉页脚。

每个文档的页眉页脚修改是批量的，修改一个，至少一节的页眉页脚都统一了。

修改时注意两个地方，如果不想后面的页眉与前面的一样，要取消链接到前一条页眉

如果要修改页码顺序，注意修改页码格式。

各位大侠们，求批量替换文件夹内所有Word文档页眉中的Logo图片得宏代码

假如我手上有500个word文档需要删除页眉页脚

先把需要删除页眉页脚的500个word文档放在一个文件夹下，然后打开其中一个文档

在打开的文档中，选择在“工具”菜单中选择“宏”--“宏”

随后弹出“宏”对话框，在宏名中输入"Application"，最后点击"创建"按钮

随后弹出“Microsoft visual basic”设计，在编辑处输入如下代码

Sub 批量删除Word页眉页脚()

Application.ScreenUpdating = False

Dim MyPath As String, i As Integer, myDoc As Document

With Application.FileDialog(msoFileDialogFolderPicker)

.Title = "选择要处理目标文件夹" & "——(删除里面所有Word文档的页眉页脚)"

If .Show = -1 Then

MyPath = .SelectedItems(1)

Else

Exit Sub

End If

End With

With Application.FileSearch

.LookIn = MyPath

.FileType = msoFileTypeWordDocuments

If .Execute > 0 Then

For i = 1 To .FoundFiles.Count

Set myDoc = Documents.Open(FileName:=.FoundFiles(i))

' B可以替换的宏

' 以下是处理格式所录制的宏，可根据所需录制

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then

ActiveWindow.Panes(2).Close

End If

If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _

ActivePane.View.Type = wdOutlineView Then

ActiveWindow.ActivePane.View.Type = wdPrintView

End If

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.WholeStory

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

Selection.WholeStory

With Selection.ParagraphFormat

.Borders(wdBorderLeft).LineStyle = wdLineStyleNone

.Borders(wdBorderRight).LineStyle = wdLineStyleNone

.Borders(wdBorderTop).LineStyle = wdLineStyleNone

.Borders(wdBorderBottom).LineStyle = wdLineStyleNone

With .Borders

.DistanceFromTop = 1

.DistanceFromLeft = 4

.DistanceFromBottom = 1

.DistanceFromRight = 4

.Shadow = False

End With

End With

With Options

.DefaultBorderLineStyle = wdLineStyleSingle

.DefaultBorderLineWidth = wdLineWidth075pt

.DefaultBorderColor = wdColorAutomatic

End With

If Selection.HeaderFooter.IsHeader = True Then

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Else

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

End If

Selection.WholeStory

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

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _

wdAlignPageNumberRight, FirstPage:=True

' 以上可以换成是你自己录制的宏

' C公共部分的代码

Application.DisplayAlerts = False '强制执行“是”

'ActiveDocument.Saved = True'强制执行“否”

ActiveDocument.Close '退出

Next

End If

End With

Application.ScreenUpdating = True

MsgBox "所选Word文档的页眉页脚已删除！！！", 64, "☆★批量处理完毕★☆"

End Sub

Sub ConvertEqns()

'

' ConvertEqns Macro

' 宏在 2014-6-25 由 USER 创建

'

End Sub

输入代码后，关闭窗口返回文档，重新选择在“工具”菜单中选择“宏”--“宏”，在弹出的宏名中选择"批量删除Word页眉页脚",最后点击“运行”---确认即可快速地删除500个Word页眉页脚

资源来自网络

转载请注明出处51数据库 » 批量替换word页眉 批量替换word文档页眉上的字