---

Innerhalb eines vbs Scripts nutze ich folgenden Code um eine Word Datei auszuwählen:

Code:

---

Set WordApp = CreateObject("Word.Application")
WordApp.visible = False

FileFilter = "Word Files|*.docx, *.doc"

filtersInArray = Split(FileFilter, "|")
Const msoFileDialogFilePicker = 3
Set objOpenDialog = WordApp.FileDialog(msoFileDialogFilePicker)
With objOpenDialog
.Title = "Bitte Template auswaehlen:"
    .AllowMultiSelect = False
    .InitialFileName = WorkDir
    .Filters.Clear
    For i = 0 To UBound(filtersInArray) Step 2
    .Filters.Add filtersInArray(i), filtersInArray(i+1), 1
    Next
    If .Show And .SelectedItems.Count > 0 Then
    WordTemplate = .SelectedItems(1)
    End If
End With

If WordTemplate = "" then WScript.quit

Set objOpenDialog = Nothing

---

Funktioniert soweit gut, das Problem ist jetzt, die Auswahlbox wird immer als unterstes Fenster aufgemacht, d.h. es wird sehr oft abgedeckt. Was kann ich da machen ?

Axel

------------------
CAD.DE: Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de
Berufliches Umfeld: comsol.net; comsol.ch; Euromanagers;  3D Printingservice

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Axel! Seit langen Mal wieder Kontakt
Das Problem ist bekannt z.B.
"Das Problem der nicht im Vordergrund befindlichen Fenster habe ich gelöst.
http://ww3.cad.de/foren/ubb/Forum2/HTML/022593.shtml#000000
Auf die schnelle. Das Thema ist aber noch mal besprochen worden und mit etwas Tricky wurde es zum "Komm nach vorn" gezwungen. Weiß jemand den Thread?
LG H.

------------------
Hartmut

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

und da wars
http://ww3.cad.de/foren/ubb/Forum2/HTML/019660.shtml#000000

------------------
Hartmut

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP