Hej jeg er IKKE god og det nedenstående er mit første forsøg på at lave en makro. Den virker dog ikke :( Det jeg gerne vil nå frem til at jeg kan gemme i 3 mappper når jeg trykker på en genvejstast i hurtig menu. F.eks, G drev, min dropbox folder og en backup dropbox folder!!. Jeg har prøvet med det understående men den gemmer "kun" et sted.?
Sub Autogem() ' ' Autogem Makro ' Autogem 2 steder ' ActiveDocument.SaveAs FileName:="Test af autogem på dropbox backup.doc", _ FileFormat:=wdFormatDocument, LockComments:=False, Password:="", _ AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _ EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _ :=False, SaveAsAOCELetter:=False ChangeFileOpenDirectory "G:\Dropboxbackup 2\" ActiveDocument.SaveAs FileName:="Test af autogem på dropbox backup.doc", _ FileFormat:=wdFormatDocument, LockComments:=False, Password:="", _ AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _ EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _ :=False, SaveAsAOCELetter:=False End Sub
Jeg kan godt selv se der kun er en destination "G:\Dropboxbackup 2\" Men jeg ved ikke hvordan jeg tilføjer flere i editor.
Det skal lige siges jeg selv har prøvet at "indspille" med "udvikler værktøj" og bare har klikket rundt med mus på 2 steder men det virker som sagt ikke optimalt så kan godt være jeg har gjort noget forkert.
Ideen er at når jeg trykker på knappen ligemeget hvilket dokument ( f.eks. dokument 1, michaels indlæg til projekt, privat mail til peter, osv osv) jeg skriver i at den så gemmer på 2-3 destinationer! F.eks. 1 harddisk 2 ekstern harddisk 3 en bestemt mappe
Og det ved hjælp af den "hurtig knap" jeg selv har lavet.!
Kunne godt tænke mig et makro "scrpit" hvor jeg bare skal indsætte de stier jeg selv har.
Jeg ved ikke om det er muligt med en så "simpel" makro, har bare en kammerat der havde fundet en engang som stadig virker men ikke kan huske hvor han har fra.
Synes godt om
Slettet bruger
06. januar 2010 - 17:36#3
Noget i denne stil?
Sub Autogem() ActiveDocument.Save ActiveDocument.SaveAs FileName:=ThisDocument.Name ActiveDocument.SaveAs FileName:="G:\Dropboxbackup 1\" & ThisDocument.Name ActiveDocument.SaveAs FileName:="G:\Dropboxbackup 2\" & ThisDocument.Name End Sub
i forhold til første post er det første gang jeg prøver at rode med makro.
Så ved ikke om thisdocument.doc er universal for "lige meget hvilket dokument( word doc)" jeg arbejder i, og ja hvis g:dropbox1 bare kan ændres til en sti så er det noget ala det der ;)
Synes godt om
Slettet bruger
06. januar 2010 - 22:45#5
Du skal nok lægge makroen i Normal projektet - det er master templaten for alle dine dokumenter og dermed vil funktionen være tilgængelig overalt.. Hvis du lægger makroen i thisdocument.doc, vil det enten ikke virke, eller word vil åbne dokumentet i baggrunden hver gang.
Vil du forklare hvor jeg "lægger makroen i normal projektet"
Det jeg som sagt søger er at når jeg åbner en nyt dokument og så skriver noget og siger "Gem som" vælget et navn der kan hedde dokument michael 1. og så trykker på min makro knap" så gemmer den på en: ekstern harddik der hedder g:
Og den gemmer i en lokal mappe der hedder c: documents and settings/.. Dropbox ( som sykkronisere over nettet
Og den skal gemme i en mappe på skrivebordet.
Er det muliggt overhovedet ???
Synes godt om
Slettet bruger
11. januar 2010 - 10:02#7
Ja det er muligt.. I Visual Basic editoren skal du lede efter Normal projektet i Project explorer (hvis den ikke er vist, kan du vise den ved at trykke Ctrl + R).
Du skal højreklikke på Normal projektet og vælge Insert -> Module. I det modul, der bliver oprettet, skal du lægge din kode.
Jamen der kommer en blank fejlboks hvor jeg kan trykke luk. Og filer bliver ikke gemt.
Alle destinationer er tilgængelige, og der er skrivemligheder på alle steder også.
Det er jo ikke voldsomt mange kommandoer der kan være fejl ;)
Synes godt om
Slettet bruger
12. januar 2010 - 10:59#12
Prøv denne. Jeg har tilføjet \ ved nogle af stierne. Jeg har desuden tilføjet "stop" kommandoen, der vil pause scriptet, så du kan følge med i, hvilke linjer, der giver fejl. Kommer der fejl nu? og i hvilke linjer?
Sub Autogem() stop ActiveDocument.SaveAs FileName:=ThisDocument.Name stop ActiveDocument.SaveAs FileName:="G:\Dropboxbackup 1\" & ThisDocument.Name stop ActiveDocument.SaveAs FileName:="C:\Users\df\Documents\My Dropbox\" & ThisDocument.Name stop ActiveDocument.SaveAs FileName:="C:\Users\df\Desktop\Back up dropbox\" & ThisDocument.Name stop End Sub
Jamen der kommer stop ved første stop angivelse: Sub Autogem() stop <------ ActiveDocument.SaveAs FileName:=ThisDocument.Name stop ActiveDocument.SaveAs FileName:="G:\Dropboxbackup 1\" & ThisDocument.Name stop ActiveDocument.SaveAs FileName:="C:\Users\df\Documents\My Dropbox\" & ThisDocument.Name stop ActiveDocument.SaveAs FileName:="C:\Users\df\Desktop\Back up dropbox\" & ThisDocument.Name stop End Sub
Synes godt om
Slettet bruger
12. januar 2010 - 11:27#14
tryk på play knappen - så kører den indtil den møder stop igen.
Jeg kan ikke gemme dokument der bruges af anden proces.
Synes godt om
Slettet bruger
12. januar 2010 - 14:28#16
Prøv at benytte activedocument.name i stedet.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.