Udskrive targets fra hyperlinks

Det er ikke en funktion, der findes i Word :-( Men man kan sikkert programmere sig til det...

Er det noget du så eventuelt kan hjælpe med.

hallo

Værsgo :-)

Sub UdskrivHyperlink()
'Husk at sætte en reference til Excel i VBA miljøet via
'Tools/References... Microsoft Excel x.x Object Library

Dim xlApp As Excel.Application
Dim hyp As Hyperlink
Dim Filnavn As String
Dim filtype As String

'Opretter Excelobjektet xlApp
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True


For Each hyp In ActiveDocument.Hyperlinks

    Filnavn = hyp.Name
    filtype = Mid(Filnavn, Len(Filnavn) - 2)
    If filtype = "xls" Then
        xlApp.workbooks.Open FileName:=Filnavn
        xlApp.ActiveWorkbook.PrintOut
        xlApp.ActiveWorkbook.Close SaveChanges:=False
    End If
Next

xlApp.Quit
Set xlApp = Nothing

End Sub

Great, jeg skal lige have filerne fra brugeren, så prøver jeg

Okay, det virker ikke. Skal jeg definere navnet eller stien på filerne et eller andet sted.

Case:
Jeg tilføjede bare et hyperlink i en Word fil, og prøvede så at udskrive.
Referencen skulle gerne være sat, hvis det er den via VB Editoren

Hvad er det der ikke virker - du må være lidt mee specifik :-) Hvis du debugger med F8, så se om variablen "Filnavn" indeholder stien og navnet på den fil der skal åbnes.

Den skriver simpelthen ikke filen i hyperlinket ud.

Ja - men åbner den filen?

nej

Øhh, hvordan kan jeg lige se, hvad Filnavn er?

Når du debugger koden - Placerer din kursor i koden, trykker F8 for hver linie indtil linien "filtype = Mid(Filnavn, Len(Filnavn) - 2)" er gul. Hold nu kursoren hen over variablen "Filnavn" og se hvad der står i den lille boks der fremkommer.

Ahh, hvis jeg holder musen stille hen over filnavn, så står der filnavn = "_TOC.....". Prikkerne er så nogle forskellige tal. Derudover ser det ud til at den gennemløbes flere gange, vel for at prøve at finde filen. Til sidst får jeg så fejlmeddelelesen, at filen ikke kan åbnes, og at jeg skal tjekke stavemåden eller stien.

TOC = Table Of Content = Indholdfortegnelsen (der også er hyperlinks)

Den gennemløber netop alle hyperlinks og leder efter nogle der ender på xls (altså en Excelfil)

Det virker fint hos mig - prøv at sende dit dokument til mig, så kikker jeg på det rvm (snabela) teknologisk (punktum) dk

Hermed sendt

Der er noget galt med dit hyperlink. Der står "test.xls", men filen hedder  "momentpåvirkede trykstang 110805.xls" - det er det der er galt.

Både og, først så havde jeg det rigtige navn, det gjorde bare ikke nogen forskel. Så tænkte jeg om det kunne være fordi navnet var for langt/havde specialtegn e.l., så jeg forsøgte med et andet navn, men selve linket var stadig det samme.

Hvad gør jeg forkert siden jeg ikke kan få det til at virke?

Jeg åbner word-dokumentet.

Indsætter et hyperlink (ctrl+i) til en Excel projektmappe

Klikker på det for at teste, at projektmappen kan åbnes. Det kan den.

Gemmer og lukker

Åbner Word filen med makro og trykker på udskriv, men kun word-dokumentet printes ud.

Hvis jeg prøver at gå ind og afspille makroen, for jeg fejlbeskeden, at jeg skal tjekke stavemåden fordi filen ikke kan findes.

jeg ved ikke lige hvorfor det ikke virker hos dig...

Angående udskriv, så er vi ikke kommet så langt endnu at det sker automatisk - det er næste skridt når makroen virker :-)

Prøv at sende et dokument til mig, hvor linkene virker (altså hvor du kan åbne excelarket ved at trykke på linket.

Mailen er nu sendt

Jeg har nu haft mulighed for selv at teste på en Office 2003 maskine, der virker makroen heller ikke. Kommer med samme fejlmeddelelse og opføre sig faktisk på nøjagtig samme måde.

hmm - ligger filerne på et netværksdrev?

Både og.

Det vil de komme til når det virker, men jeg har testes både på netværksdrev og lokalt, det sidste dog kun på min 2000 maskine.

Jeg ved desværre ikke hvad vi ellers kan gøre, når det nu virker hos mig... Hvis du er intereseret kunne vi mødes, men jeg arbejder desværre kun gratis på nettet ;-)

Nej det er i orden, men tak for forsøget og hjælpen.