16. september 2001 - 21:45Der er
10 kommentarer og 1 løsning
Gem vedhæftede filer et bestemt sted
En bekendt af mig er blind. Når hun åbner via en vedhæftet fil fra en email åbner Word97 som et associeret program, så er det et problem for hende, at Word ikke foreslår mappen Dokumenter, når hun vil gemme. Det er meget besværligt for hende at finde frem til den rigtige mappe. En tastaturmakro ville være en stor hjælp for hende. Hvordan skal den se ud, hvis den skal foreslå filen gemt i Dokumenter under det aktuelle navn? Jeg har set lidt på det, Word selv kan lave i VBA:
Sub MakroGemSom() mydocname = ActiveDocument.Name ChangeFileOpenDirectory \"C:\\Dokumenter\" ActiveDocument.SaveAs FileName:=mydocname, FileFormat:=wdFormatDocument, _ LockComments:=False, Password:=\"\", AddToRecentFiles:=True, WritePassword _ :=\"\", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ False End Sub
Denne makro virker ikke tilfredsstillende, for den prompter ikke for filnavn, men gemmer bare. Hvordan får man \"Gem som...\" til at vente på navnet?
Virksomheder er på vej fra store sprogmodeller, der svarer på spørgsmål, til AI-agenter, der kan udføre opgaver på egen hånd. Det gør teknologien mere nyttig – og langt mere risikabel.
Sub FilGemSom_01() Dim sFilePath As String sFilePath = ActiveDocument.AttachedTemplate.Path & Application.PathSeparator SendKeys sFilePath Application.Dialogs(wdDialogFileSaveAs).Show End Sub
Sub FilGemSom_02() Dim sSvar As String Dim sFilePath As String sFilePath = ActiveDocument.AttachedTemplate.Path & Application.PathSeparator sSvar = InputBox(\"Indtast filnavn f.eks. Energirapport\", \"Indtast filnavn\") If sSvar <> \"\" Then ActiveDocument.SaveAs FileName:=sFilePath & sSvar Else MsgBox \"Der blev ikke indtastet et filnavn, FILEN ER IKKE GEMT\", _ vbCritical, \"Systeminformaiton\" End If End Sub
Det er da nemmere at gøre det i Word! I Word gå til Funktioner > Indstillinger > filplaceringer. Der vælger du den filtype du vil ændre på og klik på redigér. Så skulle den være i vinkel.
Jeg mener da at podatas svar er udmærket, hvis først dokumenter er åbnet i Word, så er det da en udmærket løsning. Din ven kan så gemme, vha tastaturgenvejen og hvis Word er indstillet rigtigt som podata har beskrevet, så må resten da give sig selv ?
Det var naturligvis min første tanke, at man kunne klare den med indstillinger i Word; men den vedhæftede fil ER jo allerede gemt et eller andet sted - fx i TEMP, og så vil Word automatisk foreslå at gemme filen dér.
>>> flemmingdahl: sFilePath kommer til at stå i Filnavn som stivejen til skabelonen Normal, så det duer ikke. Den foreslåede mappe er også stadig dén, hvor den vedhæftede fil ligger gemt. Min egen makro gør det rigtigt - men viser ikke DialogFileSaveAs...
Hvis man indretter sig med en \"alt-mulig-mappe\" - her C:\\Dokumenter, hvori man altid gemmer sine vedhæftede filer, inden man gemmer dem det rigtige sted, så vil følgende virke:
Denne makro vil gemme filen i Dokumenter og umiddelbart efter åbne Gem som... Så kan man altså gemme én gang til i den ønskede mappe. En brugbar, men ikke helt tilfredsstillende løsning. Nu har man jo filen liggende 3 steder! Spørgsmålet er, om man kan dirigere alle postprogrammer til at gemme filerne i Dokumenter, for så var man jo helt ude over problemet.
Jeg har en \'gemme\' makro som ligner \'jerner\'s en hel del, men den afsluttes med >> Kill mydocname som så fjerner den udgave der blev gemt med >> ActiveDocument.SaveAs FileName:=mydocname ulempen er så at man ikke må vælge at gemme med det foreslåede navn (for så forsvinder deókumentet jo lige så stille igen !)
Min bekendte har været tilfreds med den løsning jeg skitserede i min kommentar à 17/9 kl. 11:01:01, så det betragter jeg som svar og lukker hermed spørgsmålet.
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.
