Aktivere Word macro fra Excel

Kan du ikke bare ligge samme makro ind som genvej i Excel også??!!!

Hej Dimle

Jeg er ikke sikker på at jeg forstår dit svar. Jeg skal have skrevet det dokument ud der ligger i Word og efterfølgende lukke Word. Denne funktion ligger i Word makroen, men kunne principielt lige så godt ligge i Excel. Spørgsmålet er bare hvilken VB kode jeg skal skrive. Jeg synes snart jeg har prøvet 100 løsninger uden rigtigt at komme videre. Du må meget gerne uddybe dit svar.

På forhånd tak

Chris

Okay... så havde jeg også misforstået dig!!! :o) Altså du vil gerne have koden i VB der kan køre en makro i det åbne word-dokument(Word.Application)??? Er det sådan??

Hej Dimle

Ja nu er vi vist enige ;-).

Chris

Jamen det gør man sådan:

objWord.Run ("MakroNavn")


Hvor objWord er navnet på din Word.Application og MakroNavn er navnet på den makro du vil køre!

Hej Dimle

Det ser fint ud. Makronavnet gir sig selv, men hvordan sætter jeg objWord til at være = det aktive dokument i Word. Jeg indsæter lige lidt kode fra Excel.

Sheets("Kommentarer - forvent.").Activate
    ActiveSheet.Shapes("Objekt 1").Select
    Selection.Verb Verb:=xlOpen
    objword = word.Application
    objword.Run ("udskriv")
 
Det koden gør er at flytte et Wordobjekt der ligger på et Excel sheet til Word. Dokumentet i Word skal skrives ud. Dette gøres i Word med nedenstående makro. De to sidste linier i makroen er indsat på dit initiativ, men de virker ikke. Hvad gør jeg galt?

Sub udskriv()

    Application.DisplayAlerts = False
    Application.ScreenUpdating = False

    On Error GoTo jump

    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="",    PageType:=wdPrintAllPages, _
        Collate:=True, Background:=True, PrintToFile:=False '

jump:

    MsgBox "Der er opstået fejl i udskrivningen, prøv igen"

    Application.Quit

End Sub

Word makroen udskriver dokumentet og lukker Word.

Koden skal se således ud:


Dim objWord As Word.Application
Set objWord = New Word.Application 'Laver et nyt Objekt
Dim minWordFil As String

minWordFil = App.Path & "\Wordfil.doc" 'Sætter minWordFil = Stien hvor din Wordfil ligger!

objWord.Documents.Open (minWordFil) 'Åbner filen minWordFil i det nye objekt

Sheets("Kommentarer - forvent.").Activate
    ActiveSheet.Shapes("Objekt 1").Select
    Selection.Verb Verb:=xlOpen
    objword.Run ("udskriv")



Husk at du skal have en reference i dit projekt til Microsoft Word 8.0 eller noget i den stil afhængig af hvilken version du har!

Har du fået det til at virke??? Ellers må du jo spørge igen ik!!!

Hej Igen

Jeg har faktisk ikke fået det til at virke. Vi bruger Excel 97, så det er måske problemet. Hvis du har lyst kan jeg evt. maile den fil hvor jeg har problemet, så kan du måske få det til at virke.

Chris

Ja det må du gerne så kan jeg lige kigge på det - det kan godt være lidt tricky!!!

Min email er: DenRud@hotmail.com

Jeg er ikke helt sikker på hvad du vil ha mig til og hvor det er galt! Er det knappen Command2(Udskriv) inde i folderen "kommentarer - år til dato" inde i word-dokumentet - der er noget galt med???

Denne procedure:

Sub CommandButton2_Click()
   
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False

    On Error GoTo jump

    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        Collate:=True, Background:=True, PrintToFile:=False
   
    GoTo jump1

jump:

    MsgBox "Der er opstået fejl i udskrivningen, prøv igen"

jump1:
   
End Sub

Nej nu tror jeg måske jeg ved hvad du mener... Vil du have de to knapper "Print kommentarer - real." og "Print kommentarer forvent." på forsiden til at udskrive direkte i stedet for bare at åbne word-dokumentet!!!

...eller de sidte tre tegn fra sidste kommentar skulle nok have været ??? i stedet!