Auteur Topic: Bestaand word document openen via opdrachtknop in Acces 2010 formulier (gelezen 7526 keer)

Biebabeloeba · « **Gepost op:** 07 augustus 2012, 12:30:45 »

Hallo,

Ik wil een bestaand worddocument openen via een opdrachtknop in Access, waarbij de knop de naam heeft "cmdOpenDocPrestatielijsten" Ik gebruik Office 2010. Hoe zou ik dat best doen? Via een macro zal dat waarschijnlijk niet lukken, zeker? En via VBA?
Kan iemand mij helpen?

SoftAid · « **Reactie #1 Gepost op:** 07 augustus 2012, 13:25:46 »

Hallo Biebabeloeba,

ik ken Access niet, maar een Macro in Access (VBA) is waarschijnlijk hetzelfde als een Macro in Excel (VBA).

In Excel lukt het prima met een knop die gelinkt is aan een macro met deze code:

Code: [Selecteer]

Sub cmdOpenDocPrestatielijsten()

Shell "C:\Program Files (x86)\Microsoft Office\Office12\WINWORD /automation", vbMaximizedFocus 'Geef hier het pad op naar Winword.exe

AppActivate "Microsoft Word"
Set appword = GetObject(, "word.application")
With appword
.Documents.Add "C:\Documents and settings\Word Documenten\Oplossing.doc"  'Geef hier het pad op naar het word.doc 
End With
End Sub

Als je met Office 2010 werkt, dan veronderstel ik dat je Windows 7 gebruikt. Als je een Windows 7 32bit versie hebt, dan zal "C:\program Files (x86)\.... moeten vervangen worden door C:\Program Files\...

Verander in mijn code de paden naar Winword.exe en naar het Word-bestand dat je wilt openen met de knop.

SoftAid

Biebabeloeba · « **Reactie #2 Gepost op:** 08 augustus 2012, 08:40:45 »

Bedankt voor de hulp, en voor de code, maar ik krijg een foutmelding als ik op de opdrachtknop klik. Ik heb gezien dat het een Windows 32 bit PC is, en ik heb alvast Program files (x86) veranderd naar Program files zoals je schreef, en Winword veranderd naar Winword.exe, alsook de correcte bestandslocatie gespecifieerd, maar dan nog krijg ik gewoon het programma Word opgestard, en op de achtergrond (na minimaliseren van Word, een foutmelding :
Fout 5 tijdens opsporing : Ongeldige procedure-aanroep of ongeldig argument.
Wat zou dat zijn? Er zal toch nog iets moeten gewijzigd worden...?

Biebabeloeba · « **Reactie #3 Gepost op:** 08 augustus 2012, 08:42:40 »

O ja, en als ik op de knop "Foutopsporing" klik, zie ik dat de rij AppActivate "Microsoft Word" in het geel gekleurd is. Dus heeft het te maken met die instructie. Wat nu?

SoftAid · « **Reactie #4 Gepost op:** 08 augustus 2012, 09:56:32 »

Hallo Biebabeloeba,

ik kan ook fout zijn met de code. Deze werkt op VBA excel 2007, maar is die vergelijk aan Access 2010 ?

Schijnbaar geef je toch niet de juiste adressen mee, volgens de foutmelding.

Zoek eens op waar Winword staat, en laat die " .exe " achterwege.

De spelling van het adres naar het bestand moet perfect zijn (hoofdletters-kleine letters gevoelig, en het bestand mag niet reeds geopend zijn).

Indien dit niet helpt, er zijn Access-specialisten hier op het forum die je zeker kunnen helpen.

PS: Mogelijkheid (niet zelf getest ) :Gebruik de shell functie in VBA.

Citaat

Call Shell (C:\Program Files\Microsoft Office\OFFICE12\winword.exe C:\Gebruikers\gebruikersnaam\map?\bestand.docx"), vbMaximizedFocus

Mogelijk is office 2010 niet OFFICE12: adres aanpassen

SoftAid

dizzl · « **Reactie #5 Gepost op:** 08 augustus 2012, 19:44:47 »

Het kan ook een tikkeltje anders maar dan moet je een referentie naar die versie van Word leggen (zie afbeelding).
In bijlage vind je een eenvoudig voorbeeld.

Je kan het snel uitbreiden met een OpenFileDialog.

Help!

Menu

Hulp bij posten

Zoeken

Recente topics