word论文格式能做个批处理

使用宏命令里的录制宏，对第一个文件进行录制，完成后可以批量修改。5分钟的工作量

步骤/方法1首先搞清楚论文格式要求，比如格式要求如下：论文统一用微软Word软件排版，16开纸打印。严格按照标准打印格式的定型字号，正文用小四宋，行距20磅，每行34个汉字，一级标题用小三黑体，二级标题用四号黑体，三级标题用小四号黑体，四级标题小四号楷体，均靠左边顶排；标题与标题不空行，标题与上段正文之间空一行，关键词用小四号黑体，参考文献用五号宋体；图、表和正文之间空一行，图、表名用五号黑体，图表内容用五号宋体。在页面设置中设置好纸张大小及每行字数：设置好之后，就可以开始录入文本。录入完毕之后，进行文档级别设置。2切换到“大纲视图”进行文档级别设置。3依次对一级标题、二级标题、正文进行设置一级标题：二级标题：正文为默认格式，不用设置。4设置好文档级别后，便可通过“样式”批量对文本格式进行修改了☺5在word开始菜单中找到样式菜单，在默认的按钮上点右键--此处可修改标题1的样式，修改之后便可批量更新所有样式为：标题1的文本格式了☺6按前述实例设置一级标题，字体、字号等……7设置标题1样式后在“页面视图”的显示效果：8再按论文要求依次设置好二级标题、正文格式设置“样式”的方法多样，还可在页面视图中直接设置好，设定为“新样式”，此处用二级标题中演示如下：9此法应先设定好“样式”，再指定“文档级别”设定好之后，效果如图所示：10正文样式快速设定11照此排版完毕，即可快速自动生成目录了;-)先用CTRL+ENTER键新建一个空白页用于目录存放。依次如图找到菜单“插入目录”简单设置下就KO。12此目录为Word中的“域”有着其特殊性，可自动根据文本在页面不同位置变化，点击“更新域”后进行更新。13“只更新页码”选项顾名思义即只会根据文本所在位置的不同进行页码的变化；“更新整个目录”则不但会更新页码，如果编辑过程中标题内容发生了变化，也会一并更新。哈哈……操作至此，论文编排不再难了吧？

一、学位论文版式、格式1、论文开本及版芯论文开本大小：210mm×297mm（A4纸）版芯要求：左边距：30mm，右边距：25mm，上边距：30mm，下边距：25mm，页眉边距：23mm，页脚边距：18mm。2、标题：论文分三级标题一级标题：黑体，三号，段前、段后间距为1行。二级标题：黑体，四号，段前、段后间距为1行。三级标题：黑体，小四号，段前、段后间距为1行。上述段前、段后间距可适当调节，以便于控制正文合适的换页位置。3、正文字体：正文采用小四号宋体，行间距为18磅；图、表标题采用小五号黑体；表格中文字、图例说明采用小五号宋体；表注采用六号宋体。4、页眉、页脚文字均采用小五号宋体，页眉左侧为“本科毕业论文”，右侧为一级标题名称；页眉下横线为上粗下细文武线“ ”（3磅）；单面复印时页码排在页脚居中位置。5、文中表格均采用标准表格形式（如三线表，可参照正式出版物中的表格形式）。6、文中所列图形应有所选择，照片不得直接粘贴，须经扫描后以图片形式插入。7、文中英文、罗马字符一般采用Time New Roman正体，按规定应采用斜体的采用斜体。你好，希望我们可以帮你。相关资料在知网，万维网能查到资料。论文不会写，最关键的是要把心态放正，一步步来，多看点范文，看看别人怎么写的，论文写作是我们特长，我们的服务特色：支持支付宝交易，保证你的资金安全。3种服务方式，文章多重审核，保证文章质量。附送抄袭检测报告，让你用得放心。修改不限次数，再刁难的老师也能过。

用ctrl+F查找与替换

