word-vba相关内容

使用表单内容中的名称保存文件

我正在尝试使用特定文件名保存Microsoft Word 2013文档. 我创建了一个客户填写的Word表单. 我正在使用以下内容:DEVELOPER->控件->纯文本内容控件DEVELOPER->控件->日期选择器内容控件DEVELOPER->控件->下拉列表内容控件 我想要一个宏以表单中字段之一的名称保存文档. 示例: 下面是可填写的内容字段. client r ..
发布时间:2020-05-13 01:37:56 其他开发

对于基于模板的文档,Word VBA事件仅触发一次

我有一个启用了宏的模板,该模板带有一个事件侦听器,用于侦听内容控件退出事件.这个想法是,当编辑文档标题页上的“标题"或“日期"内容控件时,我们会自动更新标题中的“标题"或“日期"内容控件,这样作者就不必输入两次相同的内容. 我的问题是,当我基于模板打开一个新文档时(右键单击模板=>新建,或双击它),这些事件仅在退出内容控件的第一个实例时触发.我在抄送内部单击,在抄送外部单击,得到一个MsgB ..
发布时间:2020-05-13 01:37:23 其他开发

使用VBA创建Word或XML文档

我需要在Word 2003中使用VBA创建文档(约150个报告,信函),这些文档主要来自现有的代码段和本地数据库.然后,我需要更改这些代码段的特定部分,例如日期,词组,用户信息,& c.显然,我的程序中还会产生一些位. 当前,某些丑陋的旧版VBA可以完成(或类似)相同的任务. (嵌套的IF和FOR,以及200多个文本框,全称为TextBox#)它可以在某些时候完成工作,并通过向Word应用程 ..
发布时间:2020-05-13 01:37:13 其他开发

VBA解决方案,用于快速重命名活动Office文档文件(Word,Excel,PowerPoint)

在Microsoft Office Suite应用程序(Word,Excel,PowerPoint)上工作时,通常需要重命名文件.通常,“文件>另存为"允许重命名文件,但由于原始文件仍保留在那里并且没有同时删除原始文件的选项,因此还会创建重复项.尽管目前正在实践中使用此选项,但是为了快速方便地重命名而不重复复制同一文件,当前可用的选项是不够的.关闭文件,记住文件名,然后将该文件定位在驻留的特定目录 ..
发布时间:2020-05-13 01:36:48 其他开发

将.txt文件的文件夹导入到Word文档中

关于将.txt文件的文件夹导入到excel中,我发现很多,但是对于将.txt文件导入到word中,却发现不多.我正在尝试让我的宏打开特定文件夹中的所有.txt文件,并将它们导入到单个Word文档中,每个.txt文件都有自己的页面.这是我到目前为止(在网上找到的)代码: Sub AllFilesInFolder() Dim myFolder As String, myFile As S ..
发布时间:2020-05-13 01:36:37 其他开发

使用Word VBA从Word中的Excel文件复制数据

有人可以使用简单的代码来帮助您使用Word VBA将数据从Excel文件导入到Word文档中吗? 解决方案 请参见下面的代码,这在大多数应用程序中应该很有用 Sub InsertEventData() 'inserting just the used data from an excel sheet Dim ExcelProgram As Object Dim EventFi ..
发布时间:2020-05-13 01:36:31 其他开发

在另存为对话框中更改默认文件名

我试图根据内容控件的内容在"Save As"-对话框中更改建议的文件名. 我的理解是Word在SaveAs对话框中提出了文档属性"Title". 在一个空文档中,我创建了一个内容控件(仅文本),并将以下代码放在“此文档"中. Private Sub Document_ContentControlOnExit(ByVal objCC As ContentControl, _ ..
发布时间:2020-05-13 01:36:21 其他开发

VBA Word的重复删除无法有效运行

我有一个程序可以删除重复项,并且一切正常.只是冻结了大数据集,即1到250万个字. 我的方法有什么问题?有更好的吗? Sub DeleteDuplicateParagraphs() Dim p1 As Paragraph Dim p2 As Paragraph Dim DupCount As Long Dim StartTime As Double Dim SecondsElapse ..
发布时间:2020-05-13 01:36:19 其他开发

如何用MS Word中的一些计算替换括号中的数字

我在MS字词中插入新的引用时,要替换一些序列号,例如MS字中的[30] [31] [32] ...到[31] [32] [33] ...文章的中间.我没有在GUI中找到解决方法,所以我尝试使用VBA进行替换.我在堆栈溢出中发现了类似的问题: “> MS Word宏可增加Word中的所有数字文档 但是,这种方式有点不方便,因为它必须在其他位置生成一些替换数组.我可以用正则表达式和MS W ..
发布时间:2020-05-13 01:36:12 其他开发

是否有VBA语法高亮显示用于打开和关闭循环以及if语句?

很抱歉,以前是否有人问过这个问题,但是我似乎找不到任何信息.我正在使用VBA来自动执行Word文档,并且我有大量的代码块,其中包含大量的"if else"语句,"do while"循环和"with"语句,这些语句都嵌套在一起. 当我使用其他语言和其他IDE进行编程时,通常可以单击开头的"if"或"while"括号,并获得突出显示的结尾括号.这使得跟踪所有内容变得容易得多. VBA for W ..
发布时间:2020-05-13 01:36:04 其他开发

需要在MS Word中捕获当前滚动位置(而不是光标位置)

我需要在Word文档中获取当前滚动位置(我认为这是正确的用语;即,我的虚拟镜头指向文档的位置,而不是光标的位置),以便在运行宏时最后我可以回到那个位置. 我编写了一个宏,该宏从当前光标位置向后搜索专利申请部件号,将候选的下一个可用部件号确定为前一个max +1,然后搜索出现在光标下方的数字排序列表,以查看是否候选零件编号与下一个使用的编号相冲突,如果确实如此,则将其添加到候选零件上,然后再次 ..
发布时间:2020-05-13 01:35:35 其他开发

在Word文件中查找章节标题,并使用VBA将单个段落复制到新的Word文件中

由于没有人能够帮助我解决我之前在这里发布的问题(链接在下面),因此我现在正尝试通过VBA解决该任务. 查找Word文件中的标题,然后使用python将整个段落复制到新的Word文件中 为了简要地回顾一下,我有大量的word文件,我希望将每个word文件减小为可读性更好的文件.在每个文件中,一个标题会多次出现,并始终设置为“标题2".我正在寻找一个在文档中多次出现的特定标题,我想将这些章 ..
发布时间:2020-05-13 01:35:21 其他开发

如何按位置顺序从Word文档到数组获取所有书签元素的列表:VBA/Word

我想获取Word文档中的所有书签,然后将它们推到数组中.书签必须按其在文档中的位置而不是名称进行排序. 例如这是文档中的书签列表, [bm_s] (header) [bm_h] (title) [bm_a] (footer) 我希望书签保持其顺序,以便数组如下所示 array {bm_s, bm_h, bm_a, } 例如看起来应该不是这样, array {b ..
发布时间:2020-05-13 01:35:09 其他开发

MS Word内容控件有哪些好处?

Office 2007带来了一个称为“内容控件"的新功能. 我需要对此进行评估,看看这是否可以解决正在研究的问题. 由于时间有限和我对Office-interop-pain的普遍不屑, 有人可以总结一下好处吗? 是否可以定义自定义内容控件? 程序员一词(如果有的话)在哪里闲逛:)? RTFMsdn链接也欢迎. 到目前为止,我(从一些截屏视频中)看到,现在可以定义 -模板 ..
发布时间:2020-05-13 01:35:01 其他开发

VBA:将Excel数据读入Word

我正在制作一个简单的表单,用于从excel工作表中提取数据,例如姓名,出生日期和地址.并将其插入我的文字表格中,每次我都会做20-30张纸,因此我认为它可以保存复印件和复印件.粘贴时间. 我试图遵循本教程: http://www. makeuseof.com/tag/integrate-excel-data-word-document/ 并创建了一个带有简单标签m_name的按钮,用于标记成 ..
发布时间:2020-05-13 01:34:45 其他开发

VBA字词:我想找到一个词组,选择它之前的词,并用斜体显示文本

我在使用VBA命令查找某个短语,然后选择其前面的1个或2个单词,然后将整个内容斜体时遇到麻烦. 我能够彼此独立地使用Selection.Find,Font.Italicise和wdExtend命令,但是当我将它们组合起来执行此任务时,宏就会崩溃.有帮助吗? Selection.Find.ClearFormatting With Selection.Find .Text = ..
发布时间:2020-05-13 01:34:34 其他开发

如何使用VBA遍历MS Word中的每个字母?

我大约有100个Word文档,其中包括外国名字的音译.这些文档的作者使用了一种叫做 e2 的特殊字体,其中包含大约十二种特殊音译字符(所有这些字符都可以使用Microsoft Sans Serif字体获得). 我想遍历文档的每个字母,每当.Font = "e2"我想遍历十二个字母(很容易猜出它们是什么)并将其替换为Microsoft Sans Serif等效语言.但是我不知道如何通过字母循环 ..
发布时间:2020-05-13 01:34:24 其他开发