Formule syntaxisfout

[Verwijderd]

Ik maak de volgende formule aan in Word:

{={variabele} * 100 / 25}

Ik gebruik het als een sjabloon voor een programma.

Als ik het sjabloon genereer, leest hij de variabele wel uit maar krijg ik syntaxisfout te zien. Als ik vervolgens mijn cursor op dit veld neer zet en op F9 druk dan voert hij de berekening wel uit en krijg ik het gewenste resultaat te zien.

Dus de variabele wordt goed uitgelezen maar de formule wordt na het uitlezen van de variabele niet meer uitgevoerd en moet handmatig uitgevoerd worden.

Iemand een suggestie?

[Verwijderd]

ik veronderstel dat dit +- hetzelfde probleem is als in Numpages + 1 toevoegen, kijk eens in dat topic.

[Verwijderd]

Helaas biedt de oplossing van numpages + 1 geen gewenst resultaat. Toch graag iemand die dit vaker mee heeft gemaakt.

[CoRrRan]

Op welke manier definieer je de variabele?

Ik heb het geprobeerd dmv de "DocVariable" optie. (Dat je dus via VBA een DocVariable aanmaakt):

Visual Basic:

Private Sub Document_New()
  ActiveDocument.Variables.Add "variable1", "50"
  ActiveDocument.Variables.Add "varialbe2", "100"
  ActiveDocument.Fields.Update
End Sub

en daarna via CTRL+F9:

code:

 { = { DOCVARIABLE variable1} + {DOCVARIABLE variable2}/25}

de berekening in Word uitvoerd. Bij mij geeft dit altijd de waarde, zonder foutmeldingen.

Voor het Document_Open event kun je dan volstaan met:

Visual Basic:

Private Document_Open()
  ActiveDocument.Fields.Update
End Sub

Is dit ongeveer wat je zoekt?

[Verwijderd]

Als je via Extra - Opties naar het Tabblad "Afdrukken" gaat kan je de optie "velden bijwerken" aanzetten. Zoals de naam al doet vermoeden worden de velden bijgewerkt op het moment dat je het document print.

[Verwijderd]

Wat je ook kan doen is een macro maken die je aan je originele bestand koppelt.

Wat je moet doen is een macro(AutoOpen) aanmaken in een nieuw bestand . Hierin geef je in visual basic aan:

Sub AutoOpen()

Dim aStory As Range
Dim aField As Field
For Each aStory In ActiveDocument.StoryRanges
For Each aField In aStory.Fields
aField.Update
Next aField
Next aStory

If ActiveWindow.View.ShowFieldCodes Then
ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
End If

End Sub

Vervolgens sla je dit bestand op als bestand.dot

Hierna open je je rtf en koppel je het bestand via Extra - Sjablonen en invoegtoepassingen en dan via "koppelen"moet je bestand.dot aangeven.

Dan zou het moeten werken!