11 2012 档案

一个调用Shell的VBA程序
摘要：这个程序很强大但是如果参数错了同样要出问题，这里提供一个示例：=ShellAndWait("cmd",1000,4,2) 结果应为0Option ExplicitOption Compare Text '''''''''''''''''''''''''''''''''''''' 阅读全文
posted @ 2012-11-28 10:36 许阳 无锡 阅读(405) 评论(1) 推荐(0)
VBA Word CustomXMLPart 中在指定的Node"前添加Node
摘要：网上我看见有人想用InsertNodeBefore来实现这个想法。代码如下：Sub HowDoesInsertNodeBeforeWork()Dim oCXPart As CustomXMLPartDim oCXNode As CustomXMLNodeDim strXML As Stringstr... 阅读全文
posted @ 2012-11-26 17:29 许阳 无锡 阅读(464) 评论(0) 推荐(0)
调用COM来实现在最后一个Worksheet后插一个新的Worksheet
摘要：// InsertAfterSheets.cpp : Defines the entry point for the console application.//#include "stdafx.h"HRESULT AutoWrap(int autoType, VARIANT *pvResult, ... 阅读全文
posted @ 2012-11-21 18:50 许阳 无锡 阅读(262) 评论(0) 推荐(0)
使用OpenXml向空白文档添加一个带表格线的表
摘要：using System;using System.Collections.Generic;using System.Linq;using System.Text;using DocumentFormat.OpenXml.Packaging;using DocumentFormat.OpenXml.... 阅读全文
posted @ 2012-11-08 17:16 许阳 无锡 阅读(275) 评论(0) 推荐(0)
Word文档用代码移除Header
摘要：在PIA中Microsoft 似乎没有给出移除Header的方法。在实践中我发现下面代码能做到这一点： Dim wdApp As Word.Application Dim wdDoc As Word.Document Dim wdSection As Wor... 阅读全文
posted @ 2012-11-07 12:24 许阳 无锡 阅读(290) 评论(0) 推荐(0)
使用OpenXml转换docx内容为RTF
摘要：实际上这是个非常蛋疼的命题。它需要你有两个方面的能力：1.你实际RTF格式。2.你知道在OpenXml格式的文档中各种Style存在于哪个部份。由于完整的RTF style非常多。我这里只写了一个最简单的例子，希望它能起排线的作用：假设我有一个docx文档如下：Hello!This is a tes... 阅读全文
posted @ 2012-11-06 12:52 许阳 无锡 阅读(332) 评论(0) 推荐(0)