åben / luk kode

Placer den makro, som skal køre, når dokumentet åbnes i Document_Open (findes i ThisDocument).

Din "lukkeknap" - den skal altså lukke alle åbne Word-dokumenter uden at gemme og lukke Word? Er det ikke en smule farligt?

Det er ikke dokumentet jeg vil have til at åbne men at få makroen til at kører så snart du åbner det dokument hvor i makroen er knyttet. I dette tilfælde skal den åbne en input boks. Du har nok ret i at det måske vil være farligt at lukke word helt ned, men i dette tilfælde gør det ikke så meget. Har du koden vil jeg sætte stor pris her på!

Jeg ved godt, at det ikke er dokumentet, du vil have åbnet, men du skal flytte din makro til det event, der hedder Document_Open. Dobbeltklik på ThisDocument i kodevinduet, vælg Document fra den første rulleliste og derefter Open i den næste.

*******
Public Sub LukAlleDokumenterOgWord
    Dim objDoc As Document
   
    For Each objDoc In Application.Documents
        If Not objDoc = ActiveDocument Then
            objDoc.Close wdDoNotSaveChanges
        End If
    Next objDoc
   
    Application.DisplayAlerts = wdAlertsNone
    Application.Quit

End Sub
**********
Obs! Husk nu endelig at gemme "manuelt", inden du fyrer ovenstående kode i luften, for ellers ryger dine ændringer.

Hej igen og rigtig mange tak for dit input dog har jeg gjort lige som du har skrvet mht. at få afspillet makroen når dokumentet åbnes. Selve lukke koden virker perfekt. Som du selv var inden på er det måske dumt at den lukker hele word såfremt der er andre dokumenter åben. Kan man gøre det sådan at den lukker word såfremt der ikke er andre dokumenter åbne, og hvis der er så lukkes kun det program hvor i koden er skrevet.

Jeps :-)

**************
Public Sub LukDetteDoc
    If Documents.Count = 1 then
        application.displayalerts=wdalertsnone
        application.quit
    end if
End Sub

Fik formuleret mig dårligt - det med af få afspillet makroen ved åbning af dokumentet virker ikke, har ellers gjort lige som du har skrevet - det er super fedt sidste kode virker også super - Du er bare en haj ;o) og kan du lige hjælpe mig med det sidste så vil det bare være vildt fedt. På forhånd tak for hjælpen.

Kan du afspille din makro når du står i dokumentet (manuelt)?

Er det en skabelon? Hvor du så laver et nyt dokument hver gang? For så skal koden placeret i Document_New og ikke Document_Open.

Jeg tænkte faktisk først på din makrosikkerhed, men da du kan afspille "lukkekoden", kan det ikke være det.

Hej Igen Word-hajen....
Det er et blankt dok. hvor i jeg har en knap (åbner makroen) den åbner en formular hvor i der er en tekstboks og en listboks tilknyttet et accesdokument. Det eneste jeg vil have er at man ikke skal trykke på en knap før den afspiller makroen. formularen skal være der når man åbner worddokumentet. Det makroen gør er at man i tekstboksen kan søge på en by eller et postnr. hvorefter man i listboksen for en liste med byer og postnr. Det bør lige nævnes at det ikke er en skabelon og at makro sikkerheden er sat til lav. Jeg benytter word 2007. Håber at det var mere indput til at du ved hvad det er jeg mener.

Jeg er helt med på, hvad du gerne vil. Og tak for de sidste info. Hvis din makrosikkerhed er sat til lav og du har placeret den rigtige kode i Document_Open-eventet, bliver det også fyret i luften, når du åbner dokumentet.

Har du selv kreeret Document_New-eventet, eller har du været inde i ThisDocument og dannet proceduren ved at vælge fra de 2 rullelister?

Du må meget gerne kopiere din kode herind, så jeg kan se den eller sende mig din fil (send til lemontree snabelting jubii dot dk).

sorry word-hejen du skal komme med et svar ellers kan jeg ikke give dig pointne så gør det og pointne er dine. Tak for din super hjælp

Jeg kommer gerne med et svar, men har du fået løst problemet?

Tak for filerne. Hvis du bruger Word 2007, hvorfor er dit dokument så ikke gemt i 2007-format?

Dit sikkerhedsniveau skal du sætte til en af følgende (har engelsk version):

- disable macros with notification
- enable all macros

Mht. at få fyret din formular i luften, når du åbner dokumentet, skal du placere følgende kode i ThisDocument, se min kommentar af 09/09-2007 11:55:10:

Private Sub Document_Open()
    Call FindPostnrBy
End Sub

I den mail, du har sendt mig, efterspørger du koden til at lukke dokumentet og Word, hvis der kun er det ene dokument åbent. Koden hertil finder du i min kommentar af 12/09-2007 19:21:39.

Word-hajen er bare super - selv lukke koden som han har lavet virker helt fint - dog mht auto opstart af makroen virkede dette ikke. jeg fandt selv en løsning:

Private Sub Document_Open()
ActiveDocument.RunAutoMacro Which:=wdAutoOpen
End Sub

Men alt i alt så har word-hajen været en super hjælper - så tak for det!

Velbekomme (ps! hajen er en kvinde ;-))

Hmmmm jeg er ikke mindre inponeret - men I´m so sorry. *<|:o)

Ti-hi... alt forladt. Det er jo ikke lige til at vide.