点一个WORD文件-新建宏....Sub 批量格式设置() '此代码为指定文件夹中所有选取的WORD文件的进行格式设置 Dim MyDialog As FileDialog, vrtSelectedItem As Variant, Doc As Document ' On Error Resume Next '忽略错误 '定义一个文件夹选取对话框 Set MyDialog = (msoFileDialogFilePicker) With MyDialog . '清除所有文件筛选器中的项目 . "所有 WORD 文件", "*.doc", 1 '增加筛选器的项目为所有WORD文件 .AllowMultiSelect = True '允许多项选择 If .Show = -1 Then '确定 = False For Each vrtSelectedItem In .SelectedItems '在所有选取项目中循环 Set Doc = (FileName:=vrtSelectedItem, Visible:=False) With Doc With .PageSetup '进行页面设置 .Orientation = wdOrientPortrait '页面方向为纵向 .TopMargin = CentimetersToPoints() '上边距为 .BottomMargin = CentimetersToPoints() '下边距为 .LeftMargin = CentimetersToPoints() '左边距为 .RightMargin = CentimetersToPoints() '右边距为 .Gutter = CentimetersToPoints(0) '装订线0cm .HeaderDistance = CentimetersToPoints() '页眉 .FooterDistance = CentimetersToPoints() '页脚 .PageWidth = CentimetersToPoints(21) '纸张宽21cm .PageHeight = CentimetersToPoints() '纸张高 .SectionStart = wdSectionNewPage '节的起始位置：新建页 .OddAndEvenPagesHeaderFooter = False '不勾选“奇偶页不同” .DifferentFirstPageHeaderFooter = False '不勾选“首页不同” .VerticalAlignment = wdAlignVerticalTop '页面垂直对齐方式为“顶端对齐” .SuppressEndnotes = False '不隐藏尾注 .MirrorMargins = False '不设置首页的内外边距 .BookFoldRevPrinting = False '不设置手动双面打印 .BookFoldPrintingSheets = 1 '默认打印份数为1 .GutterPos = wdGutterPosLeft '装订线位于左侧 .LayoutMode = wdLayoutModeLineGrid '版式模式为“只指定行网格” End With With . '段落格式设置 .LeftIndent = CentimetersToPoints(0) '左缩进0cm .RightIndent = CentimetersToPoints(0) '右缩进0cm .SpaceBefore = 0 '段前间距0cm .SpaceBeforeAuto = False '段前间距不设为“自动” .SpaceAfter = 0 '段后间距0cm .SpaceAfterAuto = False '段后间距不设为“自动” .LineSpacingRule = wdLineSpaceExactly .LineSpacing = 24 '行距24磅 .Alignment = wdAlignParagraphJustify '段落设置为两端对齐 .WidowControl = False '不勾选“孤行控制” .KeepWithNext = False '不勾选“与下段同页” .KeepTogether = False '不勾选“段中不分页” .PageBreakBefore = False '不勾选“段前同页” .NoLineNumber = False '不勾选“取消行号” .Hyphenation = True '不勾选“允许西文在单词中间换行” .FirstLineIndent = CentimetersToPoints(0) '首行缩进0cm .OutlineLevel = wdOutlineLevelBodyText '大纲级别为“正文文本” .CharacterUnitLeftIndent = 0 '段落左缩进0cm .CharacterUnitRightIndent = 0 '段落右缩进0cm .CharacterUnitFirstLineIndent = 0 '特殊格式为“无” .LineUnitBefore = 0 '段前间距为0 .LineUnitAfter = 0 '段后间距为0 .AutoAdjustRightIndent = True '自动调整段落的右缩进 .DisableLineHeightGrid = False '勾选“如果定义了文档网格，则对齐网格”，即指定段落中的字符与行网格对齐 .FarEastLineBreakControl = True '将东亚语言文字的换行规则应用于指定的段落 .WordWrap = True '在指定段落或文本框的西文单词中间断字换行 .HangingPunctuation = True '指定段落中的标点将可以溢出边界 .HalfWidthPunctuationOnTopOfLine = False .AddSpaceBetweenFarEastAndAlpha = True '自动在指定段落的中文文字和拉丁文字之间添加空格。 .AddSpaceBetweenFarEastAndDigit = True '自动在指定段落中的中文文字与数字之间添加空格 .BaseLineAlignment = wdBaselineAlignAuto '自动调整基线字体对齐方式 End With ''''''''''新增部分 With .Content With .Font .NameFarEast = "宋体" .NameAscii = "Times New Roman" .Size = 12 End With With . . = 16 .Alignment = wdAlignParagraphCenter End With End With .Close True End With Next = True End If End With MsgBox "格式化文档操作设置完毕!", vbInformation End Sub

先按格式建立一个标准的空文档模板,然后每次新建一个文档使用该模板,打开另外的文件,全部复制到新文档里,依此类推,只不过需要复制粘贴300个,但不需要再调整格式了.=====================================用模板的话,只是一次建立,而且还可以将模板分发,以后就可以统一格式了,如果这个还觉得麻烦的话,就只能考虑程序了,但即使用程序批处理,你也需要打开每个文档核对,如果出现格式乱了,还是需要重新做的,复制粘贴工作虽然枯燥些,但相对可靠点.