Slette tomme bogmærker

Der kan godt laves en makro, men det er vel ikke bare bogmærkerne, der skal slettes? Er det ikke snarere mellemrum før eller efter bogmærkerne, der giver den ekstra afstand?

Det er nødvendigt at vide, hvordan teksten er bygget op - ellers kan makroen ikke laves korrekt.

Du kan nøjes med at indsætte felterne (og de tilhørende mellemrum) hvis der er indtastet noget i felterne.

F. eks.
{IF {MERGEFIELD "Husbogstav"} <> "" "{MERGEFIELD "Husbogstav"}  " ""}

Et eksempel på en brevskabelon kunne se således ud:

Varsel af påbud og partshøring - Gadenavn_Gadenavn Husnr Husbogstav, Etage SideDørNr, Postnr Gadenavne_Område

Hvis alle bogmærker er udfyldt, vil det se således ud:
Varsel af påbud og partshøring - Vestergade 3 A, st. tv., 4930 Maribo.

Jeg kan dog se nogle udfordringer i forhold til kommaerne. Hvis adressen hverken indeholder etage eller sidedør, ender jeg med to kommaer ved siden af hinanden.

Hvordan bliver data indsat i dokumenterne - er det via flettefelter (MERGEFIELD) eller via VBA og en UserForm eller???

Hvis det er via flettefelter, kan du opbygge flettefelterne med betingelser som foreslået af erikjuul (men som jeg læser din forklaring lyder det ikke til at være tilfældet).

Data bliver indsat vha. blanketkoder, som vi har fået tildelt. Disse blanketkoder bliver indsat i dokumentet som bogmærker.

Der er ikke tale om flettefelter, så løsningen fra erikjuul er desværre ikke brugbar i dette tilfælde

En makro noget i retning af nedenstående kan bruges. Måske du har brug for at rette noget til afhængigt af, hvordan det er, ekstra mellemrum og kommaer forekommer.

Makroen er baseret på, at du omkring hele område (måske et enkelt afsnit), hvor adressen findes, indsætter et bogmærke med navnet "HeleAdressen" (du kan kalde det hvad du vil - skal så blot rette tilsvarende i makroen). Hvis du har andre måder at finde stedet i dokumentet på, kan du bruge det i stedet.

Makro:

Sub ReplaceDoubleSpacesAndCommasBySingle()
    Dim rngAdresse As Range
   
    With ActiveDocument
        If .Bookmarks.Exists("HeleAdressen") Then
            Set rngAdresse = .Bookmarks("HeleAdressen").Range
           
            'Find all occurrences of two spaces and two commas and delete by a single
            With rngAdresse
                Do Until InStr(1, .Text, "  ") = 0 And _
                        InStr(1, .Text, ",,") = 0
                  .Text = Replace(.Text, "  ", " ")
                  .Text = Replace(.Text, ",,", ",")
                Loop
            End With
        End If
    End With
   
    Set rngAdresse = Nothing
End Sub

Tilføjelse til makro:
Metoden med brug af Replace forudsætter, at teksten ikke indeholder speciel formatering på dele af tekstn, da sådan formatering vil gå tabt.

Hej Lene

Så har jeg haft tid til at tjekke dit løsningsforslag og med diverse smårettelser har jeg fået det til at virke som ønsket.

Jeg takker for hjælpen og sørger for, at du får dine point, når du har sendt mig et svar.

Velbekomme. Det var godt, du fik det til at virke.