0

这是我在这个网站上的第一篇文章。我在过去发现了这个网站提供的建议，但我从来没有像今天这样直接问过什么。我一直在使用微软的帮助文件，但在放弃并点击联系微软寻求帮助后，它建议加入这个网站。

我被要求创建一个宏来在没有 Publisher 的情况下更新各种文档。我从来没有用过Publisher，很快意识到没有宏记录功能。

该宏执行我需要它执行的功能，但有一些例外，下面列出了我需要帮助的 2 个。

查找/替换文本。我可以使用上述功能，并且可以替换文本，但是在一种情况下，文档的大纲上有 2 个项目符号，我需要创建第 3 个项目符号。我在项目符号 2 上寻找最后几个词，但不知道如何执行回车或简单的“ENTER”，就像您要手动执行以启动新项目符号一样。在 Excel 中我使用 CHR(10) 或 CHR(13) 但它似乎在这里不起作用，即使我在 Excel 中编码。我发现建议使用 VbTab、VbCr、VbCtrl 的帖子，但我从未使用过这些帖子，而且似乎无法让它们正常工作。

查找文本 某些文档已过时，我不想创建新版本（代码不会进行任何更改，但仍会使用新文档名称另存为。我需要验证某些单词是否存在，然后才可以, 继续进行更改。我在 Microsoft 网站上找到了此代码，但是……它只在第一次工作。

.FoundTextRange - 在第二次之后，这个对象总是设置为“无”，即使我看到了我正在搜索的单词。

    Dim objFind as FindReplace 
    Dim fFound as Boolean 
     
    Set objFind = ActiveDocument.Pages(1) _ 
     .Shapes(1).TextFrame.TextRange.Find 
    fFound = True 
     
    With objFind 
     .Clear 
     .FindText = "Urgent" 
     Do While fFound = True 
     fFound = .Execute 
     If Not .FoundTextRange Is Nothing Then 
     .FoundTextRange.Font.Bold = True 
     End If 
     Loop 
    End With

任何帮助，将不胜感激。

谢谢，

4

1 回答 1

0

我可能偶然发现了第二部分的答案。似乎需要发布者应用程序的对象在'with Activedocument.find' = with AppPub.activedocument.find 前面。在 MS 网站上，它没有引用此内容。

每当“Activedocument.find”显示时，该错误就会在整个宏中发生，一旦我应用 AppPub 对象引用，它就会起作用。

如果有人可以建议如何添加新的要点，那将是有帮助的。

我还有其他与出版商有关的问题...

  • 文本框展开后如何居中？（我必须使其变宽，以免隐藏添加的文本（更宽和更长），但更广泛的变化只会将其向右更改，而不是双向更改。

  • 你如何添加一个复选框。该文档具有现有的复选框。当我复制现有的文本框时，它起作用了，但该框非常小。我试过绕组，但盒子和其他盒子不同。

于 2020-07-15T21:36:55.853 回答