Odpiranje Word dokumenta iz Excel-a

[dragopre]

Pozdravljeni

Za Excel zvezek sem napisal navodilo v Word-u, v Ecel-u pa z gumbom poženem makro za odpiranje navodila.
Koda je naslednja:

Koda: Izberi vse

Sub Navodilo()
  Dim appWD As Word.Application
  Dim cMapa As String
  cMapa = ThisWorkbook.Path

  On Error GoTo NavodiloNapaka1
  Set appWD = CreateObject("Word.Application")
  On Error GoTo 0
  
  appWD.Visible = True
  appWD.Activate
                                                            
  On Error GoTo NavodiloNapaka2
  appWD.Documents.Open Filename:=cMapa & "\Navodilo.docx", _
                       ReadOnly:=True
  On Error GoTo 0
  GoTo NavodiloKonec
NavodiloNapaka1:
  MsgBox "Napaka. Ne morem zagnati aplikacije ""WORD"". "
  GoTo NavodiloKonec
NavodiloNapaka2:
  appWD.Quit
  MsgBox "Napaka. Ne najdem datoteke: """ & cMapa & "\Navodilo.docx" & """."
NavodiloKonec:
End Sub

Sicer deluje. Vendar Wordov dokument ni vedno takoj viden. Običajno se pojavi le v statusni vrstici.
V tem primeru uporabnik običajno ponovno pritisne tipko "Navodilo", to pa povzroči, da se dokument ponovno odpre ( spet samo v opravilni vrstici).
Vprašanji imam dve:
- Kako dosežem, da bo Word takoj viden oziroma v prvem planu
- Kako preprečim ponovno odpiranje istega Word dokumenta

Hvala za pomoč in lep pozdrav,
Drago

[admin]

Pozdravljeni,

- Kako dosežem, da bo Word takoj viden oziroma v prvem planu

Preprosto se ne trudite z zaganjanjem aplikacije, temveč preprosto odprite dokument s funkcijo Shell.

- Kako preprečim ponovno odpiranje istega Word dokumenta

To pa bo precej težje in menim, da se ne izplača truditi. Če ga bo uporabnik odprl večkrat ga naj pač odpre večkrat...

[dragopre]

Hvala za odgovor. Že deluje.
Predlagana rešitev praktično rešuje tudi drugo vprašanje.
Večkratno odpiranje Worda (navodila) je bilo predvsem posledica minimiziranega okna ob predhodnem odpiranju.

Hvala in uspešno in srečno Novo leto Vam želim.
Drago