如何批量修改word文档名称

如何批量修改word文档文件名

操作步骤：

第一步，将需要编辑的word文档放到"D:\temp\"这个路径下；

第二步，在"D:\temp\"这个路径下建立一个新的excel文档，在该excel文档中编辑两列数据，A列为word原始名称，B列为目标名称。如下图所示：

第三步，在该excel文档中使用快捷键“Alt+F11”切换到“编辑器”状态；

第四步，点击“插入”→“模块”；

第五步，将下述代码复制到模块编辑器中，点击“运行”。

源代码：

Sub test()

p = "d:\temp\"

For r = 2 To Range(" a65536").End(xlUp).Row

Name p & Cells(r, 1) & ".doc" As p & Cells(r, 2) & ".doc"

Next

End Sub

(完整版)Word中的图片批量统一大小及同比例缩放

Word宏：Word中的图片批量统一大小及同比例缩放（图） 有些时候，我们用Word来做一些图文混排的文档，需要正规的样式，例如图片大小一致。下面的方法就是告诉我们如何来实现很多的图片统一大小。 实现代码： Sub setpicsize() '设置图片大小 Dim n '图片个数 On Error Resume Next'忽略错误 For n = 1To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400'设置图片高度为 400px ActiveDocument.InlineShapes(n).Width = 300'设置图片宽度 300px Next n For n = 1To ActiveDocument.Shapes.Count 'Shapes类型图片 ActiveDocument.Shapes(n).Height = 400'设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300'设置图片宽度 300px Next n End Sub [Ctrl+A 全部选择提示：你可先修改部分代码，再按运行] 使用方法和[Word宏:Word中英文标点符号互换-VBA源码实现（图）] 中介绍的一样，把代码复制到Visual Biscal编辑器中，再回到Word界面，运行“宏”命令。 操作步骤如下： 1.打开要统一图片大小的Word文档，点击“工具”-“宏”-“Visual Biscal编辑器。

Word_邮件合并如何批量打印带照片

Word 邮件合并如何批量打印带照片 准备工作：准备一份考生信息数据库，可以是Word 创建的数据源，也可以像Excel 工作簿、 Access 数据库、Query 文件、Foxpro 文件，都可以作为邮件合并的数据源。只要有这些文件存在，邮件合并时就不需要再创建新的数据源，直接打开这些数据源使用即可。 需要注意的是：在使用Excel 工作簿时，必须保证数据文件是数据库格式，即第一行必须是字段名，数据行中间不能有空行等。这样可以使不同的数据共享，避免重复劳动，提高办公效率。我最常用的是Excel 簿，里面包含了编号、准考证号、考生姓名及其他相关信息的字段，要批量打印照片的话，还需要加一个照片的路径和文件名的字段（如果照片的文件名正好是考生的准考证号或姓名的话，可免），假设照片放在e:\photo 文件夹里，每位考生的照片文件名和准考证号相对应（如果用姓名的话可能会碰到同名同姓的问题）。数据准备工作的正确与否，关系到以后打印出来的证件正确与否，所以必须要仔细校对正确。 接下来的工作就是要设计邮件合并的模板了，步骤如下： 1．启动word 程序，从菜单栏中选择“工具\邮件合并”，将出现“邮件合并帮助器”对话框； 2．在“邮件合并帮助器” 对话框中的第一步“主文档”中单击“创建” 下拉按钮，选择“套用信函” （如果想在一张纸上打印多份的话，选择“分类”），再在出现的对话框中点击“活动窗口（A）” 按钮。 3．在“邮件合并帮助器”对话框中点击“获取数据（G）”下拉按钮，选择“打开数据源(O)…”，在出现打开文件对话框中打开刚保存的Excel 电子表格，点击“确定”并在弹出的对话框中点击“编辑主文档（M）”，这时你会发现在工具栏中多了一栏邮件合并工具栏4．然后画好表格填好项目，进行排版、设置纸张，再把光标置于要插入相应项目的位置，点击“邮件合并”工具栏的“插入合并域”下拉菜单（下拉菜单中的相应选项与Excel 数据表格中的标题行是一一对应的），然后单击下拉菜单中的相应选项，直至插入所有只包含文字的域。 5．下面是实现批量打印照片的关键一步，就是照片域的实现： 先把光标定位在要插入照片的地方，按Ctrl+F9 插入一个域，输入“IncludePicture "e:\\photo\\”（不包含外侧双引号），再按

