Update DOCVARIABLE

Status
Niet open voor verdere reacties.
W

WRD Frank

Gebruiker
Lid geworden
29 nov 2006
Berichten
43
Ik heb in het verleden, onder deze link, een bericht/vraag geplaatst over het maken van een UserForm in Word.
Dit werkt helemaal naar het zin.

Alleen nu ben ik met een document bezig met meerdere secties.
Per sectie is de voettekst anders wat betreft de indeling. Wel is het dan wenselijk om de Docvariable te update (in één keer)
Helaas werkt schijnbaar de onderstaande code dan niet helemaal.

Code: 
For each it in thisdocument.storyranges
  it.fields.update
Next

Wie kan mij helpen aan met update van de code? Ik kom, na zoeken, er niet meer uit.
 
Zou toch moeten werken, al zie ik zo niet hoe je it hebt gedefinieerd.
Code: 
Sub UpdateAll()
Dim oStory As Range
    For Each oStory In ActiveDocument.StoryRanges
        oStory.Fields.Update
        If oStory.StoryType <> wdMainTextStory Then
            While Not (oStory.NextStoryRange Is Nothing)
                Set oStory = oStory.NextStoryRange
                oStory.Fields.Update
            Wend
        End If
    Next oStory
End Sub
 
De, door mij geplaatste, code bevindt zich in de volgende sub:

Code: 
Private Sub knop_bewaar_Click()
  For j = 0 To UBound(sn)
       ActiveDocument.Variables(sn(j)) = IIf(Me("Textbox" & j + 1).Text = "", " ", Me("Textbox" & j + 1).Text)
  Next
  ActiveDocument.Fields.Update
  ActiveDocument.save
  For Each it In ThisDocument.StoryRanges
  it.Fields.Update
Next
End Sub
 
Sorry, late reactie.

hieronder nog de volledige code die is gebruikt:
Deze werkt tot dat ik de "sectie einde" ga gebruiken


Code: 
Dim sn

Private Sub UserForm_Initialize()
   sn = Split("Projectnummer.Rapportnummer.Status.datum.Gewijzigdedatum.typerapport.obj -Strnaam.obj -huisnr.obj -postcode.obj -plaats.inspectie -datum.naam -bewoner.tel -bewoner.bedrijf.bedr -straat.bedr -huisnr.bedr -postcode.bedr -plaats.bedr -tele.bedr -Email.contact.cont -Email.cont -tele.adv -bedrijf.adv -straat.adv -huisnr.adv -postcode.adv -plaats.adv -tele.adv -Email.projectleider.Inspecteur.Rapporteur", ".")
   For j = 0 To UBound(sn)
      Me("Textbox" & j + 1).Text = ActiveDocument.Variables(sn(j))
   Next
   
End Sub

Private Sub knop_bewaar_Click()
  For j = 0 To UBound(sn)
       ActiveDocument.Variables(sn(j)) = IIf(Me("Textbox" & j + 1).Text = "", " ", Me("Textbox" & j + 1).Text)
  Next
  ActiveDocument.Fields.Update
  ActiveDocument.save
  For Each it In ThisDocument.StoryRanges
  it.Fields.Update
Next
End Sub

Private Sub knop_stop_Click()
  Unload Me
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan