Office document tegelijkertijd opslaan op 2 locaties

[Verwijderd]

Hallo allemaal,

Ik ben nieuw op dit forum . Hier mijn eerste vraagje:

Kent iemand een plug-in / tool om vb. een Word-document tegelijkertijd op 2 locaties op te slaan (vb. op vaste PC en lap-top die beiden in een netwerk hangen)? Er bestaan pakketjes (vb. 2xexplorer, zie http://www.netez.com/2xExplorer) die kunnen kopiëren naar 2 locaties, maar een plugin om van in een Office toepassing (Word, Excel, ...) direct naar 2 locaties "saven" heb ik niet gevonden.
Die plugin / tool (liefst freeware) zou moeten werken in Office 2000 en / of Office XP.
Alvast dank !!

[freddifish]

welkom! wat je zoekt bestaat volgens mij niet in deze vorm, wel kun je directories automatisch mirroren, dus dat alles wat je op PC 1 in c:\docs saved ook naar c:\docs op pc 2. Powerquest datakeeper kan dit volgens mij maar ook de folder synchronisatie in win2k/xp

[Blister]

Je kan ook een Macro schrijven en die in je Normal.dot hangen. Deze zorgt er dan voor dat je het document altijd op 2 plaatsen op slaat

[Uit het hoofd]

Sub AutoSave()

ChangeFileOpenDirectory "DIR - 1"
ActiveDocument.SaveAs Newnaam

ChangeFileOpenDirectory "DIR --2"
ActiveDocument.SaveAs Newnaam

End Sub

[/Uit het hoofd]
Type foutjes voorbehouden, ff stoeien met de Macro editor en de F1...

[F_J_K]

Inderdaad welkom op GoT

Een tooltje of plugin die dat zo doet ken ik eigenlijk niet (misschien iemand anders). Maar wat je in ieder geval kan doen is een klein VBA scriptje maken om het zelf te doen.

Met ActiveDocument.SaveAs FileName:="d:\naam.doc", AddToRecentFiles:=False kan je een bestand opslaan (dat addtorecentfiles is om het niet in het recent files menu terug te laten komen, wat me overdreven lijkt voor de tweede kopie. Dit kan je evt. weglaten bij de eerste.

Een snelle start:

code:

naam = InputBox(prompt:="Hoe moet het heten?", _ 
   Default:=ActiveDocument.Name)
If Not Right(naam, 4) = ".doc" Then naam = naam & ".doc"
ActiveDocument.SaveAs FileName:="C:\bla\" & naam
ActiveDocument.SaveAs FileName:="d:\" & naam, _ 
    AddToRecentFiles:=False

Dit kan je in normal.dot of in het te kopieren bestand zetten en aan een aparte knop hangen; of zelfs de huidige save optie vervangen

edit:

Blister: Great minds think alike

[ Voor 5% gewijzigd door F_J_K op 27-09-2003 14:10 ]

[Verwijderd]

Aan allen hartelijk dank !!!
Het werkt inderdaad!
Thanks en tot horen !