word-vba

0热度

2回答

在我的文档中，我有称为“小”的表格样式。这里是宏，这将在这种风格的每个表改变字体大小： Sub FormatTables() Dim t As Table For Each t In ActiveDocument.Tables If t.Style = "Small" Then t.Range.Font.Size = 8 End If

0热度

1回答

以编程方式将InkPicture添加到word文档中

我正在尝试使用python将MSINKAUTLib.InkPicture添加到现有的word文档，到目前为止，我找不到任何关于该文档的文档。它甚至有可能吗？

0热度

1回答

使用宏搜索表在Word中找到小区特定字符串，然后在同一行

我有3列的表和行的数目不详的和我需要一个Word文档中设置版式上的其他细胞可以在列1中搜索字符串“Sum”的宏。如果找到完全匹配，则该宏必须将该行中剩余两个单元格的排版设置为Word中的两个不同的印刷格式，并删除字符串“求和”小区1 该表可以包含字符串的许多实例‘和’，但他们西港岛线alwaye在第一列。我试过的代码，我对编码技能的缺乏表示歉意，但是我一直在做这个工作，一直工作得很好，直到“

0热度

1回答

文本替换

在我的MS-Word模板，我的客户端发送模板与头部段错误，如下面，佛蒙特州，ROBIN S.日期：2017年10月21日文件编号： 312335出生日期：05/02/1967Claim＃：RE155B53452 DOI：06/21/2017 错误是'Claim＃'出现在DOB值的旁边，而它应该出现在下一行，如下： VERMONT，ROBIN S.日期：10/21/2017 文件编号：31233

1热度

2回答

从模板复制/粘贴标题

我有一个模板，它有一个包含图片标题的页面。我想将这些图像复制到我的ActiveDocument。我正在使用下面的代码： Set doc = ActiveDocument strTemplate = "C:\Users\rajtilak\Desktop\Report.dotx" Set docTemplate = Documents.Open(strTemplate) Set hdr1 = d

0热度

1回答

在Word中循环表格并检查复选框是否勾选

我有4列，每列有2组复选框，我正在寻找循环遍历每个集合，并检查两个复选框是否都被选中，如果它们然后退出子集并且将该项目的名称与在msgbox中的一组中选中的2个复选框进行检查。 Set oRow = oTable.Rows Set oTable = doc.Tables(3) For Each oRow In oTable.Rows With oRow If .Cells

1热度

1回答

保存Word文档和DisplayAlerts

我试图使用Application.DisplayAlerts = wdAlertsNone或Application.DisplayAlerts = False在我的剧本，以避免到有字弹出消息“被保存的文档包含轨道变化继续保存吗？”只字VBA脚本之前保存一个word文档。但它不起作用。该消息仍然存在。这里我的脚本： Private Sub CreateReportButton_Click()

2热度

1回答

此成员只能访问一个组VBA Word文档

我想在Word文档中找到ole对象，而且它似乎在InlineShapes(1).GroupItems。但不能访问组项目，因为它给我错误。 Sub findOle() Dim shp As GroupShapes Dim c As Integer Set shp = ActiveDocument.InlineShapes(1).GroupItems End Sub

0热度

1回答

如何编辑只读Word文档（VBA）

我定期从各种客户端获取Word文档，有时他们会以“只读”模式将它们发送给我。虽然手动转到“查看”>“编辑文档”并不是什么大事，但我似乎无法找到如何在我的VBA代码中执行此操作。将文档打开为可编辑状态，或者在文档打开时将其切换为可编辑文档将足以满足我的需求。请注意，我无法使用'readOnly = false'打开文档，因为它看起来像设置为'readOnly recommended'（基于我阅读

0热度

1回答

VBA宏无法正常工作

我有一个包含员工数据和Word模板的Excel文件。我将邮件合并并创建了一个宏，它向我询问员工姓名，并根据姓名从Excel文件中将该员工的员工详细信息提取到Word文件。如果记录来自Excel工作表的顶部到底部，宏能够检索记录。但是，任何高于当前检索记录的记录都不会被抓取。这真是一个麻烦。能否请你帮忙？下面是我的代码： Sub getdata() Dim numRecord As Integ