Exel /Word

Goedemorgen,

Onderstaande code heb ik van internet geplukt en werkt naar behoren.
Er ontbreekt één dingetje aan en dat krijg ik niet voor elkaar.
Wanneer deze code gebruikt wordt staat hij keurig in de taakbalk.
Maar ik wil zo graag dat het bestand direct op het scherm opent.
Wie heeft voor mij goede raad.

Met vriendelijke groet,

Huib van Weelden

Sub Test()
Dim wrdApp As Word.Application
Dim blnStart As Boolean
Dim wrdDoc As Word.Document

On Error Resume Next
' Kijk of Word al draait
Set wrdApp = GetObject(Class:="Word.Application")
If wrdApp Is Nothing Then
' Start Word
Set wrdApp = CreateObject(Class:="Word.Application")
If wrdApp Is Nothing Then
MsgBox "Het is niet gelukt Word te starten!", vbExclamation
Exit Sub
End If
blnStart = True
End If

On Error GoTo ErrHandler
' Open document
Set wrdDoc = wrdApp.Documents.Open(Filename:="C:\Documenten\MijnDocument.docx")
' Doe iets met het document
wrdDoc.Content.InsertParagraphAfter
wrdDoc.Content.InsertAfter "Dit is een extra paragraaf."
' Sluit en bewaar het document
wrdDoc.Close SaveChanges:=True

ExitHandler:
On Error Resume Next
If blnStart Then
' Als we Word hadden gestart, sluiten we het nu weer
wrdApp.Quit SaveChanges:=False
End If
Exit Sub

ErrHandler:
MsgBox Err.Description, vbExclamation
Resume ExitHandler
End Sub

Helpt dit u verder? (niet getest)

P: je bent al lid van 2013, je zou ondertussen moeten weten dat je de code tussen codetags moet zetten, zo is het zaakje niet te lezen.

Snel en onzichtbaar een Wordbestand in Excel openen doe je met:


Zichtbaar met

Pluk geen code van Internet.
Gebruik geen code die je niet voor de volle 100% begrijpt.

word in taakbalk

Beste gast0660 en snb.

Beste mensen dank voor de snelle reacties.

Bij jouw gast0660, krijg ik nu de melding "Deze eigenschap of Methode wordt niet ondersteund door dit project."

en bij snb krijg ik geen meldingen maar Word blijft keurig in de taakbalk staan

Beste gast0660 even over het lid zijn vanaf 2013 dat klopt en je opmerking zou terecht zijn als ik ook regelmatig gebruik had gemaakt van dit forum.
en mij ook met vba had bezig gehouden. maar ik snap je opmerking. Vraagje hoe maak ik een dergelijke constructie ?

Met vriendelijke groet, Huib

Je hebt in de knoppenbalk een knop zitten om de CODE TAG aan te zetten (knop #). Zet die aan en plak dan je code, of selecteer je code en klik dan op de knop.
Heb je gelijk een mooie 'oefening' om je bericht aan te passen .

snb zei:

Pluk geen code van Internet.

Klik om te vergroten...

Dan kunnen we HelpMij wel opheffen .

Word op taakbalk

Beste OctaFich,

De humor ligt op straat toch? En zonder kunnen we niet.
Internet is natuurlijk niet anders
Hoe had ik ooit Help mij kunnen vinden.
En dan ook nog contact met OctaFich die mij niet helpt maar
eigenlijk vind dat ik hem niet had moeten vinden.

Met een beetje humor kom je hier wel doorheen "hoop ik"

Maar als je mee wil denken over de code GRAAG HOOR

Groeten van Huib

OctaFish zei:

Dan kunnen we HelpMij wel opheffen .

Klik om te vergroten...

niet als gebruikers de aangereikte code gebruiken om hun eigen code aan te passen/ te verbeteren of als aanleiding gebruiken om wat meer met een programma te experimenteren/uit te zoeken.

Word op taakbalk

Sorry beste allemaal,

Ik word nu geconfronteerd met een aantal uitspraken die ik nergens had kunnen bevroeden.
De regeltjes zijn mij als bezoeker van het forum niet bekend. Maar als sociaal aspect had ik het kunnen weten.
Goed dat je het even rechtzet SNB.

Sorry, Huib