如何使用Word VBA删除命令按钮?
我有一个Word文档，其中包含一个名为“更新"的命令按钮. 如何使用VBA删除此按钮? 解决方案 这应该做到: For Each o In ActiveDocument.InlineShapes If o.OLEFormat.Object.Name = "update" Then o.Delete End If Next
..
word-vba相关内容
在单词中分配偶数奇数页码
我正在尝试为word写一个vba宏，其中文档将具有页码，但是奇数页码的对齐方式将与偶数页不同.我目前正在尝试的代码正在更改奇数页和偶数页的对齐方式，这是不希望的 ActiveDocument.Sections(i).PageSetup.OddAndEvenPagesHeaderFooter = False ActiveWindow.ActivePane.View.SeekVi
..
如何确定文档是否为模板?
我试图确定文档是简单文档(.doc，.docx，.docm)还是模板(.dot，.dotx，.dotm). 我知道有几种方法可以解决这个问题(例如检查文件扩展名)，但是我正在寻找最“安全"的方法. 我目前的猜测是: Private Function isTemplate(ByVal Doc As Document) As Boolean isTemplate = (Doc
..
运行宏菜单中未显示宏
我开始学习VBA，但我不明白为什么从互联网复制粘贴的某些宏没有出现在运行宏菜单(Alt-F8)中. 下面有2个宏，但仅显示第二个宏.为什么?以及我该如何解决? Sub Test1(ByVal Target As Hyperlink) '... End Sub Sub Test2() '... End Sub 解决方案 带有参数的宏在“宏"列表中不可用，因
..
从PC到Mac转换MS Word 2002模板
我必须转换数百个MS Word 2002模板(在PC上)才能在Macintosh上工作.我必须评估Word模板是否可以在Mac的iWork Pages和Microsoft Word中运行. 我无法转换以下内容: Word VBA WordBasic代码 Visual Basic 这里有人可以提供任何建议吗? 解决方案 iWork很难，但是Word for Mac是可行
..
从具有合并单元格的表中删除范围
基本上，我要完成的工作是:从表中删除光标从表中到表末的所有行. 问题在于此表包含垂直合并的单元格，因此当我尝试执行以下操作时: For i = Selection.Tables(1).Rows.Count To Selection.Cells(1).RowIndex Step -1 Selection.Tables(1).Rows(i).Delete Next 它抱怨无法访
..
如何检测(水平)合并单元格的Word表?
当Word表包含水平合并的单元格时，首先访问aTable.Columns.First或对aTable.Columns执行For Each将导致错误. 有没有一种方法可以确定一个表是否包含水平合并的单元格而不会导致错误? 我已阅读确定Word单元格是否合并 ，但这是关于检测特定Word表单元是否已合并，而不是整个表是否具有任何合并的单元. 解决方案 在这篇文章中找到了参考到Tab
..
MS Word VBA-查找单词并更改其样式
我正在尝试查找MS Word文档中关键字的所有实例并更改其样式.关键字存储在数组中，我只想更改特定单词的样式.理想情况下，这会在我键入内容时发生，但这并不重要. 尝试1-基于记录宏并更改搜索字词 Sub Woohoo() Dim mykeywords mykeywords= Array("word1","word2","word3") For myword= LBound(mykey
..
Word宏，存储当前选择(VBA)
我有一个Word文档，其中包含大约4000个表单域，之后我必须将它们导出到数据库中.问题在于4000个字段中的“书签"字段中都没有信息，因此我无法获取存储在其中的信息. 我正在尝试创建一个宏来帮助编写书签(FormField.Name)的过程，但是无法正确完成.问题是我想更改用户选择中包含的FormFields的名称，并且仅更改它们.我设法解决了这个问题: Sub Macro2()
..
将MS Word文档中每个句子的第一个字母加粗
我想在MS Word文档中将每个句子的第一个字母加粗.什么是完成此任务的好方法? 解决方案 在VBA中非常简单明了 Sub BoldFirstLetterInSentence() Dim ad As Document Set ad = ActiveDocument Dim sen As Range For Each sen In ad.Sentences sen.Words.
..
检测何时将数据添加到文档中，例如字符或空白
有没有一种方法可以检测用户何时使用VBA按下Microsoft Word中的键.我已经搜索了一种可以做到这一点的方法.我还搜索了可解决此问题的方法，例如检测插入点何时移动或检测何时在Word文档中放置新字符，但是我一无所获.我当前正在使用appWord_WindowSelectionChange(ByVal Sel As Selection)，但是在您键入时无法检测到. 我会很高兴有人向我展
..
保存事件后触发MS Word宏
我的MS Word 2007模板的页脚中带有文件名.用户将打开模板并执行“另存为..."以制作其文档. 我希望页脚中显示的文件名立即更新为新文件名. 是否存在AfterSaveEvent或可用作挂钩来启动我的VBA脚本的东西? 还是有更简单的方法? 解决方案 只需创建一个这样的宏(我相信，如果将它包含在Normal.dot中，效果会更好) Sub FileSaveA
..
如何通过单击Word 2010复选框运行VBA宏?
当我单击 Word 2010 中的复选框时，我想运行宏. 请注意，我既不需要“旧版表单"复选框，也不需要"ActiveX"复选框.它们只在某些“受保护的文档模式"下工作且外观丑陋，但是我想要新的可以在编写文档时选择和取消选择，这对我来说看起来更好. 我知道，使用旧版表单，您可以在输入表单元素时直接插入一个宏，然后将其留出，然后可以像这样在VBA中捕获事件 Sub Checkbox
..
以单词形式保存为文件名
在下面的代码中，文件名是硬编码的，但是我希望用户能够选择它. 我正在阅读有关GetSaveAsFilename的信息，但使用它时出现错误:“未找到方法或成员". fileSaveName = Application.GetSaveAsFilename _ (fileFilter:="Excel Files (*.txt), *.txt") 这是为Word 2010编写的.我
..
如何在Word-VBA中跳转到书签并插入文本?
我试图用一个非常简单的word宏创建一个Word文档.宏会搜索我放置在文本中的书签，然后在该位置添加一个日期，即距未来2周的日期. 但是当我从模板创建新文档时，我一直找不到书签.我经历了很多次，有时书签在那里，有时在那里，但不允许您单击“转到". 如何使它正常工作?我在Document_New()事件中添加了一些代码，但是一直在报告未找到书签. 由于我的Web服务器无法处理.do
..
Word VBA强制另存为.docm
我最终清理了整个公司使用的Word文档中的混乱情况.这是一个需要处理大量宏的文档，需要专门将其另存为.docm.我担心它会将“另存为" -d用作除.docm以外的名称，但是我似乎找不到一种方法来限制“另存为文件选择器"或在仍使用时替换保存的扩展名VBA. 我该如何实现? 编辑:我尝试过的一些方法都徒劳无功: 这是正确的主意，但实际上并没有在保存 https://answers.micr
..
使用VBA删除Word中的空段:并非所有空段都被删除
我写了一个宏来删除文档中的所有空段，但是它表现出奇怪的行为:如果文档的末尾有许多空段，则将其中大约一半删除.反复运行宏将逐渐消除空白段落，直到仅剩下一个空白段落.即使有边界条件，我也需要一行代码来删除最后一段，但是我仍然不明白为什么最后只删除了一半的空白段.谁能解释为什么会这样以及如何纠正这种行为?顺便说一句，我在网上搜索并看到了许多有关检测段落标记的帖子(^ p，^ 13等)，但只有搜索vbCr
..
在单词中搜索单词，但忽略表格
我下面有一个很棒的宏 搜索单词(在excel文件中列出) 复制每个实例 将其与原始文档中的位置一起粘贴到新的word文档中 这是由不同的人创建和修改的，我的确很棒！！我想知道的一件事是: 如果要搜索的Word文档中有表格，您可以使宏忽略表格吗?还是最好说“如果找到了单词并且在表中，请忽略此实例，然后再次搜索文档" 在我看来，后者将有更多不必要的迭代. 我设法找到了
..
宏被单词机密性禁用
我正在尝试创建一个宏，该宏会弹出一个包含用于特定操作的按钮的工具栏，但是代码可以正常工作，并且我测试了每一行，但是当我运行它时，出现了来自单词PoPUP的消息并阻止我运行此消息，不要为什么 PS:我尝试了Google和论坛中的所有Signle解决方案 我正在使用Word 2016和Word 2007 这是我的代码 Sub AddNewMB() Dim myCommandBar As C
..
如何删除开始和结束VBA单词之间的文本
如何删除起始词和结束词之间的文本. 我有大约100万个单词的大量文本摘录，我想创建一个VBA脚本，该脚本将删除所有不需要的文本. 幸运的是，我有关键词可以查找并删除这些关键词之后直到我要输入的特定端点的所有文本. 我需要一个程序，该程序可以找到这些关键字并将其分别用作起始词，然后将结束词用作结束位置，并删除它们之间的所有文本.如果该单词位于段落中，我想删除该段落. 下面的程
..