Gemme felter i dokumentet

Gem dem som autotekster.

I øvrigt - er det meningen, at brugeren selv skal bestemme hvad det er for nogle felter, der skal sættes ind igen og hvor?

Hvilke slags flettefelter er der tale om?

De kan ikke gemmes som autotekster, da der laves en masse breve, som alle har samme skabelon. Og felterne/teksterne er unikke for hvert brev.

Felterne ligger allerede i brevet, og afhængig af nogle valg brugeren træffer, så bliver nogle af de felter erstattet med tekstblokke.
Når brugerne så finder ud af, at de har truffet et forkert valg tidligere i brevet, skal de kunne fortryde de tekstblokke der er sat ind, træffe det rigtige valg og kører videre derfra.

De felter jeg benytter mig af er almindelige flettefelter (erstattes automatisk med faste tekstblokke) samt AutoTextList felter (stiller brugeren et spørgsmål, hvor svaret danner baggrund for hvilken tekstblok der indsættes)

Har du mulighed for at sende en kopi af en skabelon til: pb@supertekst-it.dk ?

Forslags-kode i dokumentet (ThisDocument):

Public listeNavn As String
Dim feltListe As String
Sub AutoOpen()
Rem =======================
    listeNavn = "FeltListe"      'navn på dok.variabel - kan modificeres
Rem =======================

Rem Test - slet feltliste
'    ActiveDocument.Variables(listeNavn).Delete
   
Rem Test om fejl-liste findes indlejret
    With ActiveDocument
        If .Variables.Count > 0 Then
            If findesFeltliste = False Then
                opretFeltListe
            End If
        Else
            opretFeltListe
        End If
    End With
End Sub
Private Function findesFeltliste()
    For Each dv In ActiveDocument.Variables
        If dv.Name = listeNavn Then
            findesFeltliste = True
            Exit Function
        End If
    Next dv
    findesFeltliste = False
End Function
Private Sub opretFeltListe()
Dim felt As Field, feltListe As String
    feltListe = ""
    For Each felt In ActiveDocument.Fields
        tekst = felt.Result.Text
        feltListe = feltListe + tekst + "|"
    Next felt
   
    ActiveDocument.Variables.Add Name:=listeNavn, Value:=feltListe
End Sub
Public Sub ResetFelt()
    If Selection.Fields.Count > 0 Then
        kode = Selection.Fields(1).Code
        st = Selection.Fields(1).Result.Text
        opr = findOpr(kode)
        Selection.Fields(1).Result.Text = opr
    End If
End Sub
Private Function findOpr(kode)
Dim fListe
Rem Indlæsning af feltliste
    fListe = ActiveDocument.Variables(listeNavn).Value

    While InStr(fListe, "|") > 0
        p = InStr(fListe, "|")
        If p > 0 Then
            part = Left(fListe, p - 1)
            cpart = Trim(Left(part, Len(part) - 3))
            If InStr(kode, cpart) > 0 Then
                findOpr = part
                Exit Function
            End If
            fListe = Mid(fListe, p + 1)
        Else
            Stop
        End If
    Wend
End Function