word-vba

    2热度

    1回答

    在Word 2016中,已经有内置选项“选择样式的所有实例”。下面是它如何工作的: 我想要实现与VBA类似的东西。它应该只选择一个文本块。唯一一个用户的脱字符当前所在的位置。例如,如果插入符号位于附近某处Bar(),结果应该是: 这将是选择非常有用(和复制/剪切)的文件大代码块。 任何想法如何完成? (我知道,Stack Overflow不是“免费编码服务”,它是一个很好的习惯,可以展示一些部分工

    2热度

    1回答

    我在Excel工作表中嵌入了Word文档(*.docm)。 Word文档包含一个table,它在Excel的WorkSheet中的相应Table之间有关系。 我想一直在Document_Open事件动态设置嵌入Word文档表中的行数,与波纹管的值,其涉及到工作表: ThisWorkbook.Worksheets("Sheet1").ListObjects("Salary").ListRows.Co

    0热度

    1回答

    是否可以找到MS-Word标记为错误的词? 我的目标是找到包含“è”而不是“é”的单词,但要使用一个宏,我需要将该char仅替换为标记为错误的单词。 我在MS-Word中2013

    0热度

    1回答

    如何将超链接的地址复制到剪贴板? 使用“录制宏”选项,我得到这个: Sub CopyHyperlink() Selection.Range.Hyperlinks(1).Range.Fields(1).Result.Select Selection.Copy End Sub 但是,这并没有给我想要的结果。看图片来比较实际的和预期的结果: 正如你看到的,我的代码实际上是复制链

    1热度

    2回答

    我一般使用VBA,但一直在阅读的编程技术,C#编程黄皮书,显然,它更特定于C#。无论如何,它提到了使用关键字Out传递参数的技巧。 我已经知道VBA支持byVal和byRef,并且我相当确定没有直接等价的Out。使用Out传递参数与传递参数Ref略有不同。 此解答https://stackoverflow.com/a/388781/3451115似乎给Out & Ref之间的差异的一个很好的解释。

    0热度

    1回答

    有没有办法将样式应用于超链接,而不选择它? 例如,这个工程: Sub ChangeStyle() Selection.Range.Hyperlinks(1).Range.Fields(1).Result.Select Selection.Style = Word.WdBuiltinStyle.wdStyleHyperlinkFollowed End Sub ,但我不喜欢灰

    0热度

    2回答

    嗨我想从excel表格复制单元格并填充word文档。我想将文本从excel单元格复制到Word文档中的特定位置。我能够将excel单元格中的文本存储在一个字符串中,但不知道如何将它存储在我在单词doc中提到的单词占位符或书签中。这是我到目前为止有: Set ws = xlBook.Worksheets("DIP Main") Tmp = ws.Cells(25, "C").Value

    0热度

    1回答

    之后添加空格我有这个小宏,其目的是删除所有空段(^ p),然后选择所有段落并在之前和之后添加空格(每个6个点) 。 这是到目前为止的代码 Sub format() ActiveDocument.Range.Select ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Sel

    1热度

    1回答

    我有一个Word文件,我想搜索文本,如果发现执行一定的作用,但我得到的runtime error 5854指出我的搜索字符串太长。自昨天以来,我一直在寻找和尝试不同的东西,但无法提供有效的代码。 如果你们中的一些人能够帮助我,我会很感激。 Sub FindTextAndHighlight() Dim srchTxt As Variant srchTxt = "Lorem Ips

    0热度

    1回答

    我正在编写一个宏以将索引条目添加到表中的条目中。有些单元格包含一个需要添加条目的字符串,我已经设法完成该条目。例如,单元格包含'S875'。我用下面的代码是: For Each oRow In oTable.Rows If oRow.Cells.count = 4 Then oTable.Cell(oRow.Index, 4).Select Selection.Expand