Åbne word-fil inde fra excel i office 2007

Måske er nedenstående skasede kode lidt mere komplet. (Errorhanling og oprydning).

Men ellers kan du vist nøjes med at tilføje
wdDoc.Activate som nederste linje før End Sub i din kode.

Sub ÅbnWordFil()
  Dim wdApp As Word.Application
  Dim wdDoc As Word.Document
  On Error Resume Next
  Set wdApp = GetObject(, "Word.Application")
  If Err.Number <> 0 Then 'Word isn't already running
      Set wdApp = CreateObject("Word.Application")
  End If
  On Error GoTo 0
  Set wdDoc = wdApp.Documents.Open("C:\Temp\wordSample.doc")
  wdApp.Visible = True
  wdDoc.Activate
  Set wdApp = Nothing
  Set wdDoc = Nothing
End Sub

"saksede kode" sku' det være ;-)

Ok - men resultatet er det samme, som før. Er der noget jeg har overset?

Jeg skal ikke kunne sige det.

"Den lange kode" i mit indlæg ovenfor virker nogenlunde efter hensigten i Xp, Office 2003.

Wordvinduet med doc ligger øverst, men har dog ikke fokus.

Men det er vel også, hvad du har oplevet før 2007?

Lad os håbe, at rigtige vba-hajer ser denne tråd.

Flg. kode virker.
Sub ÅbnWordFil()
Dim WdApp As Object, WdDoc As Object

Set WdApp = CreateObject("Word.Application")
WdApp.Documents.Open "C:\Min Fil\"
With WdApp
    .Visible = True
    .ActiveWindow.WindowState = 1
    .Activate
  End With
End Sub