ms-word

    0热度

    1回答

    VBA数组值

    我有从txt文件传递数据到数组的问题。我有需要从txt文件中填充数据的word文档。 Private Function ReadString() As String Dim textArray() As String Dim data As String Open "C:\Data\XFile.ini" For Input As #1 r = 0 Do Until EOF
    arrays vba ms-word 2017-11-11

    0热度

    1回答

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

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

    0热度

    1回答

    VBA宏无法正常工作

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

    0热度

    1回答

    将Excel文件中的文本插入Word文档（Word VBA）

    由于我的文档通常有一些可以反复使用的特定短语，因此我想将它们全部热键以节省时间。更具体地说，我打算让Macro1（插入“当然”），Macro2（插入“问题是”）和Macro3（插入“到时间”），热键Alt + 1,2 ，分别为3。如果我按Alt + 2，“问题是”立即插入到我的cusor中。 下面是我使用的基宏： Sub Macro1() Selection.TypeText Text:
    excel vba excel-vba ms-word 2017-11-25

    0热度

    1回答

    如何将CRLF插入ms字DOCVARIABLE或DOCPROPERTY

    是否有任何方法创建（并显示）多行DOCVARIABLE没有 VBA？ 也就是说“一\ r \ nTwo \ r \ nThree” 渲染成 One Two Three
    ms-word docvariable 2017-12-03

    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
    vba ms-word ms-office word-vba 2017-12-03

    0热度

    1回答

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

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

    0热度

    1回答

    如何使用宏将图片移动到不同的页面？

    我必须打印邮资标签作为我的在线业务的一部分。我有一个宏来将标签放置在一个页面中，但我想要一种将图像移动到另一个页面的方式。 如何使用VBA宏将我的20张图像移动到5张单独的页面上，每张图像上有4张图像？顺便说一下，这在mac中。谢谢。 Sub ImageResize() ' ' ImageResize Macro ' Resizes all images to a height of app
    vba ms-word 2017-10-28

    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
    vba ms-word word-vba 2017-12-18

    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
    vba ms-word word-vba 2017-12-18
最新问题