Hetzelfde bestand meerdere keren onder dezelfde naam opslaan

[eX0duS]

Stel je hebt een Word bestand, dit bestand heet Bestand_a.doc.
Nu is dit opgeslagen in de map c:\Bertje,
Maar dit bestand moet ook automatisch in de map c:\Pietje, en c:\Jantje opgeslagen worden, onder dezelfde naam.
Als Bestand_a in de map c:\Bertje aangepast word, moet ook automatisch het bestand in de overige mappen bewerkt en opgeslagen worden.

Hoe krijg ik dit voor elkaar?

[ Voor 3% gewijzigd door eX0duS op 25-04-2003 09:05 ]

[SileX]

in XP heb je de optie 'synchronise' onder program\accesories

succes !

EDIT - oei, net even gekeken, niet wat je zoekt - sorry

[ Voor 35% gewijzigd door SileX op 25-04-2003 09:15 ]

[Arunia]

Als je nu eens batch-bestand maakt zodat als je een file in de eerste map staat dat deze dan gewoon de inhoud van de gehele map kopieerd naar de andere mappen. Is een stuk simpeler. Wordt alleen zwaarder naarmate er meerdere bestanden in komen te staan.
Naar mijn weten is het niet echt anders te doen.

/edit
Kan dus toch
/edit

[ Voor 5% gewijzigd door Arunia op 25-04-2003 09:16 ]

[eX0duS]

Er is dus geen mogelijkheid om dit in Word (XP) zelf te doen, dus dat moet met een externe functie?

[Mike78]

eX0duS schreef op 25 April 2003 @ 09:19:
Er is dus geen mogelijkheid om dit in Word (XP) zelf te doen, dus dat moet met een externe functie?

Inderdaad, je zult het of met een programma'tje moeten doen of een batch bestandje maken.

[eX0duS]

Het is nog iets lastiger.
Pietje mag bijv. niet in Jantje's map kunnen kijken, maar ze moeten wel allebei hetzelfde bestand bevatten.
En Truus die de documenten typt, slaat dit op in c:\Documenten, en daarna moet het automatisch ook in c:\Pietje, c:\Jantje etc. geplaats worden.

Dit kan trouwens ook niet met een macro?

[ Voor 9% gewijzigd door eX0duS op 25-04-2003 09:31 ]

[SileX]

je kan een macro een save command geven, en een save as... command

Hier mee zou het wel kunnen - wel een idee; maar ik ben er niet goed in !!! lol

[Verwijderd]

Beforesave-event afvangen, dirs bepalen, bestand opslaan in die dirs.
Het niet lezen - wel schrijven gedeelte kun je afhandelen met NTFS-rechten op de dirs.

[eX0duS]

Ja dan moet ik dus met Visual Basic code werken, maar tot nu toe heb ik dit:

code:

' Macro1 Macro
' Macro opgenomen op 25-4-2003 door J.C. Soetens
'
    ChangeFileOpenDirectory _
        "C:\Documents and Settings\Eigenaar\Mijn documenten\blingbling\"
    ActiveDocument.SaveAs FileName:="Bestand A.doc", FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False
End Sub

[ Voor 7% gewijzigd door eX0duS op 25-04-2003 09:46 ]

[SileX]

kan je die macro niet 'dubbel' maken, zodat hij 2 keer saved ??

[eX0duS]

Hmz, met die macro's dat werkt ook niet echt...

[eX0duS]

SileX schreef op 25 april 2003 @ 09:50:
kan je die macro niet 'dubbel' maken, zodat hij 2 keer saved ??

Heb ik geprobeerd, maar dat werkt niet.
En Word gaat uit zichzelf ook geen mappen aan maken.
Verder weet ik niet, hoe de directory structuur van de computer waar het uiteindelijk op moet komen staan, eruit ziet.

[evaarties]

Kan je geen snelkoppeling maken naar het bestand. En het bestand zet je dan in een gezamenlijke directory?

[eX0duS]

Ja ik vind het een beetje een vage opdracht, maar ja ik probeer het toch maar uit te zoeken.

[Verwijderd]

Je kunt ook één keer opslaan met de save-as functie, daarna een Filesystemobject opnemen en de bestanden daarmee kopiëren. Ik denk ook dat dat net iets sneller 'kopieert'. Druk op F1 in de VBa-editor en type bij zoeken op Filesystemobject. Er zijn in de help veel voorbeelden beschikbaar.

[SileX]

als je Exchange gebruikt, en Outlook clients, kan je public folders maken en daar de zooi delen - kan je ook rechten aan toevoegen.

[Arunia]

Degene die de documeneten maakt moet dan rechten hebben om te schrijven in de map van jantje en pietje. Anders werkt die hele save as comand niet.

[eX0duS]

Ik ben even wat uit aan het testen met FileSystemObject, maar dit werkt geloof ik ook niet echt.

[Verwijderd]

Laat je code maar zien... want dat kan zeker werken. Als de gebruiker rechten heeft op de mappen iig. Test 't anders gewoon in c:\temp, met daarin wat subdirs.

[eX0duS]

code:

Sub Macro1()

Set fs = CreateObject("Scripting.FileSystemObject")
Object.CreateFolder ("c:\Jantje")
Set a = fs.CreateTextFile("c:\Pietje\Bestand_a.txt", True)
a.WriteLine ("bladiebladiebla.")
a.Close

End Sub

Ja hier klopt dus geen zak van, ik heb verder ook geen ervaring met VB.
Hij maakt wel een file aan met bladiebladiebla. erin.

[Verwijderd]

Hmm, toch even die save-as geprobeerd... Onderstaand geeft 't idee wel aardig aan.
D'r is blijkbaar niet zoiets als een BeforeSave zoals in Excel... jammer.

Visual Basic:

Private Sub Document_Close()
'Tijdelijke ding voor idee
Dim loosDing As Single
loosDing = 1

'Vraag stellen of opgeslagen moet worden...

'Als vraag akkoord is...
If loosDing = 1 Then
    ActiveDocument.SaveAs FileName:="c:\temp\Text.rtf", FileFormat:=wdFormatRTF
    ActiveDocument.SaveAs FileName:="c:\temp\Text2.rtf", FileFormat:=wdFormatRTF
    ActiveDocument.SaveAs FileName:="c:\temp\Text3.rtf", FileFormat:=wdFormatRTF
Else
    MsgBox "Documenten NIET opgeslagen."
End If

End Sub