Prøv at bruge Værktøjslinien AutoTekst. Klik på "Alle" og vælg
"Sidehoved og fod".
Der ligger både filnavn og sti+filnavn, ligge til at klikke ned hvor
det skal bruges.
--
mvh
pre
"M!" <morten.vinther@sol.dk> wrote in message
news:3eb236a0.11442934@news.tele.dk...
| Hej igen..
|
| Mange tak, men er der ikke andre muligheder???
|
| Det eneste jeg vil er at hver gang dokumentet (det er ikke
generelt -
| dvs. det skal ikke ligger normail.dot) udskrives så kommer det i
eks.
| 3 kopier.
|
| På forhånd tak
|
| M!
|
| On Fri, 2 May 2003 08:05:40 +0200, "Leo Heuser"
| <leo.heuser@adslhome.dk> wrote:
|
| >Hej Morten
| >
| >Med hensyn til events i Word er her et af mine tidligere svar,
| >som skulle kunne sætte dig igang
| >
| >
| >Citat begynd:
| >
| >
| >> > Hej gruppe.
| >> >
| >> > Er det muligt at få Word 2000 til at vise stien til det åbne
dokument i
| >fx
| >> > statuslinien? (som i WordPro)
| >> >
| >> > Jeg ved det er muligt at få den indsat som felt i dokumentet,
men det er
| >> > ikke det jeg er ude efter. Det er udelukkende som
orienteringsredskab
| >når
| >> > der er flere dokumenter åbne på samme tid.
| >> >
| >> > --
| >> > Hilsen
| >> > Palle
| >
| >
| >Palle
| >
| >Det kan godt lade sig gøre, og jeg forstår godt Kurts kommentarer.
| >Det er vist en følelse alle hjælpere, inklusive undertegnede,
kender
| >I Word 97 findes 3 automakroer, der har med dokumentet at gøre:
AutoNew,
| >AutoOpen og AutoClose.
| >Desuden findes 2 automakroer, der virker i forbindelse med
åbning/lukning af
| >Word: AutoExec og AutoExit.
| >
| >Den gode nyhed er, at antallet af hændelser (events) er blevet
væsentlig
| >øget i Word 2000 (med 12 stk),
| >den dårlige nyhed er, at det kræver noget "håndarbejde" at få fat i
dem, men
| >har du først prøvet det et par gange, er det ikke så slemt
| >Den event, der skal bruges i denne sammenhæng, er WindowActivate,
som finder
| >sted, hver gang et dokumentvindue bliver aktiveret.
| >
| >Her er en beskrivelse af, hvordan du får det til at fungere. Alt
bliver
| >implementeret i Normal.dot, så det kan bruges af alle dokumenter.
| >
| >Først skal der dannes et class-modul:
| >1. Gå til VBA-editoren med <Alt><F11>
| >2. Find "Normal" i projektvinduet (øverst til venstre). Hvis det
ikke er
| >åbent, så åbn med <Ctrl>R
| > Åbn properties-vinduet med <F4>, hvis det ikke er åbent i
forvejen.
| >3. Højreklik "Normal" og vælg Insert > Class module.
| >4. Giv klassemodulet et nyt navn i properties vinduet (name) fx
| >WordApplikation
| >5. Klik i kodevinduet og skriv øverst i vinduet Public
WithEvents
| >MyWord As Word.Application
| > Nu er applikationsobjektet (MyWord) defineret, og du kan
bruge de
| >events, der hører til det.
| >6. Klik i den venstre listeboks og vælg MyWord
| >7. I højre listeboks vælges WindowActivate og følgende kode
indsættes:
| >
| > Private Sub MyWord_WindowActivate(ByVal Doc As Document,
ByVal Wn As
| >Window)
| > Application.StatusBar = ActiveDocument.FullName
| > End Sub
| >
| > I stedet for Application.StatusBar =
ActiveDocument.FullName kan du
| >indsætte
| > Application.ActiveWindow.Caption = ActiveDocument.FullName,
som
| >foreslået af Mads.
| >
| >Nu er klassen oprettet, og der mangler kun en rutine, der
initialiserer
| >objektet MyWord, hver gang Word starter op.
| >Denne rutine skal placeres i et almindelig modul.
| >
| >8. Vælg Insert > Module og giv modulet et nyt navn fx
"Stinavn" uden
| >"gåseøjne".
| >9. Indsæt følgende kode i modulet.
| >
| >Dim MyWord As New WordApplication
| >
| >Sub InitialiserObject()
| > Set MyWord.MyWord = Word.Application
| >End Sub
| >
| >Så mangler vi "blot", at denne rutine kører hver gang Word åbnes.
Dette
| >gøres ved at kalde rutinen fra Open-hændelsen i Normal.dot
| >
| >Igen i projektvinduet find "Normal", åbn "Microsoft word objects"
og
| >dobbeltklik ThisDocument
| >Vælg "Document" i venstre rulleliste og "Open" i højre rulleliste.
| >Indsæt koden:
| >
| >Private Sub Document_Open()
| > InitialiserObject
| >End Sub
| >
| >
| >10. Gem Normal.dot med fx <Ctrl>s
| >
| >Så skulle den være klar.
| >Næste gang du åbner word, vil du kunne skifte mellem de åbne
dokumenter, og
| >stinavnet vil
| >stå enten i statuslinien eller øverst i titellinien.
| >Går der "kage" i implementeringen, er du velkommen til at maile.
| >
| >Med venlig hilsen
| >LeoH
| >
| >Citat slut.
| >
| >
| >--
| >Med venlig hilsen
| >Leo Heuser
| >MVP Excel
| >
| >Followup to newsgroup only, please.
| >
| >"M!" <morten.vinther@sol.dk> skrev i en meddelelse
| >news:3eb11441.24230701@news.tele.dk...
| >>
| >> Hej drenge,
| >>
| >> Jeg har lavet lidt printstyring i Excel vha. BeforePrint - I
Excel er
| >> der mange forskellige i samme stil, men jeg kan kun finde New,
Open og
| >> Close i Word. Kan det passe?
| >>
| >> Hvordan kan jeg ændret antal kopier ifm. udskrivning?
| >>
| >> På forhånd tak.
| >>
| >> M!
| >
| >
| >
| >
|