Met een opdrachtknop in excel een word document openen

[pippi2000]

Beste lezer. Ik heb geprobeerd om wat meer te begrijpen van VBA of macros'maar dat is helaas niet zo goed gelukt.
Ik heb hier en daar wat gelezen op internet maar ik kom er niet uit. Beginneling.
Wat ik zou willen is via een opdracht knop in excel verschillende word bestanden openen.

Wie kan mij daar bij helpen.

 

[Warme bakkertje]

Met onderstaande kan je een Word-document openen. Afhankelijk van hoe jij het wil zal je het rode gedeelte nog moeten aanpassen aan jouw situatie (selectie uit lijst, selectie uit validatielijst in cel, ...)+ uiteraard het juiste pad naar jouw bestanden aanpassen.

Sub Document_Openen()
    Dim objWordApp As Object, objWordDoc As Object
    
    Set objWordApp = CreateObject("Word.application")
    objWordApp.Visible = True
    Set objWordDoc = objWordApp.Documents.Open([COLOR="red"]"D:\Mijn documenten\Zaak\Faktuur\Verkvoorw.doc"[/COLOR])
End Sub

 

[pippi2000]

Beste Rudi

Het is gelukt, ben super blij.
Zou je het ook zo kunnen maken, dat wanneer je op de opdrachtknop drukt de pagina gelijk naar voren komt.
Nu krijg ik een icoontje onder in het beeldscherm.

Ik wil je nog nog een paar vragen stellen:

Ik zo ook graag hetzelfde willen doen met PDF en Excel bladen?
Is het ook mogelijk om meerdere bladen tegelijk te openen met 1 opdtrachtknop?

Ik hoop dat ik niet teveel vraag maar ik ben je nu al zeer dankbaar.


Groetjes

 

[Warme bakkertje]

Voor PDF-files wordt dit (eventueel pad naar opstartbestand reader wijzigen)

Shell "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe D:\Mijn documenten\Testbestanden\Formules_Excel_NL_EN.pdf", 4

Voor XL-bestanden

Workbooks.Open ("D:\Mijn documenten\Zaak\Faktuur\Faktuur.xls")

 

[pippi2000]

Hoi Rudi

Bedankt voor je snelle reactie.
Ik weet niet wat ik fout doe maar met een PDF file lukt het me niet.
Excel is geen probleem.

Groetjes

 

[Warme bakkertje]

Heb je het juiste pad naar je Reader aangepast (AcroRd32.Exe) ?
Of heb je misschien een Full-version van Adobe Acrobat ?

 

[pippi2000]

Hoi Rudi

Ik heb Adobe Acrobat 9 Pro Extended.

Groetjes

 

[Warme bakkertje]

Meer dan waarschijnlijk heb je een snelkoppeling naar Acrobat op je bureaublad staan. Kijk daar bij eigenschappen naar het juiste pad naar Acrobat.
Controleer ook het pad naar je bestand .

 

[pippi2000]

Ik ben echt een beginneling want ik kom er niet uit, ik ben nu helemaal de draad kwijt.
Waar kom bijvoorbeeld Shell te staan.
Zou je weer een voorbeeld willen maken.

Groetjes

 

[Warme bakkertje]

Full versions doen blijkbaar moeilijk
Heb de bijlage getest op de laptop van m'n zoon (Acrobat 6.0) en dit was de enige die werkte

 

[pippi2000]

Ik heb Acrobat van laptop gehaald en alleen adobe reader 9 geïnstalleerd, maar ik krijg het nog steeds niet voor mekaar.
Ik van alles al geprobeerd.
Volgens mij maak ik gewoon een beginnersfout, foutmelding kan het pad niet vinden.
Zie bijlage.

 

[Warme bakkertje]

Ik wou dat ik kon zeggen wat je moet doen, maar dit werkt echt hoor
Ik heb het bestand opgeslagen op harddisk, op USB-stick en van beide locaties opgestart en ik kon gewoon een bestand selecteren en openen.
Als je nu de Reader gebruikt zou dit ook moeten werken

Sub TST()
Shell "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe D:\Mijn documenten\Testbestanden\Formules_Excel_NL_EN.pdf", 4
End Sub

Plaats dit in een standaardmodule en pas eventueel het pad naar het bestand aan.

 

[pippi2000]

Ik krijg het maar niet voor elkaar, ik heb het volgende geprobeerd.

Sub Macro1()
Shell "C:\Program Files (x86)\Adobe\Reader 9.0\Reader \AcroRd32.exe C:\Mijn documenten\Test_Excel_NL_EN.pdf", 4
End Sub

Test document gemaakt.
Deze staat op de C schijf in Mijn documenten.
Naam is Test.pdf.

 

[zwinmi]

Hoi Pippi,

Ik heb er niet zoveelv erstand van, maar als je bestand "test.pdf" heet, lijkt het mij logisch om dat ook in de code gebruiken, dus probeer het is als het rode is verwijderd.

Sub Macro1()
Shell "C:\Program Files (x86)\Adobe\Reader 9.0\Reader \AcroRd32.exe C:\Mijn documenten\Test[COLOR="darkred"]_Excel_NL_EN[/COLOR].pdf", 4
End Sub

 

[pippi2000]

Heb ik nu ook geprobeerd.
Krijg steeds fout 53. Kan bestand niet vinden

 

[Warme bakkertje]

Heb dit nu ook getest op Windows 7 met XL2007 en geen probleem mee, bestand wordt onmiddelijk geopend

Sub Macro1()
Shell "C:\Program Files (x86)\Adobe\Reader 9.0\Reader \AcroRd32.exe C:\Mijn documenten\Test.pdf", 4
End Sub

 

[Joske2000]

Bij mij doet hij het zo :

Sub Macro1()
    Shell "C:\Program Files (x86)\Adobe\Reader 9.0\Reader \AcroRd32.exe C:\Users\[COLOR="DarkRed"]pippi2000[/COLOR]\Documents\Test.pdf", 4
End Sub

Joske

 

[pippi2000]

Ik draai op W7 met xl2010, maar ik krijg nog steeds dezelfde fout.
Ik wordt er helemaal gek van.:evil:

 

[Joske2000]

Met Acrobat 9, zoals vermeld in je vorige post

Sub Macro1()
    Shell "C:\Program Files (x86)\Adobe\Acrobat 9.0\Acrobat\Acrobat.exe  C:\Users\Joske\Documents\Test.pdf", 4
End Sub

rood moet aangepast worden naar ??:

Sub Macro1()
    Shell "C:\Program Files (x86)\Adobe\Acrobat 9.0\Acrobat\Acrobat.exe  C:\Users\[COLOR="DarkRed"]pippi2000[/COLOR]\Documents\Test.pdf", 4
End Sub

Werkt zowel in Excel 2007 als Excel 2010

Joske

 

[pippi2000]

Ik heb dit bestand geprobeerd deze doet het wel, alleen krijg ik een tabblad van mijn mijn documenten.
Dus hij opent niet het document wat ik nodig heb.
Kan iemand mij vertellen waar ik wat moet schrijven, ik heb al verschillende dingen geprobeerd.Zie bij;lage.

Test document gemaakt.
Deze staat op de C schijf in Mijn documenten.
Naam is Test.pdf.