批量合并word文档

1、新建一个WORD文档，命名后保存到和要合并的1000多篇文档一个文件夹里。

2、摁ALT+F11进入宏编辑器。

3、双击左上角的ThisDocument，在右侧的代码区粘贴代码如下：Sub 合并文档（）Application.ScreenUpdating = FalseMyPath = ActiveDocument.PathMyName = Dir(MyPath & ＂\＂ & ＂*.doc＂)i = 0Do While MyName ＂＂If MyName ActiveDocument.Name ThenSet wb = Documents.Open(MyPath & ＂\＂ & MyName)Selection.WholeStorySelection.CopyWindows(1).ActivateSelection.EndKey Unit:=wdLineSelection.TypeParagraphSelection.Pastei = i + 1wb.Close FalseEnd IfMyName = DirLoopApplication.ScreenUpdating = TrueEnd Sub4、运行，等候几分钟，即可完成合并

Batch DOCX to DOC Converter 怎么用

看名字就是把docx 转换成 doc的工具，我下载了安装了之后结果还要下一个近四十M的东西，所以我取消了，没有试，如果你用的是word2003的话我建议你安装一下升级包也就三十几M吧（360软件管家和QQ软件管理里面都有）。

或者使用wps ，永中office都可以，为了打开docx文件再去安装这么一个野 鸡软件真是浪费时间，浪费空间。

cad2010批量打印插件Batchplot转PDF自动编码的技巧

1、首先安装虚拟打印机；推荐使用PDF Factory。

PDF Factory 是一个无须Acrobat创建Adobe pdf文件的打印机驱动程序，PDF Factory 提供的创建 PDF 文件的方法比其他方法更方便和高效。

PDF制作工具，它可以把单页或两页的东西，直接打印为PDF文件！PDF Factory 产品提供了比其他程序提供得更简单、更有效率和更少的花费的创建PDF文件的解决方案。

PDF Factory Pro标准版本用来创建 pdf 文件，PDF Factory Pro用于需要安全的 PDF（法律文档、公司信息等）和其他高级功能的用户。

pdf factory是pdf虚拟打印机软件，下载安装好pdf Factory后，我们在打印机控制面板中就可以找到一台由pdf Factory虚拟出来的打印机，可以把任何可以打印的文件转换成pdf文件。

用任何可以支持打印输出的软件，把需要处理的文件逐个打印到这个虚拟打印机，全部打印完成后可把结果保存成一个pdf文件。

你甚至可以把不同软件格式的文件，如word、excel、photoshop等任何可以支持打印的文件，打印到同一个pdf文件。

2、安装cad批量打印机Batchplot_setup一类的，这样就可以批量把dwg文件转为pdf的了。

请采纳。

实际操作,批量把图片转成一个pdf

哥们 你的问题不是怎么转PDF PDF的大小实际上市取决于转换源的大小碧柔word文档直接转成pdf就会很小 因为是文字格式如果是图片就算选了优化参数 也会小不了多少要使文件变小就只能在转换之前对图片就进行处理acdsee或者Microsoft Office Picture Manager都可以在软件里打开图片（2种软件都可以进行文件夹浏览 然后进行批量处理）使用改变图像大小操作（在编辑菜单里找一找） 参数一般使用百分比缩放先做试验 调整图片大小 然后查看图像清晰度以及图像大小 感觉既看得清楚大小又最佳 这时候选中所有图片使用刚才的参数进行批量操作 然后将转换后的图片合成为PDF 一般能将文件缩小很多

Four pic one word 求答案

经测试编写VBA代码如下：Sub 嵌入式图片加边框（）Application.ScreenUpdating = FalseDim a As IntegerDim pic As InlineShapeDim aBorder As Bordera = ActiveDocument.InlineShapes.CountIf a = 0 ThenMsgBox （＂没有发现嵌入式图片＂）End IfFor Each pic In ActiveDocument.InlineShapespic.Borders.Enable = TrueWith picFor Each aBorder In pic.BordersWith aBorder.LineWidth = wdLineWidth025pt.Color = wdColorBlueEnd WithNext aBorder.ScaleHeight = 100.ScaleWidth = 100End WithNextApplication.ScreenUpdating = TrueEnd SubSub 取消边框（）Dim a As Integera = ActiveDocument.InlineShapes.CountIf a = 0 ThenMsgBox （＂没有发现嵌入式图片＂）End IfActiveDocument.InlineShapes(1).Borders.Enable = FalseEnd SubPrivate Sub CommandButton1_Click()嵌入式图片加边框End SubPrivate Sub CommandButton2_Click()取消边框End Sub效果如下：

转载请注明出处51数据库 » batchword2pic