他的首页
他的馆藏
他的动态
馆友反馈
关于他
| 共 16 篇文章 |
|
19、使Windows开始屏幕保护： *API函数声明 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Const WM_SYSCOMMAND = &H112& Const SC_SCREENSAVE = &HF140& 注释：调用 Di... 阅1 转自JT_man 公众公开 16-08-03 16:06 |
在程序中利用VBA编写控制Word域的功能。一般，用户是先建立好一些Word文件模板，然后利用所提供的应用程序功能向Word文件模板中插入域，然后用该域对应的值取代域值，这样就达到了向Microsoft Word文件中插入数据的作用。建立Word应该对象及文档对象,并打开文件。打开Word文件.并使处理界面位于Word最顶端，适当调整Word位置，关闭Word其它功能... 阅2703 转18 评0 公众公开 12-10-24 09:02 |
用户可以使用属性，有时候也叫做访问者，从对象层次中最高一级的Application对象向下访问到较低级的对象(Document对象、Window对象、 Selection对象等等)。在许多对象都可以使用Range属性－例如，Paragraph对象、Bookmark对象、Endnote对象以及Cell对象－Range属性用来返回一个Range对象。Find对象可以在Selection对象或Range对象中使用(根据Fi... 阅2743 转35 评0 公众公开 12-09-20 14:23 |
Private Sub IC_Click()Dim B As ByteDim index As DoubleDim fso As FileSystemObject ''要先添加引用"Microsoft Scripting Runtime"ShowOpenFilename = dlg.If Len(Filename) = 0 Then Exit SubSet fso = CreateObject("Scripting.FileSystemObject")CopyFile Filename, Filename &".bak", Tru... 阅51 转自你喜欢那个 公众公开 12-09-14 12:24 |
MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtendSelection.MoveRight Unit:=wdCharacter, Count:=1Selection.Sub setpicsize_2() ''设置图片大小为固定值Dim n ''图片个数On Error Resume Next ''忽略错误For n = 1 To ActiveDocument.InlineShapes.Count ''InlineShapes类型图片ActiveDocument.Inli... 阅18886 转169 评1 公众公开 12-08-28 10:06 |
用PPT中的VBA实现课件中的交互功能 - 扑奔PPT网用PPT中的VBA实现课件中的交互功能。属性设置同复选框。在幻灯片适当的地方插入一命令按钮，修改其Caption属性为"重新选择"，在编辑窗口中的Private Sub CommandButton1_Click()和End Sub语句间插入：说明：条件可以是Caption属性或value属性，书写方法为：控件名称（在VBA中的名称）.... 阅6 转自箫羌 公众公开 12-08-15 16:02 |
Word控件工具箱的使用和实例(多选题制作) word中的控件工具箱是做什么的，如何使用？Word控件工具箱是做什么的呢?word控件工具箱主要在VBA中窗体内使用，每个控件都是一个工具模块，具体功能通过设置属性和写入VB代码来实现。第二步，依次单击菜单栏中的"视图->工具栏->控件工具箱"命令，在弹出的控件工具箱中选中"复选... 阅12 转自冷太阳lxz 公众公开 12-03-05 22:18 |
