![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
OFFICE其他
laoyebin
我自横刀向天笑无人知是荔枝来
展开
-
用VBA实现OUTLOOK接收新邮件后的自动转发
OUTLOOK自带的规则虽然可以设置自动转发,但这个规则是建立在服务器上的,但有些公司为了防止机密外泄而设置了服务器自动转发限制。解决的方法可以用OUTLOOK事件的方法来实现:Private Sub Application_NewMail() Dim myItem As Outlook.MailItem Set myItem = Application.Activ原创 2010-02-02 22:54:00 · 8404 阅读 · 2 评论 -
把WORD中的文本框批量转换为图文框
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原创 2010-02-08 15:07:00 · 2224 阅读 · 0 评论 -
EXCEL从ACCESS中取值
ACCESS数据库界面:EXCEL的窗体界面:窗体中的代码:Private Sub ComboBox1_Change() Dim cn As Object, sql$, arr, i& Set cn = CreateObject("adodb.connection") cn.Open "provider=Microsoft.jet.原创 2010-03-03 22:04:00 · 1474 阅读 · 0 评论 -
删除整篇Word文档中的图文框
EH上看到有人问这个问题,其实只需要一句代码就行立即框输入以下代码后回车For Each x In ActiveDocument.Frames: x.Delete: Next 作者:laoyebin(Paladin.lao)博客园出处:http://laoyebin.cnblogs.com/个人网站英文出处:http://mrvsto.com/个人网站中原创 2010-03-09 12:22:00 · 7278 阅读 · 1 评论 -
在EXCEL中列出OUTLOOK收件箱里所有的邮件
首先需引用你所用的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原创 2010-03-11 23:57:00 · 1645 阅读 · 0 评论 -
Word里全角转换成半角
<br /> 上次写一篇文章,不小心开了全角,结果文章编辑完,惨不忍睹,然后就想自编个宏一次性转换。起先想到的当然是像Excel一样使用ASC函数,但发现VBA的ASC不是全半角转换的功能,晕死,只能网上找答案,终于,找到一个狼版以前发的回帖,完美解决。<br />代码如下:Sub SBC2DBC() ActiveDocument.Content.CharacterWidth = wdWidthHalfWidthEnd Sub 作者:laoyebin(Paladin.lao)博客园出处:h原创 2010-07-26 23:21:00 · 1211 阅读 · 0 评论 -
导出Outlook里的全球通讯录到Excel
<br /> <br />最近整理硬盘文件,发现一个Outlook里的全球通讯录到Excel的代码,但不知道这个文件是什么时候下的了,谨向原作者致敬。<br />注意:<br />1、这个代码是写在Excel的模块里的。<br />2、通讯录中联系人个数多的话,可能时间有点长<br /> <br />Const CdoAddressListGAL = 0Const CdoUser = 0Const CdoRemoteUser = 6#Const EarlyBind = TrueSub App原创 2011-02-16 11:29:00 · 4867 阅读 · 2 评论