怎样把WORD中的错误一次性全部忽略
工具/原材料
word2007版、电脑。
1、打开电脑找到并点击打开word2018文档软件;
2、双击打开word软件以后,在上方文件中找到并点击”word选项“的命令;
3、点击选项命令以后,在弹出的界面框的左边找到并点击”校对“的命令;
4、点击校对命令以后,在右边的界面框中,取消对word更正拼写和语法项的所有勾选即可。
批量更改多个word文件中的数据
用宏命令可以解决,大概的步骤如下:
(1)先打开一个文档,单击“工具”→“宏”→“录制新宏”命令,出现宏的对话框,单击“确定”按钮。
(2)单击“文件”→“打开”,选择要修改数据的文件,将其打开。
(3)单击“编辑”→ “替换”命令,在查找替换框中将所有的日期、数量替换为0000。
(4)然后单击“文件”→“另存为”命令,将文件另存到另外一个文件夹中,最后关闭文件。
(5)单击“工具”→“宏”→“停止录制”命令,完成上述步骤
(6)对新录制的宏命令进行一定的修改,使它能对多个文件进行批量修改和保存。方法是:
单击“工具”→“宏”→“宏”命令,选择刚才录制的宏的名称,单击“编辑”按钮。打开Visual Basic编辑器,对宏进行一些修改。主要的修改地方有以下几个方面:
① 将刚才录制的宏的文件打开路径修改为你的文件夹的路径,例如“E:\123\old”,修改替换数据后的文件保存的路径,如“E:\123\new”
② 给宏命令添加一个for循环,例如,for i=6300,6300是你的文件数量,这是告诉宏修改6300个文件就结束
③ 其他的地方酌情修改,例如是否忽略报错,是否忽略数字的格式等
(7)最后一步就是在Visual Baisic编辑器中按F5键执行宏,六千多个文件一会儿就可以修改完毕。
注意,这样的操作需要懂一些简单的VB中有关逻辑循环执行的知识,如果逻辑循环修改正确的话,你只要按一次F5键执行就可以了。。。不然的话就要将六千多个文件逐个打开,逐个执行这样的宏命令操作,相当于按六千多次的F5
你好,在吗,求助一个问题,WORD的,就是如何批量更改已经保存的
Sub 批量格式设置() '此代码为指定文件夹中所有选取的WORD文件的进行格式设置
Dim MyDialog As FileDialog, vrtSelectedItem As Variant, Doc As Document
' On Error Resume Next '忽略错误
'定义一个文件夹选取对话框
Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
With MyDialog
.Filters.Clear '清除所有文件筛选器中的项目
.Filters.Add "所有 WORD 文件", "*.doc", 1 '增加筛选器的项目为所有WORD文件
.AllowMultiSelect = True '允许多项选择
If .Show = -1 Then '确定
Application.ScreenUpdating = False
For Each vrtSelectedItem In .SelectedItems '在所有选取项目中循环
Set Doc = Documents.Open(FileName:=vrtSelectedItem, Visible:=False)
With Doc
With .PageSetup '进行页面设置
.Orientation = wdOrientPortrait '页面方向为纵向
.TopMargin = CentimetersToPoints(4.1) '上边距为4.1cm
.BottomMargin = CentimetersToPoints(4.1) '下边距为4.1cm
.LeftMargin = CentimetersToPoints(3.05) '左边距为3.05cm
.RightMargin = CentimetersToPoints(3.05) '右边距为3.05com
.Gutter = CentimetersToPoints(0) '装订线0cm
.HeaderDistance = CentimetersToPoints(1.5) '页眉1.5cm
.FooterDistance = CentimetersToPoints(1.75) '页脚1.75cm
.PageWidth = CentimetersToPoints(21) '纸张宽21cm
.PageHeight = CentimetersToPoints(29.7) '纸张高29.7cm
.SectionStart = wdSectionNewPage '节的起始位置:新建页
.OddAndEvenPagesHeaderFooter = False '不勾选“奇偶页不同”
.DifferentFirstPageHeaderFooter = False '不勾选“首页不同”
.VerticalAlignment = wdAlignVerticalTop '页面垂直对齐方式为“顶端对齐”
.SuppressEndnotes = False '不隐藏尾注
.MirrorMargins = False '不设置首页的内外边距
.BookFoldRevPrinting = False '不设置手动双面打印
.BookFoldPrintingSheets = 1 '默认打印份数为1
.GutterPos = wdGutterPosLeft '装订线位于左侧
.LayoutMode = wdLayoutModeLineGrid '版式模式为“只指定行网格”
End With
.Close True
End With
Next
Application.ScreenUpdating = True
End If
End With
MsgBox "格式化文档操作设置完毕!", vbInformation
End Sub