Standard udfyldning af dokument

Det kan godt gøres i Word - evt. via formularfelt + evt. VBA

Jeg har forsøgt mig med formularfelter men kan kun få det til at virke som en "guide", jeg kan ikke finde en metode til at "tvinge" folk til at udfylde alle felter.

Det kan VBA - vender lige tilbage senere...

Hvor mange felter er der tale om?

En userform (VBA-genereret dialogboks)også en mulighed.

--

Har prøvet at oprette 4 felter, der alle blot skal udfyldes (flere kontroller er mulige). Der er anvendt formularfelter - idet makroer er tilknyttet de enkelte felter og en fælles indgangsmakro. Hvis et felt ikke udfyldes - gives en melding og markøren bliver i feltet indtil der er udfyldt.

Koden er anbragt i ThisDocument:

Public fejlFelt As String
Public Sub testIndgang()
    If fejlFelt <> "" Then
        ActiveDocument.FormFields(fejlFelt).Select
        fejlFelt = ""
    End If
End Sub
Public Sub test1()
    TestAfFelt 1, 1
End Sub
Public Sub test2()
    TestAfFelt 2, 1
End Sub
Public Sub test3()
    TestAfFelt 3, 1
End Sub
Public Sub test4()
    TestAfFelt 4, 1
End Sub
Private Sub TestAfFelt(tekstNr, regel)
Dim ff As FormField
    If regel = 1 Then
        Set ff = ActiveDocument.FormFields("Tekst" & CStr(tekstNr))
        If ff.Result = "" Then
            MsgBox ("Tekst" & CStr(tekstNr) & " skal udfyldes")
            fejlFelt = ff.Name
        Else
            fejlFelt = ""
        End If
    End If
End Sub

Model-filenkan tilsendes, hvis ønskeligt - blot send en mail, min adr. under profil.