Word aus Excel öffnen und Befehle für Word eintragen

Question

Hi Forum,

wie kann ich in Excel Word öffnen?

Und wo trage ich dann die Befehle für Word ein? damit diese in Word ausgeführt werden?

Gruß
afetinci

Answer 1

Hier eine API zum Öffnen von Word, wo Du nun welche befehler für Word brauchst wissen wir leider nicht, Du müsstest schonmal genauer sagen was Du willst.

Gruß Marie

Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long

Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function SetActiveWindow Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal _
lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Public Function OpenWordForeground(cWordDoc As String)

'Worddokument in den Vordergrund holen wenn bereits geöffnet oder im Vordergrund öffnen

On Error GoTo Err_OpenWordDoc

Dim HwndDeskTop
Dim HwndWord As Long
Dim Ret As Long

HwndWord = FindWindow("OpusApp", vbNullString)
If HwndWord <> 0 Then
SetForegroundWindow HwndWord
SetActiveWindow HwndWord
Else
HwndDeskTop = GetDesktopWindow
End If
Ret = ShellExecute(HwndDeskTop, "Open", cWordDoc, 0&, 0&, SW_SHOWMAXIMIZED)

Exit_OpenWordDoc:
Exit Function

Err_OpenWordDoc:
MsgBox "Fehlernummer: " & Err.Number & vbCrLf & _
"Fehlerbeschreibung: " & Err.Description, _
vbCritical, "Fehler in Public Function OpenWordDoc"
Resume Exit_OpenWordDoc
End Function

Answer 2

Hallo Marie,

sorry für die späte Rückmeldung. Habe keine Zeit gehabt mich einzuloggen.

Ich möchte die Befehle nach dem öffnen von Word einfügen. Die Befehle würde ich dann in Word aufzeichnen und entsprechend einfügen. Noch kann ich keine genauen Befehle nennen da ich noch am überlegen bin.

Gruß
afetinci

Answer 3

Na ja, dann benutze doch den Code oben zum Öffnen von Word

Gruß Marie