Når filen er åben

Har flg. kode:

Sub CreateWordDocDram()
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim i As Integer
    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Open("C:\wordfil.doc.")
    wrdApp.Visible = True
End Sub

1. Vil gerne have kode, der giver en besked/advarsel, hvis man forsøger at åbne filen , når den er åbnet.

2. Når filen åbner, har jeg problem med, at den ikke bliver visible, den ligger sig ganske enkelt på proceslinjen. Har prøvet med følgende kode i rækkefølge, men det er vel ikke helt "rigtigt"

    wrdApp.Application.WindowState = wdWindowStateNormal
    wrdApp.Application.WindowState = wdWindowStateMinimize
    wrdApp.Application.WindowState = wdWindowStateMaximize