![](https://img-blog.csdnimg.cn/20201014180756925.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VB、VBA、Office
文章平均质量分 82
fengrx
认真!谦虚!真诚!守信!
展开
-
VB6.0调用WEBService问题
问题描述:在用非.NET客户端调用WebService中,按照使用Soap Toolkit中的指导实现起来很简单,但在实际使用过程中却发现一个问题。假如Webservice提供的方法是:int SimpleMath.Add(int n1,int n2),返回值是n1+n2, 但按照soap toolkit提供的例子,使用VC进行调用,得到的返回值却是0。记录下我的解决过程,备忘。转载 2009-06-05 10:12:00 · 6113 阅读 · 0 评论 -
VB6实现枚举进程所拥有的特权(增强版)
原帖:http://blog.csdn.net/Modest/archive/2008/03/10/2162170.aspx 本文在原文基础上增加了两个转换函数LookupPrivilegeName和LookupPrivilegeDisplayName,从而可以完美的输出权限的名称和权限的描述。:::::::::::::::::::::::::::::::::::::::::::::转载 2009-05-21 19:59:00 · 872 阅读 · 0 评论 -
VB6实现枚举进程所拥有的特权
原帖:http://blog.csdn.net/Modest/archive/2008/03/07/2156291.aspx 特权嘛,当然就是特殊权限了。至于什么是进程的特殊权限,请参考MSDN。提升进程权限的方法请参考笔者的《Win32汇编实现提升进程Debug权限的两种方法》一文,可以很容易修改成提供进程其他权限的程序。本文的内容是枚举进程中所有的特殊权限,以数组的方式返回权限值。每个转载 2009-05-21 19:58:00 · 904 阅读 · 0 评论 -
CLSID与ProgID彼此间相互转换
原帖:http://blog.csdn.net/Modest/archive/2006/11/01/1361160.aspxOption ExplicitPrivate Type UUID Data1 As Long Data2 As Integer Data3 As Integer Data4(7) As ByteEnd TypePriva转载 2009-05-21 19:50:00 · 1704 阅读 · 0 评论 -
VB6中使用32位图标(第二版)
原帖:http://blog.csdn.net/Modest/archive/2008/05/22/2468937.aspx 本版添加了hIcon属性和SetFormIcon方法,顾名思义SetFormIcon就是实现vb6窗体的32位Icon应用。实现起来非常简单,发一个消息足矣。hIcon属性会根据图标索引返回图标句柄,用这个句柄还可以实现32位Icon在托盘中的美化应用。:::转载 2009-05-21 19:42:00 · 1290 阅读 · 0 评论 -
通过URL从Temporary Internet Files得到本地文件路径的函数
原帖:http://blog.csdn.net/Modest/archive/2008/06/04/2510834.aspxOption ExplicitPrivate Declare Function GetUrlCacheEntryInfo Lib "wininet.dll" Alias "GetUrlCacheEntryInfoW" (ByVal szUrlName As Long,转载 2009-05-21 19:41:00 · 783 阅读 · 0 评论 -
替换exe图标的源码
标准模块1 Option ExplicitType DIB_HEADER Size As Long Width As Long Height As Long Planes As Integer Bitcount As Integer Reserved As Long转载 2009-05-21 19:36:00 · 1591 阅读 · 0 评论 -
WMI 应用——用 VBScript 编写类似 ipconfig 的工具
WMI 应用——用 VBScript 编写类似 ipconfig 的工具 作者:终南 li.zhongnan@hotmail.com> 在Windows下,WSH的功能是非常强大的。WMI 则提供了非常丰富的接口,可以与系统进行交互,获取系统相关信息,并能对系统中的设备和对象进行有效管理。Windows中的ipconfig 工具提供了与系统网络设备的接口,WMI转载 2009-05-09 13:36:00 · 821 阅读 · 0 评论 -
程序实现修改宏安全性设置-关于注册表的操作 (VBA)
功能简介:我们设计的一些宏代码,往往需要利用代码对代码进行操作,这在 WORD 中需要进行宏安全性的/可靠来源:信任对于 Visual Basic 项目的访问,利用以下代码可进行直接修改,当然运行此代码的前提是宏安全性为低. Private Sub Document_Open() On Error Resume Next System.PrivateProfileSt原创 2009-05-06 17:01:00 · 4014 阅读 · 1 评论 -
画直角坐标系 (VBA)
功能简介:本程序可以实现 WORD 中绘制直角坐标系,原点以页面左上角为绝对位置,根据用户需要进行定位,并可实现无刻度、二分度、和八分度 ^The Code CopyIn [标准模块-模块 1]^ * -------------------------------------------------------------------------- Public BeforeSh原创 2009-05-06 16:52:00 · 3717 阅读 · 0 评论 -
VB6中判断用户是否按下了InputBox的取消按钮
原帖:http://blog.csdn.net/Modest/archive/2006/10/21/1344314.aspxPrivate Sub Command1_Click() Dim str As String Dim Cancel As Boolean str = InputBox("") Cancel = Not CBool(StrPtr(st转载 2009-05-21 19:30:00 · 3344 阅读 · 0 评论 -
vb6内嵌汇编实现图像快速对比
vb6内嵌汇编实现图像快速对比,1024x768的两个图像对比最快仅用时4ms (XP/2.4G/512M)。;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: vb6内嵌汇编实现图像快速对比 Programmed by 魏滔序 WebSite: http://www转载 2009-05-21 19:39:00 · 2075 阅读 · 0 评论 -
通过IEmptyVolumeCacheCallBack接口清理IE缓存的类
原帖:http://blog.csdn.net/Modest/archive/2006/10/17/1338391.aspx在IE缓存目录中积累着很多的文件, 这些文件虽然可以提高浏览旧网页的速度,但是对磁盘空间的占用也与时俱进。对于爱“干净”的人,总觉得有点得不偿失。下面就贴出清理缓存的源码,清理缓存的方法有很多,这里介绍的是通过IEmptyVolumeCacheCallBack接口实现转载 2009-05-21 19:55:00 · 865 阅读 · 0 评论 -
支持多曲线的历史曲线控件源码
原帖:http://blog.csdn.net/Modest/archive/2007/07/27/1711749.aspx功能:可以设置是否显示值刻度、网格、曲线、时间刻度等,可以定义背景颜色、网格颜色、刻度颜色、曲线颜色等,可以设置网格大小、刻度间隔、曲线进展长度,最重要的是可以支持多曲线运行。 名称:GraphVERSION 5.00Begin VB.UserContro转载 2009-05-21 19:48:00 · 1873 阅读 · 0 评论 -
ActiveXDLL免注册调用的方法(改良自阿国哥的源码)
原帖:http://blog.csdn.net/Modest/archive/2007/09/01/1767950.aspx使用方法:Dim pDll As Long 记录Dll,用来最后完美释放Dim Update As Update.Handle 要实例化的对象Set Update = LoadObjectByName(App.Path & "/Update.dll", "转载 2009-05-21 19:46:00 · 2786 阅读 · 1 评论 -
可替代VB自带的Timer控件的Timer类
原帖:http://blog.csdn.net/Modest/archive/2006/10/23/1346175.aspx用这个类可以替代VB自带的Timer控件,这样就不用在无窗体的项目中仅为了使用Timer而多加一个窗体了。我一般用在ActiveXexe中用来分离系统控制权,用Timer的好处是避免控制权死锁,这样也就模拟出了多线程(实际上是多进程),能给用户更好的体验。代码如下:转载 2009-05-21 19:20:00 · 1046 阅读 · 0 评论 -
VB中实现GIF嵌入到RichTextBox
原帖:http://blog.csdn.net/Modest/archive/2006/04/12/660890.aspx 实际上还可以嵌入其他组件,比如Windows Media Player等,下面以比较成熟的QQ的ImageOle为例。需要组件:ImageOle.dll 在QQ的目录下找,如果非XP系统则还需要GdiPlus.dll。OleLib.tlb 下载地址转载 2009-05-21 19:56:00 · 1131 阅读 · 0 评论 -
判断URL是否在IE缓存中,并仅删除该URL
原帖:http://blog.csdn.net/Modest/archive/2006/10/17/1338446.aspxOption ExplicitPrivate Declare Function GetUrlCacheEntryInfo Lib "wininet.dll" Alias "GetUrlCacheEntryInfoA" (ByVal sUrlName As String转载 2009-05-21 19:54:00 · 975 阅读 · 0 评论 -
实用的内存块操作类(vb源码)
原帖:http://blog.csdn.net/Modest/archive/2006/10/20/1342718.aspxOption ExplicitPrivate Declare Function VirtualAlloc Lib "kernel32" (ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocation转载 2009-05-21 19:53:00 · 797 阅读 · 0 评论 -
拨号、断网、枚举连接名称,判断是否在线、连接方式
原帖:Option Explicit拨号/断网Private Declare Function InternetDial Lib "wininet.dll" (ByVal hwndParent As Long, ByVal lpszConnectoid As String, ByVal dwFlags As Long, lpdwConnection As Long, ByVal dw转载 2009-05-21 19:52:00 · 756 阅读 · 0 评论 -
VB6中使用32位图标
原帖:http://blog.csdn.net/Modest/archive/2008/05/06/2399774.aspx:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: VB6中使用32位图标 Programmed by 魏滔序 WebSite: http:转载 2009-05-21 19:43:00 · 926 阅读 · 0 评论 -
取得汉字笔画数(WORD 版) (VBA)
注意此版必须结合 EXCEL 的汉字笔画数据库("HzBhJsBiao.xls"),否则不能单独运行。 功能简介:一次性取得任意选定数量的简体汉字(GB2312字符集 6763个)的笔画数。 Sub GetBhshu() Dim xlObj As Excel.Application, Wk As Excel.Workbook, C As Excel.Range Dim原创 2009-05-06 16:51:00 · 4159 阅读 · 2 评论 -
语音朗读(VBA)
适当调用OFFICE各成员间的功能为WORD所用,取长补短.WORD中有语音录入功能,而 EXCEL 中有语音朗读功能,互为弥补,可至大全.(如要中止,可按下 CTRL+BREAK) Sub SpeakText() Dim Sp As Excel.Application Set Sp = New Excel.Application Sp.Speech.Spe原创 2009-05-06 16:50:00 · 4837 阅读 · 0 评论 -
在文档中插入根号的两个简洁代码 (VBA)
Sub InsertReq1() 方法一 Dim Insertvalue As String On Error Resume Next With Selection If .End > .Start Then Insertvalue = IIf(Selection Like "*" & Chr(13), R原创 2009-05-06 16:47:00 · 1974 阅读 · 1 评论 -
查找与替换的基本代码用法之一(VBA)
Sub Example() With ActiveDocument.Content.Find .ClearFormatting 清除格式设置 .Font.Name = "华文细黑" 查找的字体格式 With .Replacement 替换条件 .ClearFormatting原创 2009-05-05 18:06:00 · 3875 阅读 · 2 评论 -
认识 WORD 中的对话框(Dialog) (VBA)
前言:WORD 中的内置对话框,提供了强大的人机对话功能,合理适当地应用对话框,可以极大地方便我们的代码过程和效论.另外,从本代码中,没有使用 FOR EACH –NEXT循环,是因为在实际过程中,还可以通过INDEX直接访问该对话框,而不必去记很长的 WdWordDialog 常量名(当然会有提示),另外,WORD VBA 帮助文件中提供的 WORD 内置对话框的数量也有出入,说明部分原创 2009-05-05 18:12:00 · 3381 阅读 · 0 评论 -
判断光标所在行是否有手动分页符(VBA)
Sub Example() Dim MyRange As Range, SelStart As Long, SelEnd As Long, StSel As Range On Error Resume Next Application.ScreenUpdating = False With Selection Set StSel原创 2009-05-05 18:12:00 · 2222 阅读 · 0 评论 -
根据预定义段落进行段落样式的设置和插入目录(VBA)
* +++++++++++++++++++++++++++++++++++++++^The Code CopyIn [ThisDocument-ThisDocument]^* --------------------------------------------------------------------------功能简介:对于网上复制的一些非正规编排的文档,没有大纲级原创 2009-05-05 18:03:00 · 1583 阅读 · 0 评论 -
段落样式与格式的应用(VBA)
功能简介:由于手动录入的段落编号不能被 WORD 所识别,为以后的样式与格式的设置以及目录索引等带来一系列的问题,本代码即是将其转换为指定样式的过程. * +++++++++++++++++++++++++++++++++++++++^The Code CopyIn [ThisDocument-ThisDocument]^* ----------------------------原创 2009-05-05 18:02:00 · 1969 阅读 · 0 评论 -
以指定字符重新划分段落并插入时间序列数(VBA)
Sub CreateParagraph() Dim I As Long, N As Integer On Error Resume Next 忽略错误 Application.ScreenUpdating = False 关闭屏幕更新 With ActiveDocument 将文档中所有段落标记删除原创 2009-05-05 18:01:00 · 1120 阅读 · 0 评论 -
返回所选(当前)段落指定行号的文本内容一(VBA)
注意事项:第一个代码可以返回多段落选定区域的行号;第二个代码可以返回所选内容的第一个段落中的指定行号的文本内容. Dim LineCount As Integer Sub LinesCount() Dim l As String On Error Resume Next 如果光标未选中内容则将第一个光标所在段落选中 If Select原创 2009-05-05 18:14:00 · 4285 阅读 · 0 评论 -
Word Vba技巧总结
确定文本是否被选定:If Selection.Type = wdSelectionIP Then MsgBox "Nothing is selected"word中选择单元格:Selection.SelectCell移动到选定内容之后:Selection.Collapse Direction:=wdCollapseEnd定位到Word中最后一行:Selection.EndKey unit:=wdS原创 2009-04-17 14:45:00 · 5114 阅读 · 0 评论 -
永中Office二次开发_JAVA的二次开发1
概述:永中Office是使用JAVA开发,所以直接使用JAVA进行二次开发比较方便,但由于在客户端运行时一般使用VB、VC去调用,所以有必要将其封装成COM组件,以便其它语言调用。 今天先将JAVA的二次开发的部分调用实例进行说明: 1.创建空的文档 public static Document createBlankWord() { Application.getIns原创 2009-03-31 08:32:00 · 5973 阅读 · 5 评论 -
查找与替换的基本代码用法之四-全文件夹替换 (VBA)
功能简介:批量多文件(全文件夹)的多文本一次性替换操作。 运行本程序后,先输入需查找和与之对应的替换的文本,然后点击“选择文件夹”,您可以找到指定的文件夹中的部分或者所有文件,注意,您需要全选文件(CTRL+A),或者使用 SHIFT/CTRL 配合鼠标键选取多个文件),确定后自动进行批量替换。 Private Sub Document_Open() Application.Win原创 2009-05-05 18:09:00 · 2922 阅读 · 0 评论 -
修改 WORD 命令 (VBA)
在WORD中,我们可以通过修改WORD命令的方法,来方便地为WORD控件指定用户自定义的过程,完成或者转移(禁用)相应的内置方式.它的原理是利用相应宏名来置换过程的方法.在下面的三个部分中,我们可以体会其中的相同点与不同点. Sub Example() Dim i As CommandBarControl For Each i In Application.Com原创 2009-05-05 18:13:00 · 1661 阅读 · 0 评论 -
返回打印设置,取得所有打印页数(张数) (VBA)
修改 WORD 命令,FILEPRINT,可用于统计打印机或者通过该模板打印了多少纸张Sub FilePrint() Dim MyDialog As Dialog, Ps() As String, Pl() As String, PPcount As Integer, PrintSel As String Dim S As Integer, N As Integer原创 2009-05-06 16:46:00 · 8894 阅读 · 4 评论 -
Word 中的中文倒字代码(VBA)
功能简介:批量转换文字方向,使其产生倒字效果(注意不是铅印的反字,效果如:白日依山)Option Compare Text 不区分大小写 Sub DaoZi() Dim i As Range, Ft As String, MyRange As Range On Error Resume Next Application.ScreenUpdating = F原创 2009-05-06 16:44:00 · 2766 阅读 · 0 评论 -
分页保存-保留格式设置的代码(VBA)
功能简介:将主文档的每一页保存为一个文档,并保留中的页面设置,页眉设置,和字体样式等. Sub SaveAsPage() Dim PageCount As Integer, StartRange As Long, EndRange As Long, MyRange AsRange Dim Fn As String, MyDoc As Document, MyHead原创 2009-05-06 16:41:00 · 1806 阅读 · 0 评论 -
选定文档任意页(VBA)
功能简介:本示例是利用 Inputbox/数组/ActiveDocument的属性方法,在不移动插入点的情况下进行的选定,运行速度更快,代码更简洁. Private Sub Document_Close() On Error Resume Next Application.CommandBars("Text").Controls("AnyPagesSelect").De原创 2009-05-06 16:40:00 · 1220 阅读 · 0 评论 -
选定当前页文本(VBA)
功能简介:有时需要选定光标所在页的整页文本,此代码将以右键方式作用(右击/选定当前页命令) Private Sub Document_Close() On Error Resume Next Application.CommandBars("Text").Controls("选定当前页").Delete 恢复原有菜单 End Sub -------原创 2009-05-06 16:38:00 · 1783 阅读 · 0 评论