word-vba 第2页 - IT屋-程序员软件开发技术分享社区

在Word 2016中选择另存为时，VBA会生成默认文件名

我有VBA，在Word 2010中，当用户选择“另存为文件"选项时，它将在“另存为"屏幕中默认使用一个文件名. Word 2016(Office 365)具有一个不同的界面，该界面带有一个屏幕，用于在显示“标准"“另存为"对话框之前选择一个保存位置(OneDrive，此PC等)，该对话框似乎已破坏了代码以生成指定的默认文件名称. 代码(标题简化)为 Sub FileSaveAs() ..

发布时间：2020-05-13 01:57:47 vba ms-word office365 word-vba 其他开发

在Word中使用VBA查找和替换，我遇到的问题是，例如，如果我尝试将所有"John(space)Smith"实例替换为"John(non-breaking space)Smith"，则查找替换函数将所有"John(space)Smith"以及所有"John(non-breaking space)Smith"替换为"John(non-breaking space)Smith".在我使用它并留下曲目更 ..

发布时间：2020-05-13 01:57:20 vba replace ms-word find word-vba 其他开发

Word 2010:如何使用VBA将功能区按钮附加到模板

我想为Word 2010上的自定义功能区按钮分配一个宏，但只能用于特定的模板文件，以便仅当该模板已附加到我正在处理的文件上时，该按钮才会出现. 在我的办公室中，将有大约30个用户通过网络使用此按钮，因此，想法是将按钮存储在模板文件中将使该按钮可移植到其他用户，而无需我手动将其安装在每个用户的PC. 解决方案创建一个启用宏的模板文件(扩展名为.dotm). 使用 ..

发布时间：2020-05-13 01:56:51 vba ms-word word-vba ribbon 其他开发

部署具有格式样式的Dotm文件?

我为Word 2007/2010开发了一个小的VBA宏，它使用了一些格式样式(我不确定这是最好的翻译，在我的德语版本中称为Formatvorlagen.我的意思是适用于文本的样式，像标题). 该宏已部署到STARTUP文件夹中，并且基本上可以工作-但未加载格式样式-因此该宏无法找到它们. 所以我的问题是:如何将格式样式部署到Word?我可以覆盖normal.dot，但这是一个糟糕的解决 ..

发布时间：2020-05-13 01:56:36 vba ms-word add-in word-vba 其他开发

Microsoft Word VBA-如果单元格包含指定的字符串，则选择表

我在创建Microsoft-Word宏时遇到问题.这是我正在处理的宏.它可以成功选择Word文档中的每个表格. Sub FindSpecificTables() Selection.WholeStory Dim iResponse As Integer Dim tTable As Table 'If any tables exist, loop throu ..

发布时间：2020-05-13 01:56:01 ms-word word-vba 其他开发

在从右到左的MS-Word文档中将格式化的数字作为文本插入

我有sValA = 10/140/000字符串. 需要在从右至左文档中插入 10/140/000 作为文本. 当我在下面表演时 ThisDocument.Bookmarks("Temp_GrandTotal").Range.Text = sValA 它返回 000/140/10 任何帮助都将受到赞赏. 解决方案您可以添加UDF以通过交换字符交换零件.然后像这样 ..

发布时间：2020-05-13 01:55:22 vba ms-word word-vba right-to-left 其他开发

用户从下拉框中选择项目，单击按钮，然后所选项目填充表的最后一行

用Microsoft的话来说，我有一个3x3的表格，一个按钮和一个下拉列表. 当我按下按钮时，我希望第一列的最后一行充满所选的下拉列表项.然后，在其下面的表中添加一行. 目前，我什至无法将值填写到表格中. ActiveDocument.Tables(15).Rows.Last.Cells.Value = "Hello"返回错误.我该怎么办? 我设法选择了最后一行. Acti ..

发布时间：2020-05-13 01:55:12 vba ms-word word-vba 其他开发

从Word文件中提取特定文本

我有一个Word文档，其字体大小为14和18，文档为1500页. 我必须对字体14和18进行特定的更改，因此在搜索之后，我遇到了VBA for Word，这使我可以轻松地做到这一点. 由于我以前从未做过VBA，所以我尝试了以下方法: Sub tryIt() If Selection.Font.Size = 18 Then MsgBox ("test") End If End ..

发布时间：2020-05-13 01:54:53 vb.net ms-word word-vba 其他开发

如何编辑只读Word文档(VBA)

我会定期从各个客户端获取Word文档，有时它们会以“只读"模式将它们发送给我.手动进入“查看>编辑文档"并不是什么大问题，但我似乎找不到在VBA代码中执行此操作的方法. 打开文档或将其切换为可编辑就足够满足我的需要. 请注意，由于它似乎设置为“建议只读"(基于我对Document.Open的MS手册页的阅读)，因此无法使用"readOnly = false"打开文档. 在上下文中 ..

发布时间：2020-05-13 01:54:37 ms-word word-vba readonly 其他开发

VBA语法查找条件语句字段代码

我正在为我的宏搜索正确的语法，以查找IF条件语句字段代码. 我需要搜索{IF{DOCVARIABLE"CODE"} = "YES" "A" "B"}将其删除，并替换为"B"(错误陈述). 当单独搜索像{DOCVARIABLE "CODE"}这样的单词字段时，我写为:Text1 = "CODE"，但是当有IF&时，文字和是&是的，像上面的一样，是错误的，我该怎么写? 解决方案综 ..

发布时间：2020-05-13 01:53:39 ms-word word-vba 其他开发

使用Word宏选择表中的所有表

