Makro - tekstfelt

Er ikke specielt inde i Word, men når denne makro køres med Tekst2 valgt, så laver den en beregning til Tekst3. Der opstår en fejl under kørslen, derfor On Error Resume.

Måske du selv ved mere om hvordan du får den til at fungere via en makro.

    Selection.NextField.Select
    With Selection.FormFields(1)
        On Error Resume Next
        With .TextInput
            .EditType Type:=wdCalculationText, Default:="=Tekst1+Tekst2", Format:=""
            .Width = 0
        End With
    End With

Du behøver ingen programmering for at regne med/i formularfelter.

Indsæt dine 2 formularfelter og giv dem bogmærkenavne (som du vist allerede har gjort).
I formularfelternes egenskaber skal du sætte flueben i "Beregn ved afslutning".

Indsæt nu dit tredie formularfelt og vælg egenskaber.
Under "Type" vælger du beregning. I feltet ved siden af skriver du =Bevaegelser2 + Saldo1. Et felt der er beregnet kan der forøvrigt ikke tastes i.
Beskyt dokumentet og tast i de 2 første formularfeltet.

rvm> det er også den løsning jeg helst vil frem til, men det kræver en hvis-sætning;
Hvis Bevaegelser2 er tom, så skal der ikke laves noget i formularfeltet:

i Excel ville man skrive det sådan: Hvis(Bevaegelser2 = "";"";Bevaegelser2+saldo1)

Hvordan gør man det i Word?

Så må vi desværre tilbage til programmering eller fields.

Her er en løsning via programmering:

Sub Udregn()

    If ActiveDocument.FormFields("Bevaegelser2").Result <> "" Then
      ActiveDocument.FormFields("Tekst3").Result = Val(ActiveDocument.FormFields("Bevaegelser2").Result) + Val(ActiveDocument.FormFields("saldo1").Result)
      Else
      ActiveDocument.FormFields("Tekst3").Result = ""
    End If

End Sub

Indsæt denne makro på begge formularfelter (Bevaegelser2 og saldo1) som udgangsmakro
og fjern fluebenet i "Tillad udfyldning" på formularfeltet "Tekst3".

Super din sidste løsning virker.

Hvad betyder "Beregn ved afslutning" i forhold til "Afspil makro ved udgang"?

Beregn ved afslutning udfører beregninger, der skal ske automatisk uden brug af makroer - som i mit første svar. "Afspil makroer ved udgang" afspiller den valgte makro, når man hopper ud af formularfeltet.