摘要:
重现步骤:当你打开一个新文档,键入"TEST TEST TEST "后保存,你会发现Words个数不是3而是5。(在Word2010上已经重现)。欢迎访问《许阳的红泥屋》 阅读全文
摘要:
首先,我们要在工作表没有处于被保护状态前设定好Outlining Group。如图:然后运下以VBA工程来保护这个Worksheet。Sub test() Dim xlSheet As Worksheet Set xlSheet = ActiveWorkbook.ActiveSh... 阅读全文
摘要:
如果在Microsoft Project 使用以下代码:Sub gallery_MSN_getItemCount(control As IRibbonControl, ByRef returnedVal) On Error Resume Next returnedVal =... 阅读全文
摘要:
原始文件如下:代码如下:using System;using System.Collections.Generic;using System.Linq;using System.Text;using log4net;using System.Windows.Forms;using DocumentF... 阅读全文
摘要:
Sub test() ActiveDocument.Tables(1).Rows(2).Range.Font.Hidden = TrueEnd Sub文档中的第一个表格的第二行将被隐藏。欢迎访问《许阳的红泥屋》 阅读全文
摘要:
Sub InsertQuickPart(strPartName As String) Dim objOL As Outlook.Application Dim objDoc As Word.Document Dim objWord As Word.Application Di... 阅读全文
摘要:
应为在PowerPoint下我们要用到事件所以我们只能通过UserForm或Class来处理相应的事务。下面是一个极简单的例子,具体事务需大家扩充。Private WithEvents app As ApplicationPrivate flag As BooleanPrivate Sub app_... 阅读全文
摘要:
Imports DocumentFormat.OpenXml.PackagingImports System.Windows.FormsImports DocumentFormat.OpenXml.WordprocessingImports DocumentFormat.OpenXmlModule ... 阅读全文
摘要:
以下代码是一个VBA Form中的,用来迭代CustomXmlDocument。Private Sub TreeView1_BeforeLabelEdit(Cancel As Integer)End SubPrivate Sub UserForm_Activate() Dim oCustXML... 阅读全文
摘要:
有用户咨询一下问题:Sub edtMastr() Dim strNewFoot As String strNewFoot = InputBox(prompt:="Enter the revision number.", _ Title:="Revision", De... 阅读全文