用VBA实现批量修改多个Word文档内容

用vba实现多个word文档里的多个内容进行批量更改 说明：本方法思路是借用excel的表格对多个内容进行界面管理，再用excel的vba调用word文件进行查找更改。 使用方法： 将以下内容（不包括本句）复制进excel的宏模块，保存，然后excel界面设置如下： 输入数据，运行宏就可以了。（若需要现成的excel文件，请单独下载） 注：版权所有严禁转载 Sub 更新录入() Dim a, b, zhs zhs = Sheet1.Range("c" & Rows.Count).End(xlUp).Row p = ThisWorkbook.Path & "\" If Sheet1.Range("c5").Value = "" Then wjj = "新文书" Else wjj = Sheet1.Range("c5").Value End If If zhs < 3 Then CreateObject("Wscript.shell").popup "没有数据可以录入,请输入数据后再点击生成新文档！", 1, "提示！", 0 + 32 Exit Sub End If If Sheet1.Range("F1") <> "修改本级文档" Then On Error Resume Next

Set ofso = CreateObject("Scripting.FileSystemObject") '生成文件夹 ofso.CreateFolder (p & wjj) On Error GoTo 0 '替换本级或生成新的 ElseIf MsgBox("是否替换本级文件夹内文档？", vbYesNo, "提示") = vbNo Then: Exit Sub Else wjj = "" End If Application.ScreenUpdating = False With CreateObject("Word.Application") .Visible = False f = Dir(p & "*.doc") Do While f <> "" i = i + 1 .Documents.Open p & f For b = 3 To zhs If Sheet1.Range("C" & b) <> "" Then '有数据才替换 .Selection.HomeKey Unit:=6 ' 到文档开始地方 Do While .Selection.Find.Execute(Sheet1.Range("B" & b)) '查找s .Selection.Font.Color = wdColorAutomatic '字体颜色 .Selection.Text = Sheet1.Range("C" & b) '替换 .Selection.MoveRight Unit:=1, Count:=1 '右移 Loop End If Next .ActiveDocument.SaveAs p & wjj & "\" & f '另存为。。。 .Documents.Close False f = Dir Loop .Quit End With Application.ScreenUpdating = True If Sheet1.Range("F1") = "修改本级文档" Then MsgBox ("完成!!!共修改" & i & "个文档。联系QQ：136941975""提示") '直接退出 Exit Sub End If ms = MsgBox("共修改" & i & "个文档。联系QQ：136941975" & vbCrLf & "是否保存数据？" & vbCrLf & "点击“是”保存数据；点击“否”取消保存。", vbYesNo + vbInformation, "提示") If ms = vbNo Then ActiveWorkbook.Save ActiveWorkbook.SaveAs Filename:= _ p & wjj & "\" & "001信息录入.xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

批量修改多个Word资料文档内容

同时批量修改多个word文档步骤1把要批量修改的文档都放在同一个文件夹中 同时批量修改多个word文档步骤2在修改前，先确定多个word文档文件要被修改的内容如小小要修改的内容是多个word文档中的“西平县”，

同时批量修改多个word文档步骤3双击“word文档批量处理大师” 同时批量修改多个word文档步骤4点击“选择目录” 同时批量修改多个word文档步骤5在弹出的窗口中选择点击要批量修改的多个word文档文件所在的文件夹，然后点击“确定”按钮

同时批量修改多个word文档步骤6此时，系统会自动添加该文件中的所有文档文件 同时批量修改多个word文档步骤7点击“保存列表”

同时批量修改多个word文档步骤8在弹出窗口输入框随便输入一个名字，然后点击“保存”按钮 同时批量修改多个word文档步骤9在word文档批量处理选项中点击选择“1、内容批量替换”

