word-vba

    1热度

    1回答

    我有一个VBA脚本,它可以在Excel中找到一个命名的单元格,并根据Word中的标识符将其粘贴到Word中。我使用RegEx来查找标识符。 我遇到的问题是,只要它粘贴值(正确)它“按Enter”,以便它进入下一行。它不应该。 下面是脚本: Dim objWord, objWordDoc, RegEx, objExcel, objWorkbook, content, texts, text, Tex

    0热度

    1回答

    我给出的问题是根据重复的日期值对多行进行合并的单词表进行格式设置。在下面的示例,第1个显示复制日期值和第2列中是与该日期对应的文本: 2017年1月3日从A 2017年1月3日电子邮件细读电子邮件到小组委员会 01/03 /从2017年的B博士从d先生 2017年1月3日电话呼叫的 2017年1月3日电话打到d先生 2017年1月3日电话通话细读邮件 我想结束了什么是以下内容: 01/03/201

    1热度

    2回答

    “分组框”,缺少一个更好的单词:我想要我的用户表单中与他人视觉上不同的区域,不同的背景颜色和围绕它们的框架,例如尽可能使用Frame控件创建。但是,我不需要任何Frame控件的事件,也不需要与表单中的其他控件进行交互。 更特别的是,我希望能够在所有文本,列表,组合框和复选框中进行选择,而不管它们在“组框”中的位置,事实上也不管其“组框”的可能位置另一个'组盒'。我的大部分控件都具有On Enter

    2热度

    3回答

    我有一个问题需要替换某些序列号,例如[30] [31] [32] ...到[31] [32] [33]。 。在MS词中,当我在文章的中间插入新的引用时。我还没有在GUI中找到解决方案,所以我尝试使用VBA做替换。我在堆栈溢出发现了类似的问题: MS Word Macro to increment all numbers in word document 然而,这种方式是有点不方便,因为它有可能产生

    0热度

    1回答

    我正在使用正则表达式来查找Word文档中的所有模式匹配,然后我将对其进行处理。 我正在搜索的文件长约330页,包含复制/粘贴的电子邮件。我的问题是,当我使用InStr(startPos, objRange.Text, match.submatches(0))来查找每场比赛的起始位置时,结果实际上会被一些数额抵消。对于处于原始状态的文档,该偏移量恰好为324个字符。 在预感,我决定删除文档中的所有超

    2热度

    1回答

    下面是两组删除文本框的VBA代码,第一个在MS Excel中工作,第二个在MS Word中工作。两者之间唯一的区别在于“有效”之后的第三行。 我试图在MS Outlook中复制此操作,但是缺少正确的代码术语知识......有没有人知道这个答案?...谢谢。 Sub RemoveTextBox() Dim shp As Shape For Each shp In ActiveSh

    0热度

    2回答

    我正在尝试比较两个Excel文档之间的数字,并将测试结果写入Word文档的表中。我已经能够建立到文档的连接,但是我无法获得实际添加的表格的工作。 这是我有: Dim wordObj As Object Dim outFile As Object On Error Resume Next Set wordObj = GetObject(, "Word.Application") If w

    -1热度

    1回答

    我开发了一个word文档日志。用户表单问题以便标记某些部分不适用,然后删除该部分内容,以便日志定制到站点。 我真的想保持主人不被用户损坏,并尝试过add.docuement方法,但这只是打开一个新的文档作为文档1与所有的日志本内容,但没有VBA代码。有没有办法打开包含VBA代码的新文档?

    0热度

    1回答

    我想知道如果你们能帮助我解决这个问题。所以我想要一个可以以ms字显示/隐藏表格的按钮。但是,我只能使用按钮来显示或隐藏我的代码。目前,该代码会显示我的表: Sub Loan1() 'Hides Sections Not Used in Expanded Form Dim CollapseRange1 As Range 'Set Which Range/Cell to Asso

    0热度

    2回答

    ,如果有一种方法来优化该组代码 Sub BBG_Transmital() 'Hides Sections Not Used in Expanded Form Dim CollapseRange1 As Range Dim CollapseRange2 As Range 'Set Which Range/Cell to Associate with Marked Ch