word-vba

    0热度

    1回答

    我的VBA脚本正在搜索Word文档中的特定文本,如果找到的文本包含超链接,我想将超链接也复制到新文档。 我试图做(来源是字表等为目的地): With source.Cell(1,1).Range .Find.Text = "MyTextToSearch .Find.Execute Forward:=True .Select .Copy End With

    0热度

    1回答

    我在带有格式化多段/行文本(包括编号列表和项目符号列表)的word文档中有一个表格。我想使用VBA宏将这些文本复制到一个单元格中。 当我将单元格粘贴到Excel单元格中时,源代码的一段被粘贴到另一行。当我将它直接粘贴到单元格中(单击公式字段并粘贴剪贴板的内容)时,我将失去格式。 由于Excel单元格不支持HTML标签,列表等,所以如果格式化文本转换为纯文本格式,将编号列表替换为实数,就可以了。 S

    0热度

    1回答

    我将从访问中生成一个文档,并希望在文档中使用字段代码“ListNum”。我有以下宏从MS字正确运行时正确地将字段代码添加到文档中。 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "LISTNUM LegalDefault ", PreserveFormatting:=False 然而

    1热度

    1回答

    我试图写一个快速宏,将我的邮件合并文档保存为单独的文档,然后将每个单独的文档保存为每个文档中的第一个单词。 这是我到目前为止,要将文档剪下来,并将其保存为“Test_1”等,但我无法添加代码来选择第一个单词。 Sub BreakOnSection() 'Used to set criteria for moving through the document by section.

    0热度

    1回答

    我想知道是否可以更改保存Word文档的方式。我想要做的是有一个按钮来保存我已成功完成的单词文档,但如果选择了功能区上的保存按钮或保存\另存为选项,则会显示一条消息,指示用户使用文件。这怎么能做到呢?

    0热度

    1回答

    我在Word 2013中遇到了有关VBA的问题。我对编码的经验有限,而宏对我来说有点新领域。 我有一个成功的VBA代码从一个工人不再在我的办公室工作,这个代码允许在办公室窗体中的下拉菜单,允许用户选择他们的位置和页脚更改文本地址在一个字符串中的办公室。 我一直在试图做的是调整此代码,以便在选择位置而不是在页面底部显示文本时,页眉模板将会更改。我已经成功地记录了这些宏,以便在我的计算机上执行我想要的

    -1热度

    1回答

    我正在为我的大学撰写我的论文,而且我不允许将单词用在引号中,用于我的总字数。由于Word没有这样做的功能,我希望有人能够通过创建一个宏来帮助我。我之前使用过宏,但对于像这样复杂的事情,我的经验非常少(如果它甚至那么复杂)。 我已经有了类似的工作与整个文件中的引用,所以这些都将是一个很大的帮助。我将在下面复制此代码,以便您可以大致了解我需要的内容,除了用引号而不是引用。 所以我想知道是否有人能够生成

    0热度

    1回答

    ,我要做到以下几点: 如果这个词用字母M完成了字母N替换 如果单词结尾一个字母N,替换为字母M. 我不太了解使用IF - Then语句。 任何帮助将不胜感激。 Sub find_end() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.F

    0热度

    1回答

    我正在构建一个包含将用作表单的内容控件的Word文档。下拉列表将来自工作簿,并将根据所做的选择进行动态调整。 而不是每次重新访问工作簿(并放慢速度),我试图在数组和字典中存储必要的信息,以便在Document_Open()的整个表单填充过程中使用这些信息。我不需要(也不需要)用户关闭文档后存储的数组/字典。 我试过在函数外面声明一个公有字典,没有成功(或者我做错了?)。有人能指引我走向正确的方向吗

    0热度

    1回答

    我在Word中有一个宏选择一堆文本框并将它们缩小到其原始大小的1%,以便有效地隐藏它们。然后另一个宏展开他们自己的100倍大小,以重新显示它们。 的2码为: Sub ShrinkBox() ActiveDocument.Shapes.Range(Array("Rectangle à coins arrondis 5", "Rectangle à coins arrondis 6")).S