同时批量修改多个word文档步骤10在右边弹出'批量替换文档内容'框体中，在”把文字：“标签下输入要被修改的内容，如“西平县”，在“替换为：”标签下输入要改成的内容，如“我在这”。然后点击“添加为待处理任务”按钮 同时批量修改多个word文档步骤11如果，要被批量修改的内容还有其他的，则先点击“添加到列表”按钮，然后再在”把文字：“标签下输入下一个要被修改的内容，如“啊”，在“替换为：”标签下输入下一个要改成的内容，如“哈“，然后点击“添加到列表”按钮。如此反复把所有要修改的文档内容全部添加到列表后再点击“添加为待处理任务”按钮

同时批量修改多个word文档步骤12在弹出窗口点击”确定“按钮 同时批量修改多个word文档步骤13在弹出窗口点击”是“按钮 同时批量修改多个word文档步骤14在弹出窗口点击”确定“按钮

Word 文档批量修改表格

Word中怎么批量修改所有表格样式 适用于在有很多表格的时候，想一次性修改所有表格的样式。 比如说，我这里有3张表格： 怎么做呢 1.先把开发工具菜单调出来，开发工具菜单默认情况下不在WORD中菜单栏显示，需要自己调。 文件 > 选项 > 自定义功能区 > 勾选开发工具就有了

2.利用宏选择所有表格 点击开发工具 > Visual Basic 选择 "插入" > “模块” 将下列代码复制进去（该宏的主要作用是，可以让你一次选中文档中所有的表格） Sub 批量修改表格()

Dim tempTable As Table Application.ScreenUpdating = False If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then MsgBox "文档已保护，此时不能选中多个表格！" Exit Sub End If ActiveDocument.DeleteAllEditableRanges wdEditorEveryone For Each tempTable In ActiveDocument.Tables tempTable.Range.Editors.Add wdEditorEveryone Next ActiveDocument.SelectAllEditableRanges wdEditorEveryone ActiveDocument.DeleteAllEditableRanges wdEditorEveryone Application.ScreenUpdating = True End Sub 3.关掉窗口，选择开发工具中的宏，运行刚才插入的宏，即可选择所有表格 选中了所有表格

(精选文档)world表格宽度批量修个同页面同宽

怎么批量修改Word表格的宽度 怎么批量修改Word表格的宽度呢。Word表格可根据窗口自动调整表格宽度，使得所有的表格宽度和页面宽度一样。当页面设置了新的页边距后，所有的表格都需要调整新的宽度。或者文档中有许多大大小小的表格，希望宽度全部调整与页宽一样。下面的方法就非常有用啦。 第一步、打开Word文档，按下【Alt + F11】 第二步、在VBA编辑器窗口的左上方，双击【ThisDocument】

第三步、在右侧选择【Document】，再在其右侧下拉选择【Open】 第四步、然后在宏代码编辑窗口中，Document_Open()下面输入以下代码 Application.Browser.Target = wdBrowseTable For i = 1 To ActiveDocument.Tables.Count ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitContent) '根据内容自动调整表格 ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitWindow) '根据窗口自动调整表格 ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '水平居中 ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdCellAlignVerticalCenter '垂直居中 Next i

用宏批量调整word中图片版式大小方向

Sub 图片方向()..................................................... Sub 图片对齐() Application.ScreenUpdating = False '关闭屏幕更新 Dim n On Error Resume Next ActiveDocument.Shapes(n).Select orizontalPosition = _ wdRelativeHorizontalPositionMargin wdRelativeVerticalPositionMargin Next Application.ScreenUpdating = True '恢复屏幕更新 End Sub Sub 图片大小() On Error Resume Next Dim mywidth Dim myheight Application.ScreenUpdating = False '关闭屏幕更新 mywidth = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,宽度根据输入的高度数值自动调整；", Title:="请输入图片宽度", Default:="0")) * 28.35 myheight = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,高度根据输入的宽度数值自动调整；", Title:="请输入图片高度", Default:="0")) * 28.35 '------------------------------------------------------------------ '调整嵌入式图形 Dim pic As InlineShape For Each pic In ActiveDocument.InlineShapes If mywidth = "0" Then

批量修改替换多个Word文档中同一内容地方法