我定期得到这些文件，这些文件必须进行格式化，并且所有数据都存储在较大的表内的表中，以用于布局目的. 如果可以使用宏，我想在表格中设置表格的列宽样式吗? 解决方案您可以直接引用嵌套表.使用以下命令，您可以获取文档中第一个表中包含的表数. Debug.Print ThisDocument.Tables(1).Tables.Count 然后您可以遍历它们并根据需要对其进行格式化 ..

发布时间：2020-05-13 01:53:22 vba ms-word word-vba 其他开发

优化查找和替换MS-Word VBA脚本

我编写了一个宏，用于替换三个空格中的第一个空格的格式，后跟一个带有蓝色字体的数字的特定字符串，另一个用于替换括号内的空格，后跟一个特定的字符串. 您知道如何优化这两个过程吗(我使用MS-Word的搜索和替换对话框的通配符，但是猜想在VBA中使用它是很尴尬的..) 我的宏: Sub replace_3spaces() Dim str_after As String Dim re_ ..

发布时间：2020-05-13 01:53:20 ms-word wildcard replace word-vba 其他开发

将特定的文档添加到特定的Word.Application

我可以将objDoc分配为ObjWord的文档(在Set objDoc = oDoc.Object之后)吗? 我的代码如下: 'Declaration Dim oDoc As OLEObject Dim objWord As Word.Application Dim objDoc As Word.Document Dim WS as Worksheet Dim strOdoc as ..

发布时间：2020-05-13 01:52:57 excel excel-vba ms-word word-vba vba 其他开发

删除ms word 2007中的某些行

Bottom of Form perma-link Top of Form save Bottom of Form [+] .... [–] .... Top of Form "...."表示会更改每个块的文本，但是请确保该行以"[+]"或"[-]"开头. 请建议一个合适的宏编辑:在屏幕截图中，我想将文本保留为黄色并删除其余部分. (在实际文件中，文本不是黄色的) PS- ..

发布时间：2020-05-13 01:52:30 vba ms-word word-vba 其他开发

将页眉和页脚添加到多页Word文档VBA

我正在尝试通过宏向Word文档的每一页添加页眉和页脚. 我尝试了几种不同的方法，例如遍历页面上的每种形状，但是在这种情况下，页眉和页脚会在每页上多次打印出来，具体取决于文档中有多少种形状. 当前，我的代码正在查找任何当前的页眉和页脚并将其删除，然后仅将我的页眉和页脚插入第一页，并将其余页面保留在文档的页眉和页脚中. 谁能告诉我我要去哪里错了? Sub HeaderFoote ..

发布时间：2020-05-13 01:52:28 vba ms-word word-vba 其他开发

在使用VBA将其写入Word文档之前，可以通过编程方式将字符样式应用于字符串吗?

我正在从Excel工作表中获取一些数据，并将其填充到Word模板中.我希望可以将一些文档的字符样式分配给子字符串，这些子字符串将在构建字符串时添加到文档中，而不是将字符串添加到文档中，然后分别选择每个字符串以应用适当的样式现在，我要串联几个字符串，并将它们添加到文档中的文本框中，如下所示: ActiveDocument.Shapes("Text Box 7").TextFrame.T ..

发布时间：2020-05-13 01:52:21 ms-word formatting word-vba string-formatting 其他开发

VBA(?)如何提取链接和插入的图像的文件名-Word 2013

我们在Word文档(.docx)中插入和链接图片(从文件.emf中插入图片).我们的文档和图形文件存储在我们的网络驱动器上.然后，我们将文档提供给作者进行处理.文档中的图片对作者很有用. 如何以编程方式和全局方式(从文档角度考虑，而不是批处理文档):提取链接和插入的图片的文件名(不带文件扩展名)? 我们有一个将Word文档.docx导出到.XML的工具. Ps:我在Google上 ..

发布时间：2020-05-13 01:52:12 vba ms-word word-vba word-2013 其他开发

使用VBA在MS Word中创建动态列表号

我想知道如何插入动态多级列表号. 客户请求为他的Word 2010模板应用“点标题"，类似于点页面行为. 含义: 假定以下标题格式: 标题2-1.1 标题3-1.1.1 标题4-1.1.1.1 标题5-1.1.1.1.1 目的是保留现有编号并在编号列表之间添加. 例如: 在两个标题3样式标题1.3.5和1.3.6之间将是1.3.5.A，然后是1.3.5.B，依此类推.显 ..

发布时间：2020-05-13 01:51:56 vba ms-word word-vba 其他开发

如何创建循环，以便如果表中的单元格包含字符，它将自动创建另一行单元格

该表位于MS WORD中，但我试图使用VBA对其进行循环.目前，我已从来源中提取数据，并希望以MS Word形式输入表格.该表包含多行和2列.数据将输入到每一行的第二列中.现在，我有很多数据，无法继续指定每个行号，因此，我想找到一种方法，每当单元格已满时就添加一个额外的行. 在Excel中，这组代码可以使用，但不能用文字显示.. Do While (Len(Worksheets("O ..

发布时间：2020-05-13 01:51:41 vba ms-word word-vba 其他开发

Word VBA:查找一组单词并插入预定义的注释

我需要自动将注释插入到Word文档中:搜索预定义的一组单词(有时是单词字符串，并且所有不区分大小写)，并向其中添加预定义的注释. 有两个单词集，有两个目标: 单词集1:每个定位单词的注释相同单词集2:个人评论(我建议根据已识别的单词提出新的文字) 我一直在使用半自动执行此代码，该代码对所有已识别的单词进行ID识别并突出显示它们，从而帮助我完成了该过程(但我仍然需要手动输入所有 ..

发布时间：2020-05-13 01:51:29 vba ms-word word-vba 其他开发

word-vba相关内容