Slet alt pånær specifikke linjer

Et par opklarende spørgsmål:
Du taler om "linjer". Er det mon ikke afsnit (afsnit slutter med et afsnitstegn, som ligner et omvendt P, når formateringsmærker er slået til). Slutter den tekst, du skal finde, med "</font>" eller kommer der andet bagefter. Disse ting har betydning for, hvordan løsningen skal laves.

Du taler om "en specifik linje" og "linjer". Er der en eller flere forekomster?

Hej

Jeg beklager min mangelfulde forklaring, og har nu kigget lidt naermere på det. Det er i virkeligheden to afsnit, begge slutter med omvendt P med formateringsmærker.

Der er mange forekomster. Det er en samling af artikler, hvor jeg kun skal bruge overskrifterne.

Eksempel

<h3><strong>Overskrift</strong><br>
  <font color="#999999" size="1">[Overskrift 2] </font></h3>

Jeg kan leve med nederste afsnit, men ideelt ville være dem begge.

Mange tak

Nedenstående makro skulle gøre det, du gerne vil under forudsætning af, at kildeteksten er tagget konsistent. Indsæt _kildeteksten_ i et Word-dokument og kør makroen. Så skulle du have kun have alle afsnit tilbage, der starter med "<h3><strong>" og/eller slutter med "</font></h3>". Se kommentarerne i selve makroen:

Sub BeholdVisseAfsnit_SletResten()
    Dim oPara As Paragraph
   
    'Undersøg alle afsnit, slet hvis ikke start er "<h3><strong>" eller slut er "</font></h3>"
    'Ellers gå videre
    For Each oPara In ActiveDocument.Paragraphs
        If Left(oPara.Range.Text, Len("<h3><strong>")) <> "<h3><strong>" And _
            Right(oPara.Range.Text, Len("</font></h3>")) <> "</font></h3>" Then
            'Slet afsnit
            oPara.Range.Delete
        End If
    Next oPara
    MsgBox "Færdig."
End Sub


Hvis du har brug for hjælp til at installere makroen, kan du se her:
http://www.gmayor.com/installing_macro.htm

Den slags opgaver kan altid løses på mange forskellige måder, og dette var ikke første forsøg…

Hej igen.

Mange tak.

Jeg har lidt problemer med den. Har det nogen indflydelse at word er engelsk/fransk version?

Jeg har indsat makroen og når den kører sletter den alt på linjen med <h3><strong>Overskrift</strong><br>

Altsaa den første del, men den sletter desværre også den vigtigere Overskrift2-afsnit.

Hvad gør jeg forkert?

Igen mange tak

I denne sammenhæng betyder sprogversionen ikke noget.

Du gør sikkert ikke noget forkert.

Prøv at udskifte makroen med nedenstående version (kun linjen der startede med "Right" er udskiftet med linjen, der nu starter med "InStr"). Mit tag-eksempel til test var hentet her fra din post, og linjeskiftet var ikke det, der nok findes i din rigtige tekst:

Sub BeholdVisseAfsnit_SletResten()
    Dim oPara As Paragraph
   
    'Undersøg alle afsnit, slet hvis ikke start er "<h3><strong>" eller slut er "</font></h3>"
    'Ellers gå videre
    For Each oPara In ActiveDocument.Paragraphs
        If Left(oPara.Range.Text, Len("<h3><strong>")) <> "<h3><strong>" And _
            InStr(1, Right(oPara.Range.Text, Len("</font></h3>") + 1), "</font></h3>") = 0 Then
            'Slet afsnit
            oPara.Range.Delete
        End If
    Next oPara
    MsgBox "Færdig."
End Sub

Det ser ud til at virke. Mange tak.

Du skal vel svare for at få point, eller hvordan fungerer systemet?

Ja, du får et svar her. Godt at det virker nu.