word document opslaan met vaste bestandsnaam
John
Ik heb een word-document met een aantal formuliervelden gemaakt. Deze velden
hebben allemaal een naam (=bladwijzer). Nu wil ik een aantal van de door de
gebruiker ingevulde velden gebruiken om een bestandsnaam samen te stellen.
Dus de 'inhoud' van bladwijzer 1 en bladwijzer 2 moet de bestandsnaam worden
(uiteraard aangevuld met .doc) op het moment dat het document afgesloten
wordt.
Ik heb me werkelijk suf zitten zoeken, maar heb nergens iets kunnen vinden,
waarin deze mogelijkheid in Word2000 beschreven wordt. Wellicht dat het wel
kan met het schrijven van een macro, maar....helaas...die kennis bezit ik
niet!
Iemand die het probleem ook al eens tegen het lijf gelopen is en een
oplossing gevonden heeft??? Graag!!
A.D.~Marc
Post uw document eens bij www.action-data.com
Groetjes,
Marc
"John" <j.sp...@hccnet.nl> wrote in message
news:aq10pd$epp$1...@news.hccnet.nl...
Astrid
Ik heb je vraag geloof ik ook al in een Engelstalige nieuwsgroep beantwoord? Maar voor de volledigheid hier een kopietje voor de mensen die op zoek zijn naar een soortgelijke oplossing:
<kopie>
Yes this is possible. If you want to change the suggested filename, use a macro like this:
--------------------------------------------------------------
Sub ChangeMyFileName()
Dim sFileName As String
Dim sPart1 As String
Dim sPart2 As String
'Get the values from the formfields
sPart1 = ActiveDocument.FormFields("FieldName1").Result
sPart2 = ActiveDocument.FormFields("FieldName2").Result
'Combine all to the filename
sFileName = sPart1 & sPart2
'Set the suggested filename
With Dialogs(wdDialogFileSummaryInfo)
.Title = sFileName
.Execute
End With
End Sub
--------------------------------------------------------------
If you really want to save the document from within your macro, use code like this:
--------------------------------------------------------------
Sub SaveMyFile()
Dim sFileName As String
Dim sPart1 As String
Dim sPart2 As String
Dim sPath As String
'Get the values from the formfields
sPart1 = ActiveDocument.FormFields("FieldName1").Result
sPart2 = ActiveDocument.FormFields("FieldName2").Result
'Combine all to the filename
sFileName = sPart1 & sPart2
'Define the path
sPath = "c:\"
'Save the file
ActiveDocument.SaveAs FileName:=sPath & sFileName
End Sub
--------------------------------------------------------------
<eind kopie>
Groeten,
Astrid
Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.
Bezoek de MVP Word FAQ site op http://www.mvps.org/word/
"John" <j.sp...@hccnet.nl> schreef in bericht news:aq10pd$epp$1...@news.hccnet.nl...
Ron Franken
Bedankt voor jouw antwoord. Helaas werkt het niet bij mij. De naam van
de bladwijzer wordt niet gepakt. Ik krijg de melding: 'het gevraagde lid
van de collectie bestaat niet'. Toch is de naam die ik ingevoerd heb
exact gelijk aan de bladwijzer...
Doe ik iets verkeerd?
Astrid
Gebruik je bladwijzers of formuliervelden? De code die ik gebruikte was voor formuliervelden. Als het echt bladwijzers zijn verander deze regels in de code dan:
sPart1 = ActiveDocument.FormFields("FieldName1").Result
sPart2 = ActiveDocument.FormFields("FieldName2").Result
in
sPart1 = ActiveDocument.Bookmarks("Name1").Range.Text
sPart2 = ActiveDocument.Bookmarks("Name2").Range.Text
Groeten,
Astrid
Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.
Bezoek de MVP Word FAQ site op http://www.mvps.org/word/
"Ron Franken" <ronfr...@fsmail.net> schreef in bericht news:3DC95E64...@fsmail.net...
Ron Franken
de toetsten "ctrl-s" uit te voeren? En is het mogelijk om er een bevestiging
tussen te plaatsen? (bvk het scherm van 'opslaan als')
Groeten,
Ron
"Astrid" <ast...@mvps.org> schreef in bericht
news:ehPBbJchCHA.1756@tkmsftngp12...
Astrid
> Dat werkt; is het ook mogelijk om alleen in dit sjabloon met deze code met
> de toetsten "ctrl-s" uit te voeren?
Je kunt een sneltoets aan een macro toekennen, kijk onder Extra - Werkbalken - Aanpassen - Toetsenbord. Selecteer aan de linkerkant de categorie Macros, aan de rechterkant de naam van de macro, en selecteer de sneltoets.
Let erop dat in 'Wijzigingen opslaan in' de juiste sjabloon is geselecteerd.
>En is het mogelijk om er een bevestiging
> tussen te plaatsen? (bvk het scherm van 'opslaan als')
---------------------------------------------
Sub ChangeMyFileName()
Dim sFileName As String
Dim sPart1 As String
Dim sPart2 As String
'Lees de waardes uit de bladwijzers
sPart1 = ActiveDocument.Bookmarks("Name1").Range.Text
sPart2 = ActiveDocument.Bookmarks("Name2").Range.Text
'Combineer beide tot een naam
sFileName = sPart1 & sPart2
'Zet de voorgestelde bestandsnaam
With Dialogs(wdDialogFileSummaryInfo)
.Title = sFileName
.Execute
End With
'Toon de opslaan dialoog
Dialogs(wdDialogFileSaveAs).Show
End Sub
---------------------------------------------
Ron Franken
Gerda Ten Hoonte
ik heb bovenstaande macro ook overgenomen, echter ik heb een word document 2016 gekoppeld aan een excelbestand.
Het word document haalt keurig de gevens op. Ik voeg het record dan niet samen naar een nieuw word document. De gegevens die in het
word document worden ingevuld b.v. <naam> haalt hij uit excel en deze heb ik dan als bookmark gekenmerkt.
De macro werkt heel goed tot de laatste stap het opslaan. Dan krijg ik de melding
Fout 5487 tijdens uitvoering: Word dan het opslaan niet voltooien vanwege een fout met de machtiging voor het bestand.
Heb op internet opgezocht en van alles geprobeerd, maar tot nu toe zonder succes.
Weet jij een oplossing?