Hård nød !! HASTER undgå standardmappe i word 2000
Jeg har lavet et \"intranet\" website til standarddokumenter, de forskellige links peger på word og excel dokumenter i forskellige mapper. Når der klikkes på et link åbner wordfilen og når der trykkes \"gem som\" kan man gemme en ny fil i den samme mappe som standarddokumentet. Dette sker uden problemer. Problemet opstår når websitet kører på et netværksdrev så vil Word gemme filen enten i standardmappen eller i den sidste mappe der blev gemt i. Hvordan kan jeg få word til at gemme i den mappe den åbnede fil ligger i ??
Kan man evt. i sit hyperlink angive hvor Word skal gemme filen ?
NB. Problemet gælder ikke i Excel og som sagt heller ikke når sitet ligger på et lokalt drev.
I dette særtema om aspekter af AI ser vi på skiftet fra sprogmodeller til AI-agenter, og hvordan virksomheder kan navigere i spændet mellem teknologisk hastighed og behovet for menneskelig kontrol.
Alle standarddokumenter ligger i hver deres mappe for at holde styr på alle de filer der bliver genereret. Det er altså forskellige mapper hele tiden der skal gemmes i
Det kan du ikke .. Der vil jo altid være en mappe den starter i, og det kan ikke være random .. Du kunne jo lave C:, D: eller E: som standard .. Det gør du ved samme fremgangs-måde som ved mit første svar.
Når jeg har websitet liggende på det lokale drev foreslår word som udgangspunkt at gemme filen samme sted som den fil der bliver åbnet, standarddokument \"a\" i mappen \"A\" åbnes, nyt dokument \"a1\" foreslås gemt i mappen \"A\". Ligeledes med standarddokument \"b\" i mappen \"B\" åbnes, nyt dokument \"b1\" foreslås gemt i mappen \"B\"
Du kan lave en lille makro, som måske startes fra et menupunkt, som startes med hver wordfil. Makro\'en kan f.eks. indeholde ActiveDocument.AttachedTemplate.Path som returnerer hele stien på den skabelonfil, som dokumentet er oprettet efter. Jeg leger lidt videre....!
Dette er en mulighed: Sub FilGemSom_01() Dim sFilePath As String sFilePath = ActiveDocument.AttachedTemplate.Path & Application.PathSeparator SendKeys sFilePath Application.Dialogs(wdDialogFileSaveAs).Show End Sub
Denne virker også fint: 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
Er det lykkedes dig, så accepter mig svar - ellers må du opgive din mailadresse så jeg kan sende dig lidt info om VBA editoren. Vil du ikke have din mail-adresse her, så mail mig !!
Din korte introduktion til makrooptageren skaber problemer. - skal man manuelt køre makroen hver gang ? - min word version siger at brug af makroer ikke enabled
Nu kan jeg køre makroen, men der sker det at når filen åbnes via et link på et netværksdrev så virkerMakroen ikke den gemmer filen på c:\\. Endvidere kan jeg ikke få mine værktøjslinjer frem i Word når makroen kører.
Ja, du kan ikke få fat i dine værktøjslinjer imens en makro kører - standard Word.
Det kan være, at vi skal tage det sidste via telefonen - min mobil er uden fordækning her, men jeg kan ringe til dig - send til tlf. til fd@win-consult.com så kigger vi på det.
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.