批量修改替换多个Word文档中同一容的方法 如何一次性批量替换多个word文档中的同一容。其实，实现多个Word文档的字符进行批量替换的方法有多种。 第一种方法，可以利用第三方软件：全能字符串批量替换机。在网上可以下载到这款软件，利用该软件可以实现多个Word文档字符进行批量替换。 第二种方法，使用VBA实现，下面是具体操作步骤。 第一，首先将需要批量替换的多个Word文档放在同一文件夹下面。 第二，新建一空白Word文档，右击空白工具栏，单击“控件工具箱”，就可以看到屏幕上调出的控件工具箱。 第三，在控件工具箱上单击“命令按钮”，文档中就放置了一个按钮了。 第四，双击该按钮，进入VB代码编写模式，将以下代

码复制进去。 Private Sub CommandButton1_Click() Application.ScreenUpdating = False Dim myPas As String, myPath As String, i As Integer, myDoc As Document With Application.FileDialog(msoFileDialogFolderPicker) .Title = "选择目标文件夹" If .Show = -1 Then myPath = .SelectedItems(1) Else

Exit Sub End If End With myPas = InputBox("请输入打开密码：") With Application.FileSearch .LookIn = myPath .FileType = msoFileTypeWordDocuments If .Execute > 0 Then

利用excelVBA批量修改文件名以及自动插图到word

