将javascript/jquery转换为vba

我有一个javascript/jquery代码，可以删除html文件的部分

    var divs = document.getElementsByTagName('div');
var d = divs.length;
for (var i = 1; i < d; i++) {
    if( $('.section'+i).innerHTML.includes("textfind")==true || $('.section'+i).innerHTML.includes("textfind2")==true){
    $('.section'+i).remove();
    }
}

---

我是如何删除那些我发现字符串的特定部分的？你能在这里详细说明这个问题吗？？而且，您想使用VBA删除html或word元素吗

编辑：-您可以创建一个变量并在其中存储字符串数组以查找和替换。（注意：如果只想清除文本，请使用空字符串代替“替换”字符串。）

---

有关VBA查找和替换代码的信息，请参阅此链接。RemoveTextfinders:将同时删除这两个元素

<div class="section1">textfind2</div>
<div class="section2"><input name="textfind2" value="" /></div>

<div class="section1" name="textfind2"></div>
<div class="">textfind2</div>

Sub RemoveTextfinders()
    Dim d, divs
    Set divs = document.getElementsByTagName("div")
    For Each d In divs
        If InStr(d.className, "section") And InStr(d.innerHTML, "textfind2") Then d.ParentNode.RemoveChild d
    Next
End If

textfind2

但这两种元素都不是

<div class="section1">textfind2</div>
<div class="section2"><input name="textfind2" value="" /></div>

<div class="section1" name="textfind2"></div>
<div class="">textfind2</div>

Sub RemoveTextfinders()
    Dim d, divs
    Set divs = document.getElementsByTagName("div")
    For Each d In divs
        If InStr(d.className, "section") And InStr(d.innerHTML, "textfind2") Then d.ParentNode.RemoveChild d
    Next
End If

文本查找2
子RemoveTextfinders（）
暗d，divs
Set divs=document.getElementsByTagName（“div”）
在div中的每个d
如果InStr（d.className，“section”）和InStr（d.innerHTML，“textfind2”），则d.ParentNode.RemoveChild
下一个
如果结束

Update我将这两个if语句组合在一起，它们是多余的
如果div的任何类包含“section”，InStr（d.className，“section”）将计算为true

---

这段代码对我来说运行良好。我一定是弄错了你的html的结构。您可以发布一个html示例吗？

是的，使用vba我想做与JavaScript相同的事情。我想您在论坛的其他地方找到了一个解决方案。如果是，请将此问题标记为已结束/resolved@AK0101不要忘记接受一个不起作用的答案（即使不是我的！），也不要忘记添加节号。请参阅在microsoft word中打开的已编辑的opits html文件，这样它就没有任何类似divs的html标记，因此需要使用activedocument.sections vba代码