VBA Word sum af tal

Prøv at sende filen, hvis muligt - @-adresse under min profil.

Så er der sendt mail :-)

PS: Du skal ikke anvende Svar, men Kommentar. Svar er fra forslagsstiller, når der måske er en løsning, som kan Accepteres af opgavestiller. Et Svar kan også Afvises.

Dim total As Double, up As DocumentProperty
Public Sub optælTilSum()
    total = 0
   
Rem clear total felt
    ActiveDocument.CustomDocumentProperties("BeløbIalt") = ""
   
    For Each up In ActiveDocument.CustomDocumentProperties
        If up.name = "Bløn" Or (InStr(up.name, "Tillæg") = 1) And IsNumeric(Right(up.name, 1)) = True Then
            If up.Value <> "" Then
               
                total = total + up.Value
            End If
        End If
    Next
   
    ActiveDocument.CustomDocumentProperties("BeløbIalt") = Format(total, "###,###.00")

Rem opdater felter
    For f = 1 To ActiveDocument.Fields.Count
        ActiveDocument.Fields(f).Update
    Next f
End Sub