2016-06-12 8 views
-2

Ich habe dieses Javascript/Jquery-Code, der Abschnitte einer HTML-Datei löschtübersetzen Javascript/jquery VBA

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(); 
    } 
} 

ich für Wort die gleiche Funktion wie VBA-Code schreiben möchte

ich diesen Code haben so weit

Dim i as Long 
    For each objSect in ActiveDocument.sections 
     if objSect.Range.Text like "textfind +i" Or "textfind2+i" then objSect.range.delete 
    Next objSect 

wie würde ich habe über diesen besonderen Abschnitt zu löschen, wo ich die Saiten finden

Antwort

0

Können Sie bitte die Frage hier ausarbeiten ?? Und Sie möchten HTML- oder Word-Elemente mit VBA entfernen ??

BEARBEITEN: - Sie können eine Variable erstellen und ein Array von Strings speichern, um sie zu finden und zu ersetzen. (Anmerkung: Wenn Sie nur wollen, um den Text zu löschen, dann verwenden Sie eine leere Zeichenfolge anstelle des ‚ersetzen‘ String.)

Siehe diesen Link für VBA finden und Code VBA To find and replace a string in MS Word

+0

Ja mit vba Ich möchte dasselbe tun wie JavaScript – AK0101

+1

Ich denke, Sie haben eine Lösung woanders im Forum. Wenn ja, dann bitte markieren Sie diese Frage als geschlossen/gelöst –

+1

@ AK0101 Vergessen Sie nicht, eine Antwort zu akzeptieren (auch wenn nicht meins!) –

0

RemoveTextfinders ersetzen: wird entfernen beide dort Elemente

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

Aber keines dieser Elemente

<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 

aktualisieren Ich kombinierte die beiden, wenn Aussagen sie überflüssig waren.
InStr (d.className, "Abschnitt") wird als wahr ausgewertet, wenn eine der Klassen der div den "Abschnitt" enthält.
Dieser Code lief für mich gut. Ich muss mich irren über die Struktur Ihres HTML. Könnten Sie bitte ein Beispiel des HTML schreiben?

+0

das hat nicht funktioniert, auch vergessen, Abschnittsnummern siehe editiert op – AK0101

+0

seine HTML-Datei geöffnet in Microsoft Word so hat es keine HTML-Tags wie divs, so müssen ActiveDocument.Sektionen VBA-Code verwenden – AK0101