Word in Vordergrund
14.06.2018 11:23:16
Jörg
ich habe das Problem, dass ich es zwar schaffe, die entsprechende Datei zu finden und zu öffnen, aber ich hab keine Ahnung, wie ich Word sofort im Vordergrund öffnen kann und hoffe auf eure Hilfe. Folgenden Quellcode hab ich:
Private Sub CommandButton10_Click()
Dim AppWD As Object
Set AppWD = CreateObject("Word.Application") 'Word als Object starten
AppWD.Visible = True
AppWD.WindowState = 1
AppWD.Activate
Set FS = CreateObject("Scripting.FileSystemObject")
Set Folder = FS.GetFolder(Worksheets("Nutzerverwaltung").Range("B29"))
For Each File In Folder.Files
If File.Name Like "LOV VA P-4 Produktion A*.dot" Then
AppWD.Documents.Open File.Path, ReadOnly:=True
Exit For 'nur die erste Datei ist relevant
End If
Next
End Sub
Danke schon mal im Vorraus
Jörg