前段时间，因编写报告，需要把成果图片修改名字后，将图以及相应的名字插入word文档中。一次报告，至少200张图，花了数个小时才弄完工作，同时难免出现差错。之后就一直寻找捷径，基于excel vba以前有一点基础，现将整理出来的代码分享给大家。可以去下载我编好的excel 小程序，里面有详细代码，地址在最下方。欢迎直接试用下，给个反馈建议. 1.查找文件夹中符合图片格式的文件，返回其名字 Dim fs, f, f1, fc, s Dim arr As String Set fs = CreateObject("") Address = Address = Left(Address, InStrRev(Address, "\", Len(Address))) '获得当前工作表所在文件夹路径 Set f = (Address) Set fc = i = 2 For Each f1 In fc '遍历文件 If FileIspicture Then ' 引用了自定义函数 FileIspicture 判断是否为需要查找的文件格式

phname = '获取文件名 houzhui = Right(phname, Len(phname) - InStrRev(phname, ".", Len(phname)) + 1) (i, 1) = Left(phname, InStrRev(phname, ".", Len(phname)) - 1) (i, 2) = houzhui i = i + 1 End If Next 2.修改文件名称 Sub changename() Dim Address As String Address = Address = Left(Address, InStrRev(Address, "\", Len(Address))) n = , 1).End(xlUp).row For i = 2 To n '修改名称 pname = (i, 1) & (i, 2) textname = (i, 3) houzhui = Right(pname, Len(pname) - InStrRev(pname, ".", Len(pname)) + 1) '获取后缀 Name Address & pname As Address & textname & houzhui Next i

Word中的表格根据窗口自动批量调整表格宽度

Word表格可根据窗口自动调整表格宽度，使得所有的表格宽度和页面宽度一样。当页面设置了新的页边距后，所有的表格都需要调整新的宽度。下面学习啦给大家分享word批量修改表格的宽度的方法。 word批量修改表格的宽度的方法 第一步:打开Word文档，按下【Alt + F11】 第二步:在VBA编辑器窗口的左上方，双击【ThisDocument】 第三步:在右侧选择【Document】，再在其右侧下拉选择【Open】 第四步:然后在宏代码编辑窗口中，Document_Open()下面输入以下代码 Application.Browser.Target = wdBrowseTable For i = 1 To ActiveDocument.Tables.Count ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitContent) '根据内容自动调整表格ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitWindow) '根据窗口自动调整表格ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '水平居中 ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdCellAlignVerticalCenter '垂直居中 Next i 第五步:点击左上方的保存图标。 第六步:在弹出的窗口中，点击【否】，如果文档已经启用了宏，就不会出现这个提示对话框了。第七步:将文档另存为【启用宏的Word 文档】，然后关闭VBA编辑器和当前文档。 第八步:找到你刚刚保存的启用宏的Word文档，双击打开，启用宏的Word文档的图标上，会有一个感叹号。 第九步:点击【启用内容】，宏代码开始运行。 第十步:您会发现，Word中的所有表格，都会自动调整其宽度与页面宽度一样啦，而且表格中的内容都居中对齐了。如果不希望居中对齐，就将宏代码中的水平居中和垂直居中两行去掉。

word批量修改

群里一位朋友问到，如何一次性批量替换多个word文档中的同一内容。其实，实现多个Word文档的字符进行批量替换的方法有多种。 第一种方法，可以利用第三方软件：全能字符串批量替换机。在网上可以下载到这款软件，利用该软件可以实现多个Word文档字符进行批量替换。 第二种方法，使用VBA实现，下面是具体操作步骤。 第一，首先将需要批量替换的多个Word文档放在同一文件夹下面。 第二，新建一空白Word文档，右击空白工具栏，单击“控件工具箱”，就可以看到屏幕上调出的控件工具箱。 第三，在控件工具箱上单击“命令按钮”，文档中就放置了一个按钮了。 第四，双击该按钮，进入VB代码编写模式，将以下代码复制进去。 Private Sub CommandButton1_Click() Application.ScreenUpdating = False Dim myPas As String, myPath As String, i As Integer, myDoc As Document With Application.FileDialog(msoFileDialogFolderPicker) .Title = "选择目标文件夹" If .Show = -1 Then myPath = .SelectedItems(1) Else Exit Sub End If End With myPas = InputBox("请输入打开密码：") With Application.FileSearch .LookIn = myPath .FileType = msoFileTypeWordDocuments If .Execute > 0 Then For i = 1 To .FoundFiles.Count Set myDoc = Documents.Open(FileName:=.FoundFiles(i), Passworddocument:=myPas) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "IT部落窝" .Replacement.Text = "https://www.wendangku.net/doc/fa7451691.html," .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False

word文档批量修改图片的方法

[手把手]word批量导入、修改图片大小和压缩图片 工作中，我们不时会需要将大量图片插入word，并对其设置统一的尺寸大小。下面请跟随我，学习批量导入、修改图片尺寸和压缩图片的方法，让你告别重复工作。 工具/原料

?Microsoft Word 2007 一、批量导入图片 1. 1 将所有需要导入的图片放入同一文件夹，修改文件名，使其排列顺序符合我们要求。 2. 2 打开word，依次点击：插入→图片

3. 3 在弹出的窗口，“查找范围”框里找到需要插入图片所在文件夹， 方法一：选中第1张图片，按住键盘Shift键，再选中最后一张图片。 方法二：选中任意一张照片，同时按键盘“Ctrl”键和字母“A”键，全选点击“插入” 4. 4 效果如图

END 批量修改图片尺寸 1. 1 接上面的例子。 方法一：在word软件界面中依次点击：开发工具→宏 方法二：同时按键盘“Alt”键和“F8”键（后面简称Alt+F8）弹出宏创建窗口

2. 2 在宏名栏里任意输入一个宏的名字，本例中我们使用“setpicsize”点击创建

3. 3 弹出“Microsoft Visual Basic”窗口，复制下面的代码到代码窗口里替换掉原有内容： Sub setpicsize() '设置图片大小 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To 'InlineShapes 类型图片 (n).Height = 5 * '设置图片高度为5cm （1cm等于） (n).Width = 4 * '设置图片宽度4cm Next n End Sub '其中图片本例中图片尺寸为5cm和4cm 4. 4 点击“Microsoft Visual Basic”窗口工具栏里的“运行”按钮（类似播放器里的播放按钮）或者按键盘“F5”键 等待一会儿……（等待时间取决于你插入图片的多少和你电脑的运算速度）……

word中如何实现带格式的批量替换

word中如何实现带格式的批量替换 问题提出：在excelhome论坛有网友求助 -------------------- 我做防火墙的迁移已经半年多了（估计还要做1年左右），现在需要用新的IP替换原来的IP，并且新IP需要加粗，并附上不同的颜色，那样我就很容易区分出来新的IP应该属于哪个防火墙了。由于数量很多，我不能在word中一个一个的进行替换，那样太耗时间了，还容易出错，请问大家有没有什么好办法。恳请高手赐教，感激不尽。QQ：58023058比如原IP（还有字符）：USA_1.1.1.1 新的IP为：HK_2.2.2.2 原IP ：UK_3.3.3.3 新的IP为：CHN_3.3.3.3 ------------------------- USA_1.1.1.1 USA_1.1.1.1 UK_3.3.3.3 USA_1.1.1.1 USA_1.1.1.1 USA_1.1.1.1 UK_3.3.3.3 USA_1.1.1.1 HK_2.2.2.2 HK_2.2.2.2 CHN_3.3.3.3 HK_2.2.2.2 HK_2.2.2.2 HK_2.2.2.2 CHN_3.3.3.3 HK_2.2.2.2 左边为原来地址，右边为替换后的效果。 操作方法： 首先，打开“替换”选项卡，如下图1： 图1 替换选项卡填入查找内容和替换内容。

在“替换”选项卡中选择“更多”：如下图2 图2 替换选项卡中“更多”按钮 在“替换”选项卡中选择“更多”选项最下面选择“格式”：如下图3所示 图3 “更多”选项最下面选择“格式” 在选择“格式”后在弹出的菜单中选择“字体”，弹出“字体”对话框：如下图4所示

word中批量修改图片大小的两个方法

word中批量修改图片大小的两个方法 各位读友大家好，此文档由网络收集而来，欢迎您下载，谢谢word中批量修改图片大小的两个方法 对于把ppt的内容拷贝到word中： 对ppt的一页进行复制，然后粘贴到word中 如果要的是ppt运行过程中的内容，在qq运行的情况下，按Ctrl+Alt+A截屏，按勾，然后可以直接粘贴到word中(生成的图片已经在剪贴板中了) 1.图片只需要符合文档大小即可 方法：插入图片，word自动处理图片大小。 看一下下方的文件名 按Ctrl+A(全选)，图片的顺序按照电脑文件的顺序排列的

每一次按Ctrl+点击图片，被点击的图片放在首位 效果： 2.图片需要修改为具体的大小 把图片复制，直接在word中粘贴，图片以原始大小显示 按视图 按宏，查看宏，输入setpicsize，按创建 复制并粘贴以下程序并按调试+编译，看看程序有没有错误 Sub setpicsize() Dim i Dim Height, Weight Height = 300 Weight = 200

On Error Resume Next ‘忽略错误 For i = 1 To ‘InlineShapes类型图片 (i).Height = Height ‘设置图片高度为Height_px (i).Width = Weight ‘设置图片宽度Weight_px Next i For i = 1 To ‘Shapes类型图片 (i).Height = Height ‘设置图片高度为Height_px (i).Width = Weight ‘设置图片宽度Weight_px Next i End Sub 如果没有错误，保存(Ctrl+S)并退出(Alt+F4) 然后按宏，查看宏，选择名字为setpicsize的宏，并按运行，稍等片刻即可完成

word批量处理小技巧介绍

目录 1、将word文字转换成表格 (1) 2、提取目录的文字，删除页码和项目符号 (3) 3、在每行开头插入固定文字 (10) 《Word小技巧介绍》 1、将word文字转换成表格 如果有一段纯文本格式的文字，需要转换成表格。如下图，需要将这段课程安排转换成表格。有时候由于数据较大，一个一个复制到新建表格中显然费时又费力的。那么怎么办呢？ 这种重复的工作我们当然不会傻到人工来做，其实word里面就可以实现这样的转换。 星期一星期二星期三星期四星期五 语文数学英语物理化学 数学英语物理化学生物 英语物理化学生物语文 物理化学生物语文数学 语文数学英语物理化学 数学英语物理化学生物 英语物理化学生物语文 物理化学生物语文数学 步骤一：选中文字——插入——表格菜单——文本转换成表格

步骤二：在弹出的对话框中“文字分隔位置”选择“空格”，确定。 即可转换成表格，效果如下：

2、提取目录的文字，删除页码和项目符号 如下图，要把《哈利波特与魔法石》的目录中的第级目录文字提取出来，而又不想要第一级目录，和每行目录前面的项目符号，以及后面的……和页码，怎么办呢？这里目录比较简单，但是如果目录比较庞大，又有多级目录，而你只需要其中的一级目录（如有四级目录，而你只需要第一第二级目录），这个技巧就显得尤为方便。 当然，你可以复制该目录，然后以“只粘贴文本”的方式粘贴到另一个word文档中，然后一点一点删除成你要的文本。这是最笨的方法，不过如果你有足够的时间，总比没办法好。 那么，怎么做比较快呢，当然是利用word本来就拥有的强大的各种功能——word真的很强大，office很强大，而我们知道的和常用的功能只是其中的冰山一角（好浪费o(╯□╰)o）。 废话少说，言归正传，下面介绍操作步骤： 步骤一：引用——目录——插入目录…

Excel数据批量转Word文档

“Excel数据批量转Word文档”软件帮助文档实操 一、简介 “Excel数据批量转Word文档”软件是一款将Excel电子表格中的数据批量快速插入到Word文档中，并根据用户的要求自动保存或打印的软件，当前版本支持普通模式、多行模式、重复模式、多行重复模式。它适用于以下情况： 1、Excel电子表格中有大量的数据需要按统一格式生成独立的文档或打印出来：如会议通知、证件打印、请柬、化验单、准考证等； 2、Excel电子表格中同一数据需要生成多种格式的Word 文档，如名片印制生成不同的样式供挑选等； 3、证件、表格套打，如某种格式的证件或表格由印刷厂统一印刷好，在使用中只需要填写和打印相关数据内容。 为正常使用本软件，您的电脑必须先行安装微软Office2000以上版本的Excel和Word程序。 软件的下载与升级等信息可到“织名软件”网上查看或加入QQ群56615416。 二、目录结构 在软件程序所在目录下有四个子文件夹“数据”、“模板”、“用户文档”、“VBS”，作用如下： 1、“数据”文件夹：Excel电子表格数据文件默认存放的位置，本软件主界面“Excel文件”列表中默认显示的文件即是该目录下的文件； 2、“模板”文件夹：Word模板文档默认存放的位置，本软件主界面“Word模板”列表中默认显示的文件即是该目录下的文件； 3、“用户文档”文件夹：点“插入并保存”按钮会弹出选择文件保存位置的对话框，默认会在该文件夹下新建一以模板文档主文件名命名的子文件夹，如选择的Word模板是“准考证.doc”时，会自动在“用户文档”文件夹下新建一“准考证”子文件夹，并且默认打开位置定位在该子文件夹（“准考证”子文件夹）下； 4、“VBS”文件夹：保存特殊功能的VBS脚本文件，该文件夹中的内容如果删除或丢失可能会影响程序的部分功能。 5、“视频教程”文件夹：软件“帮助－教程”菜单下的视频教程存放在这里。 三、数据文件和模板文件的要求 1、数据文件的要求： 要求是扩展名为“.xls”的Excel文件，工作表的第一行数据为标题行，标题名称必须符合Word书签的命名规则，即必须以字母或汉字开头，可包含数字但不能有空格。可以用下划线字符来分隔文字，例如，“标题_1”。 2、模板文件的要求： 要求是扩展名为“.doc”的Word文档，建议模板文档分类存放。“Excel数据批量转Word文档”软件在生成Word 文档的过程中会根据Excel文件中工作表标题名称来查找Word文档中相关联的书签，找到后定位到该书签并插入工作表中当前行的相关数据。 四、模板书签的命名规则 为了能正确地将Excel表格的数据插入到Word文档的指定位置，需要在Word文档需要插入数据的位置添加书签，书签名称需要按照要求命名，下面以“考生考试安排.xls”工作簿和“准考证”模板为例说明各种模式的命名规则： 1、普通模式：书签名称跟Excel工作表标题一样，在这个模式下一个Word模板最多只能插入Excel工作表一 行数据，名称对应关系如下：

批量设置word 里图片的大小及版式的技巧

批量设置word 里图片的大小及版式的技巧1.批量设置固定大小 工具-宏-新建 Sub setpicsize() '设置图片大小 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 70 '设置图片高度为70px ActiveDocument.Shapes(n).Width = 80 '设置图片宽度80px Next n End Sub 运行即可 2.批量按比率缩小或放大 新建宏 Sub setpicsize() '设置图片大小 Dim n '图片个数 Dim picwidth Dim picheight On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片picheight = ActiveDocument.Shapes(n).Height picwidth = ActiveDocument.Shapes(n).Width ActiveDocument.Shapes(n).Height = picheight * 0.5 '设置高度为0.5倍ActiveDocument.Shapes(n).Width = picwidth * 0.5 '设置宽度为0.5倍Next n End Sub 3批量将图片转成嵌入型 新建宏 Sub 图片转嵌入型() Dim apic As Shape Application.ScreenUpdating = False For Each apic In ActiveDocument.Shapes apic.ConvertToInlineShape '转换为嵌入型 Next Application.ScreenUpdating = True Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend With Selection.ParagraphFormat .LeftIndent = MillimetersToPoints(0) .RightIndent = MillimetersToPoints(0)

Word中修改图片尺寸的方法分析

Word中修改图片尺寸的方法 word批量修改图片大小——固定的长和宽 1、打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！ 2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存 Sub setpicsize() '设置图片大小 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为400px ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度300px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片 ActiveDocument.Shapes(n).Height = 400 '设置图片高度为400px ActiveDocument.Shapes(n).Width = 300 '设置图片宽度300px Next n End Sub 3、返回word，工具－宏－宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间） word批量修改图片大小——按比例缩放篇 这部分要说的是把word中的所有图片按比例缩放！ 具体操作同上，只是代码部分稍做修改，代码如下： Sub setpicsize() '设置图片大小 Dim n '图片个数 Dim picwidth Dim picheight On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片 picheight = ActiveDocument.InlineShapes(n).Height picwidth = ActiveDocument.InlineShapes(n).Width ActiveDocument.InlineShapes(n).Height = picheight * 1.1 '设置高度为1.1倍ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍 Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片 picheight = ActiveDocument.Shapes(n).Height picwidth = ActiveDocument.Shapes(n).Width ActiveDocument.Shapes(n).Height = picheight * 1.1 '设置高度为1.1倍ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍 Next n End Sub

在多个Word文档中进行批量查找替换编辑

在多个Word文档中进行批量查找替换编辑 在一个Word文档中查找替换很简单，但如果想同时在多个Word文件中批量查找替换，怎么办呢？比如我有100个doc文档，我想把里面的“200码”全部改成“70码”，如果手动一个个打开文档，搜索并替换，岂不是要累死？应该有更加自动化的手段吧？ 这个需求并不罕见，所以一定有解决办法。下面给出两个： 一、付费而功能强大的 WordPipe是一个付费软件，可以免费下载功能受限的试用版，试用30天。 WordPipe的功能太强大了，以至于其繁多的选项设置让人无所适从。而且其试用版的限制比较BT：只能处理你指定的文档的30%。至于是哪30%，它没说…… WordPipe的价钱是499美元。找了一下破解，似乎没有完美破解的，号称提供破解版的网站看起来都像是病毒木马站。 所以，放弃它吧。 二、免费而功能简单的 WordSR是一个批量查找替换多个Word文档的免费工具。可以从这里下载WordSR的最新版。 这个工具其实就是一个宏，所以你必须启用宏才能使用。一般来说，你打开Word文档时，Word会问你要不要启用宏，并告诉你宏可能会带来安全风险。如果你觉得不放心，那就关闭，不要用。反正我用了，目前没发现有什么风险。 用法： 1，解压zip文档，里面有一个Word文档，还有几个其他说明性的文档。 2，打开那个Word文档。 3，如果你禁用了宏，就启用宏。如果启用了宏，就会蹦出上图所示的窗口。

4，第一栏里填入要查找的字，第二栏里填入要替换成的字。 5，第三栏里填入要处理的文档的路径。比如填写D:\test\*.doc，就会处理D:\test\这个目录下的所有doc文档。这步是关键。如果你有多个文档，就把它们都扔到一个目录下面，在这里填上它们的路径，并在最后写上*.doc。 6，根据需求，点击Find（查找）或Replace（替换）。 WordSR就会自动处理这些文档，一个个的寻找、替换，不用我们去手动地重复进行这样枯燥乏味的工作了。最后它还会在所处理文档的目录下面生成一个WordSR_Results.txt 文件，记录所有的操作信息。 兼容性： 1，经过我的测试，对中文支持良好。 2，该工具是在Office 2000上开发的，我在Word 2007上试用没有问题，所以我估计其他Office版本应该也没问题。 注意： 1，先备份你的文件，以防万一。我不对可能的文件损坏风险负责。 2，我也不对可能的安全风险负责。 对了，其他的Office套件也有类似的多文件批量查找替换工具：Excel SR 和PowerPoint SR