Toon posts:

[Word] customdocumentproperty vullen

Pagina: 1
Acties:

Verwijderd

Topicstarter
Ik heb een .dot bestand gemaakt welke standaard in Word(2003) meegeladen wordt. De bedoeling is dat de macro in dit sjabloon een (standaard) documentproperty vult.

Ik doe dat nu zo:
code:
1
ActiveDocument.CustomDocumentProperties("Kwestie") = "test"


Volgens de boeken en google zou dit moeten werken maar ik krijg de fout "object vereist". Het lijkt er dus op dat "Kwestie" niet bekend is. Dit is echter een standaard property van Word. Wat kan hier nog mis aan zijn dan?

  • F_J_K
  • Registratie: Juni 2001
  • Niet online

F_J_K

Moderator CSA/PB/AI

Front verplichte underscores

Bestaat de property al wel? Zo niet: ActiveDocument.CustomDocumentProperties.Add :Y)

Kwestie kent mij Word iig niet.

[ Voor 17% gewijzigd door F_J_K op 13-09-2007 11:05 ]

'Multiple exclamation marks,' he went on, shaking his head, 'are a sure sign of a diseased mind' (Terry Pratchett, Eric)


Verwijderd

Topicstarter
F_J_K schreef op donderdag 13 september 2007 @ 11:02:
Bestaat de property al wel? Zo niet: ActiveDocument.CustomDocumentProperties.Add :Y)
Onder eigenschappen > aangepast staat ie er al wel tussen. Dan bestaat ie toch?

  • F_J_K
  • Registratie: Juni 2001
  • Niet online

F_J_K

Moderator CSA/PB/AI

Front verplichte underscores

Yup. Dan werkt het hier ook prima:
code:
1
2
3
Sub blaat()
   ActiveDocument.CustomDocumentProperties("Kwestie") = "test"
End Sub

-> error 5
code:
1
2
3
4
Sub blaat2()
   ActiveDocument.CustomDocumentProperties.Add Name:="Kwestie", LinkToContent:=False, Value:="foo", Type:=msoPropertyTypeString
   ActiveDocument.CustomDocumentProperties("Kwestie") = "test"
End Sub

-> succes. Dan is er wat anders aan de hand.

[ Voor 4% gewijzigd door F_J_K op 13-09-2007 11:09 ]

'Multiple exclamation marks,' he went on, shaking his head, 'are a sure sign of a diseased mind' (Terry Pratchett, Eric)


Verwijderd

Topicstarter
Inderdaad, nu werkt het wel. Eerst aanmaken terwijl ie al bestaat??? Apart maar het werkt. Bedankt voor je hulp.