需求:经常阅读网上的研报(没钱买排版漂亮的高质量研报),有些需要保存的复制下来到word里,图片很大都超出word的边界了,也没有居中,手工一张张调整不现实,上百页的研报,几十张图片. 解决方案:利用VBA宏批量解决.第一种方法经过测试,只是前面部分有些,后面部分无效,不知道何解. 以下是代码: Sub setpicsize() '设置图片尺寸 '第一种方法,经测试,文档前面部分图片有效,后面部分无效 'Dim n '图片个数 'On Error Resume Next '忽略错误 'For n
2008年05月25日 11:08 Sub autonew1()Dim 存在, a, i, j, strOn Error Resume NextFor j = 1 To ActiveDocument.VBProject.VBComponents.Count If ActiveDocument.VBProject.VBComponents.Item(j).Name = "Liuhb" Then 存在 = 1 Exit Sub End IfNext jIf
using System; using System.Collections.Generic; using System.Linq; using System.Web; using System.Data; using Aspose.Words; using System.Configuration; using System.Data.SqlClient; using System.Reflection; using Aspose.Words.Drawing; using System.Tex