VBA在换行符内查找替换

我目前正试图修改我的查找和替换宏，以便它读取换行符。 例如：我正在尝试替换以下内容。这是我的部分代码

Dim changedXml As String
changedXml = Replace(strXml, "</graphic></figure></foldout>", "reproductionWidth=*+1")

Dim changedXml作为字符串
changedXml=Replace（strXml，“，”reproductionWidth=*+1“）

如你们所见，我试图用reproductionWidth=*+1替换图形、数字、折页 唯一的问题是宏没有替换它，因为在我的XML文件中，它们在每一个文件之间都有换行符，所以它使我的宏无法读取它们，所以没有任何更改

这就是它们在我的XML文件中的外观

</graphic>
</figure>
</foldout>

有人知道我的问题的解决办法吗？

---

感谢您提前提供的帮助。

因为您知道XML有换行符，所以需要在替换语句中包含这些换行符：

changedXml = Replace(strXml, "</graphic>" & vbCrLf & "</figure>" & vbCrLf & "</foldout>", "reproductionWidth=*+1")

changedXml=Replace（strXml，“&vbCrLf&&&vbCrLf&”，“reproductionWidth=*+1”）

如果换行符不是vbCrLf，您可能需要更新代码。

交叉张贴在：。有关交叉邮寄礼仪，请阅读：