Word aus Excel im Vollbildmodus starten
23.04.2018 12:58:33
Jörg
ich habe noch ein Problem, mit welchem ich nicht weiterkomme.
Ich habe es geschafft, die Word-Datei schreibgeschützt, maximiert und im Vordergrund anzuzeigen.
Ich möchte jedoch das Word-Dokument nun auch im Vollbildmodus anzeigen. Aber irgendiwe habe ich nix gefunden, was dann auch funktioniert und hoffe, jemand hier kann mir helfen. Danke dafür schon mal.
Der Code lautet momentan:
Private Sub CommandButton10_Click()
Dim AppWD As Object
Set AppWD = CreateObject("Word.Application") 'Word als Object starten
AppWD.Application.Visible = True
AppWD.WindowState = 3
AppActivate AppWD.Caption
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 P7-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
Gruß Jörg
Anzeige