Slette linjer på baggrund af specifik tekst i Tekstfelt i formular

Se:
http://twitter.com/YourAnonNews
http://twitter.com/TheAnonMessage
http://twitter.com/AnonyOps

For de seneste hacking nyheder

Er dine "linjer" 7 selvstændige afsnit, dvs. afsluttet med Enter?

Der er tale om 6 selvstændige afsnit - det ene afsnit fylder 2 linjer.

Nedenstående kode skulle gøre det, du beskriver. Jeg har ikke inkluderet kode til at fjerne/sætte protection af formularen - regner med, at du styrer det i din eksisterende kode

    Dim oField As FormField
    Dim oDoc As Document
    Dim oRange As Range
   
    Set oDoc = ActiveDocument
    For Each oField In oDoc.Range.FormFields
        If oField.Result = "Der er ikke søgt om dispensation" Then
            Set oRange = oField.Range.Paragraphs(1).Range
            'Extend range to include 6 next paragraphs
            If oRange.MoveEnd(UNIT:=wdParagraph, Count:=6) <> 0 Then
                oRange.Delete
            Else
                'MoveEnd returns 0 if less than 6 paragraphs are found after paragraph with field
                'Insert code here if something is going to happen in case less than 6 paragraphs were found
            End If
        End If
    Next oField
   
    Set oDoc = Nothing

Jeg kan desværre ikke få det til at virke. Jeg har placeret din kode i et module. Når jeg klikker på "beskyt formular" og og skal til at skifte mellem de forskellige tekstfelter, kommer fejlmeddelelsen Compile error: Invalid outside procedure.

Koden er skrevet som en "løsrevet" til at sætte ind i en eksisterende makro. Hvis du ikke har sat koden ind i en anden makro, skal du tilføje "Sub NAVNPÅMAKRO()" for og "End Sub" efter koden - som i alle andre makroer.

Super! Så virker det.

Jeg ved ikke om det er muligt at finjustere makroen. Når makroen kører, bliver hele dokumentet "bladret igennem" (7 sider), og så stiller cursoren sig til sidst til det næste tekstfelt i dokumentet. Det virker dog lidt forvirrende, og man mister lidt overblikket.

Hvis dette også kan løses, er det som en Toyota-reklame - 103%. Og ellers så må du gerne sende et svar for veludført opgave.

Tak for hjælpen.

Mvh Lars

Velbekomme.
Da "min" kode ikke ændrer på, hvad der er markeret i dokumentet, burde den ikke bevirke, at der "bladres". Har du selv tilføjet kode, som bruger Selection? Det bevirker, at markeingen skifter i dokumentet. Hvis man bruger Range i stedet for (hvilket jeg har gjort), sker det ikke. Men det med at bruge Range kræver lidt øvelse ...

Jeg kan ikke umiddelbart se, at der er brugt Selection i dette dokument, men da det er en kopi af en skabelon, kan der muligvis ligge noget kode, som jeg ikke kender til.

Du må gerne sende et svar, så du kan få dine points.

OK. Uden at have set din kode kan jeg desværre ikke fortælle dig, hvad det så er i din kode, der er årsagen (det behøver ikke at være "Selection" - kan også f.eks. bare være ".Select".