Toon posts:

[VBScript] wordApp.Activedocument.Variables

Pagina: 1
Acties:

Verwijderd

Topicstarter
code:
1
2
3
4
5
6
7
function runWord(wordDoc)
   set wordApp = CreateObject("word.Application")
   wordApp.documents.Open("http://www.domein.nl/test/" + wordDoc + ".doc")
   wordApp.Visible=true
   wordApp.Activedocument.Variables("naam").Value="TheProspector"
   wordApp.Activedocument.fields.update
end function
Wanneer ik echter in de Value een letterlijke enter plaats, werkt de code niet meer. Wanneer ik er een \n in plaats, is in het geopende document ook letterlijk een \n te zien...

Hoe krijg ik in het door bovenstaande code geopende word-document een letterlijke Return te zien? (enter)

  • BtM909
  • Registratie: Juni 2000
  • Niet online

BtM909

Watch out Guys...

Harde enter: Chr(13)
Soft enter: Chr(11)

Ace of Base vs Charli XCX - All That She Boom Claps (RMT) | Clean Bandit vs Galantis - I'd Rather Be You (RMT)
You've moved up on my notch-list. You have 1 notch
I have a black belt in Kung Flu.


Verwijderd

Topicstarter
Ik ben (na een uur kloten) al een heel eind! Maar helaas zie ik in mijn Word document geen enter staan maar een niet herkend karakter... (niet herkende karakters worden weergegeven als vierkantje/rechthoekje) De replace komt dus wel over, maar het is voor Word niet duidelijk dat het om een enter gaat :'(
code:
1
wordApp.Activedocument.Variables("naam").Value = Replace( "TheProspector<br>Test", "<br>", Chr(13) )
Uiteraard heb ik ook Chr(11) en Chr(10) geprobeerd. Helaas zonder succes.

Edit: Ik ook altijd met m'n grote bek. Ik had Chr(11) getest op het moment dat het sowieso nog niet in orde was. Chr(13) deed het niet, maar Chr(11) dus wel!!! Thanx guys!

[ Voor 21% gewijzigd door Verwijderd op 08-02-2005 17:13 ]


  • Tom
  • Registratie: Juni 1999
  • Niet online

Tom

code:
1
VbCrLf


al geprobeerd?

oh het werkt al zie ik :P

[ Voor 29% gewijzigd door Tom op 08-02-2005 17:15 ]