Check alle échte Black Friday-deals Ook zo moe van nepaanbiedingen? Wij laten alleen échte deals zien
Toon posts:

[VBA/Word2007] Document automatisch opslaan *

Pagina: 1
Acties:

Verwijderd

Topicstarter
Ik heb in word met behulp van verzendlijsten > adressen selecteren > bestaandelijst gebruiken een verbinden gemaakt met een view uit een sql database. In de view staat alle informatie die ik wil toevoegen aan het document/template. Dit werkt ook helemaal perfect.

Nu wil ik met behulp van VBA het document automatisch opslaan in een map. ik gebruik hiervoor de functie

code:
1
2
3
4
5
6
ActiveDocument.SaveAs FileName:= _
    "http://sps/ICT/Offertes/" + Jaar + "/DOC/" + Offertenummer + " " + Klantnaam + ".doc", _
     FileFormat:=wdFormatDocument, LockComments:=False, Password:="", _
     AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
     EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
     :=False, SaveAsAOCELetter:=False


Nu wil de dus de bestandsnaam opbouwen uit 2 waarde uit de view. Het offertenummer en de klantnaam. De tabelnamen in de view zijn Completenummer en Firmanaam.
Hoe kan ik dus deze 2 waarden in een variable stoppen binnen VBA?

Ik maak gebruik van Word 2007
Ik ga er vanuit dat ik activedocument.mailmerge moet gebruiken maar heb al vanalles geprobeerd maar krijg het niet voor elkaar.

[ Voor 0% gewijzigd door Verwijderd op 05-03-2009 14:55 ]


  • RobIII
  • Registratie: December 2001
  • Niet online

RobIII

Admin Devschuur®

^ Romeinse Ⅲ ja!

(overleden)
Waar hoort mijn topic?
PRG >> OFF

En zou je voortaan ook wat meer aandacht aan je topictitel willen besteden? VBA is nogal breed :X
VBA >> [VBA/Word2007] Document automatisch opslaan

Overigens is het teken voor stringconcatenatie niet & i.p.v. + ?

[ Voor 54% gewijzigd door RobIII op 05-03-2009 14:06 ]

There are only two hard problems in distributed systems: 2. Exactly-once delivery 1. Guaranteed order of messages 2. Exactly-once delivery.

Je eigen tweaker.me redirect

Over mij


Verwijderd

Topicstarter
Ik heb het probleem ondertussen kunnen oplossen met de volgende functie binnen VBA:

code:
1
2
3
4
5
6
7
8
9
 Offertenummer = ActiveDocument.MailMerge.DataSource.DataFields("completenummer").Value
 Klantnaam = ActiveDocument.MailMerge.DataSource.DataFields("Firmanaam").Value

ActiveDocument.SaveAs FileName:= _
"http://sps/ICT/Offertes/" & Jaar & "/DOC/" & Offertenummer & " " & Klantnaam & ".doc", _
FileFormat:=wdFormatDocument, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=False, SaveAsAOCELetter:=False


Ik heb nog nooit problemen ondervonden bij het gebruik van +.

[ Voor 0% gewijzigd door Verwijderd op 05-03-2009 14:56 ]


Verwijderd

ik heb even je posts aangepast en de code tags geplaatst.

het verschil tussen + en & als aaneenschakelingsoperator is het resulterende type van het resultaat en ze produceren tevens subtiele verschillen in het aaneenschakelingsresultaat naargelang de types van de samen te voegen delen.