红泥屋

摘要： 重现步骤：当你打开一个新文档，键入"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... 阅读全文