摘要：
Lotus Notes 数据库中附件的批量导出Lotus Notes 数据库是一种文档型数据库，其中文档的富文本域中往往嵌入许多附件（如 Word 文档、PDF 文档、Excel 文档等）。用户时常需要将这些附件导出到其他系统中进行使用处理。然而当需要导出许多文档中的附件时，只能手动逐个打开各个文档... 阅读全文
posted @ 2014-09-18 19:08 半点忧伤 阅读(822) 评论(0) 推荐(0) 编辑
摘要：
Public Class getAllNotesEmObject'-------------------------------------------------------------------'******功能： 可以在视图中直接提取文档中RTF域附件的类 *******'---------... 阅读全文
posted @ 2014-09-18 19:04 半点忧伤 阅读(2538) 评论(0) 推荐(0) 编辑
摘要：
Sub 替换页眉页脚()If ActiveWindow.View.SplitSpecial wdPaneNone Then ActiveWindow.Panes(2).CloseWith ActiveWindow.ActivePane.View .Type = wdPrintView .SeekV... 阅读全文
posted @ 2011-06-06 21:23 半点忧伤 阅读(1193) 评论(1) 推荐(0) 编辑
摘要：
请参考:(请确保所需的文档在同一文件夹下）Sub 批量格式设置()'此代码为指定文件夹中所有选取的WORD文件的进行格式设置Dim MyDialog As FileDialog, vrtSelectedItem As Variant, Doc As Document' On Error Resume... 阅读全文
posted @ 2011-06-06 21:20 半点忧伤 阅读(898) 评论(0) 推荐(0) 编辑
摘要：
VBA实现批量修改Word文档的页脚内容 功能示例： 有很多个doc文档，页脚的电话变了，如原电话是4007339339，现在变成4007168339了，要实现批量替换，可使用此程序。 使用说明： 1、 复制下面程序代码到VBA里后，点“工具”－“宏”－“宏”－“change”－“运行”... 阅读全文
posted @ 2011-06-06 21:18 半点忧伤 阅读(1773) 评论(2) 推荐(0) 编辑
摘要：
为了赶编一个图册,我们定了一个图片格式,图片全部存在硬盘上,每个图片均有一定的编号,如果手工实现,至少要24小时以上,中间还会出现DOC文件澎湃死机,想起来头就大.根据工作的流程,定了个索引文件格式,写了个VBA脚本,实现了(1)在WORD中插入表格(关键是单元格合并);(2)在WORD中插入文本框... 阅读全文
posted @ 2011-06-06 21:16 半点忧伤 阅读(816) 评论(0) 推荐(0) 编辑
摘要：
我写论文时经常要把所有的图调整成一样大小，使用的都是以下的代码，供参考。至于批量插入图片等功能，因为写论文时从来用不上，也不知道应该弄成什么样子，所以无法回答你。Sub 一次性调整公式以外的图片大小及格式() '功能 1 ：把全文的图片调整成同样大小，公式除外 '功能 2 ：如果图片不是 j... 阅读全文
posted @ 2011-06-06 21:15 半点忧伤 阅读(503) 评论(1) 推荐(0) 编辑
摘要：
Sub Macro1() ActiveDocument.Tables(1).Cell(3, 1).Select Selection.InlineShapes.AddPicture FileName:="C:\a.jpg", LinkToFile:=True, SaveWithDocument:=Tr... 阅读全文
posted @ 2011-06-06 21:07 半点忧伤 阅读(5148) 评论(1) 推荐(0) 编辑