Microsoft Word中的报价查找和替换
在替换文本时尝试获取不同类型的引号字符时，似乎存在问题：
With ActiveDocument.Content.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "\{QUOTE:(*):QUOTE\}"
.Replacement.Text = Chr(147) & "\1" & Chr(148)
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
当文档包含：{QUOTE:abc:QUOTE}
代码给出："abc"
但预期结果是：“abc”
Word版本：“Microsoft Office Professional Plus 2013”和“Microsoft Office 365 ProPlus”。
该问题不会发生时文件-
如何更改代码以获得预期结果？
共有1个答案
解决这类问题的方法是在代码期间关闭该选项，如果该选项处于打开状态，则再次将其打开。
以下代码片段保存用户的设置，关闭该选项，然后恢复用户的设置（无论该选项是否打开）。
Dim bReplaceQuotes as Boolean
'Save the user's setting
bReplaceQuotes = Options.AutoFormatAsYouTypeReplaceQuotes
Options.AutoFormatAsYouTypeReplaceQuotes = False
'Do the FindReplace
'Restore the user's settings at the end
Options.AutoFormatAsYouTypeReplaceQuotes = bReplaceQuotes
-
在Atom中，对你文件或者项目中的文本进行查找或者替换，非常快速而且容易。 cmd-F 在缓冲区中查找 cmd-shift-f 在整个项目中查找 如果你执行了这些命令，你屏幕的底部会出现一个“Find and Replace”面板。 你可以按下cmd-F，输入需要搜索的字符串，并且多次按下回车（或者cmd-G，或者“Find Next”按钮）来在当前文件中搜索，循环查找当前文件中的匹配内容。“Fi
-
我有一些占位符的docx文档。现在我应该用其他内容替换它们，并保存新的docx文档。我从docx4j开始，发现了这个方法： 但这很少起作用，因为通常占位符会在多个文本运行中拆分。 如何解决这个问题？
-
我试图在表格的第2列中找到所有文本为“0.118”的单元格，并为该行列出命令列表。我还试图从该行中找到的选定文本的第5列中获取值，然后减去我在该行的输入框中输入的值。 我遇到的问题是，它只改变了我找到的“0.118”之一，而不是每行中的所有内容。 我不知道如何搜索选定行的列（5）。 任何帮助都将不胜感激。 非常感谢。
-
问题内容： 我必须搜索一个列表，然后用一个元素替换所有出现的元素。到目前为止，我在代码方面的尝试使我无处可寻，做到这一点的最佳方法是什么？ 例如，假设我的列表具有以下整数 我需要将所有出现的数字1替换为值10，所以我需要的输出是 因此，我的目标是将数字1的所有实例替换为数字10。 问题答案：
-
问题内容： 我有一个文件（更具体地说是一个log4j配置文件），我希望能够读取该文件并在代码中挑选出某些行并替换它们。例如，在文件中，有一串文本，指示文件的存储目录或记录器的级别。我希望能够替换这些文本字符串而无需读入文件，将其写入另一个文件以及删除原始文件。有没有一种使用Java来查找和替换文件中文本的更有效方法？ 这是我尝试使用的文本文件的示例： 我希望能够读取文件并将’DEBUG’替换为另一
-
问题内容： 我正在寻找使用python编辑XML文件。我想查找并替换标签中的关键字。过去，一位同事建立了XML模板文件，并使用“查找并替换”程序替换了这些关键字。我想使用python查找和将这些关键字替换为值。我一直在自学Elementtree模块，但是在尝试查找和替换时遇到了麻烦。我已经附上了我的XML文件的片段。您将看到一些被％包围的变量（即％SITEDESCR％），这些是我要替换的单词，然后