Paladin.Lao的VSTO/VBA专栏

OUTLOOK自带的规则虽然可以设置自动转发，但这个规则是建立在服务器上的，但有些公司为了防止机密外泄而设置了服务器自动转发限制。解决的方法可以用OUTLOOK事件的方法来实现：Private Sub Application_NewMail() Dim myItem As Outlook.MailItem Set myItem = Application.Activ

Sub test()Dim obj As ShapeFor Each obj In ActiveDocument.Shapes If obj.Name Like "Text Box*" Or obj.Name Like "文本框*" Then obj.ConvertToFrame End IfNextEnd Sub

ACCESS数据库界面：EXCEL的窗体界面：窗体中的代码：Private Sub ComboBox1_Change() Dim cn As Object, sql$, arr, i& Set cn = CreateObject("adodb.connection") cn.Open "provider=Microsoft.jet.

EH上看到有人问这个问题，其实只需要一句代码就行立即框输入以下代码后回车For Each x In ActiveDocument.Frames: x.Delete: Next   作者：laoyebin(Paladin.lao)博客园出处：http://laoyebin.cnblogs.com/个人网站英文出处：http://mrvsto.com/个人网站中

首先需引用你所用的OUTLOOK版本的库（2003为11.0，2007 12.0，2010 14.0） Sub showAllEmails() Dim OLF As Outlook.MAPIFolder Dim Emails&, i&, k& Dim arr Application.ScreenUpdating = False Set OL

<br /> 上次写一篇文章，不小心开了全角，结果文章编辑完，惨不忍睹，然后就想自编个宏一次性转换。起先想到的当然是像Excel一样使用ASC函数，但发现VBA的ASC不是全半角转换的功能，晕死，只能网上找答案，终于，找到一个狼版以前发的回帖，完美解决。<br />代码如下：Sub SBC2DBC() ActiveDocument.Content.CharacterWidth = wdWidthHalfWidthEnd Sub 作者：laoyebin(Paladin.lao)博客园出处：h

<br /> <br />最近整理硬盘文件，发现一个Outlook里的全球通讯录到Excel的代码，但不知道这个文件是什么时候下的了，谨向原作者致敬。<br />注意：<br />1、这个代码是写在Excel的模块里的。<br />2、通讯录中联系人个数多的话，可能时间有点长<br /> <br />Const CdoAddressListGAL = 0Const CdoUser = 0Const CdoRemoteUser = 6#Const EarlyBind = TrueSub App