ms Word bewerking in VB

[albertw]

goede avond

ik heb een klein testprogrammaatje in vb6 geschreven om bookmarks in een Word- document via VB te kunnen invullen. In XP met Office2003 gaat dit prima, maar Win2000 met Office2000 slaat op tilt. Kan iemand me vertellen wat er fout gaat en hoe dit op te lossen is?

Benodigd:
een msWord document 'Test.doc' met 3 bookmarks
1) test1
2) test2
3) date0
en onderstaand programma
niet vergeten de word-bibliotheek te laden !

alle in dezelfde map te plaatsen.

bij voorbaat dank
albert

---
Private Sub Form_Load()
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Set wdApp = New Word.Application
Set wdDoc = wdApp.Documents.Open(App.Path & "\test.doc")

txtText1 = "test 1"
txtText2 = "test 2"
txtDate = Format(Date, "dddd d mmmm yyyy")
sName = App.Path & "\TEST_" & Format(Date, "yyyymmdd") & ".doc"
wdDoc.Bookmarks("test1").Select
Selection.Text = txtText1
wdDoc.Bookmarks("test2").Select
Selection.Text = txtText2
wdDoc.Bookmarks("date0").Select
Selection.Text = txtDate
wdDoc.SaveAs sName
wdApp.Quit
Set wdDoc = Nothing
Set wdApp = Nothing
End
End Sub

---

 

[mumzel]

Welkom bij Helpmij.nl

Ik heb de vraag naar de juiste sectie verplaatst. je wordt er vanzelf heengebracht.

 

[ReneDirks]

Ik zou zeggen zet er even een

wdApp.Visible=true

tussen (ergens bovenaan). Grote kans dat Word een melding geeft en op gebruikersinvoer zit te wachten

 

[albertw]

bedankt voor de tip, zal het de eerstvolgende maal dat ik met win2k / office2 k werk uitproberen.