Warum wird erstellte WordDatei nicht aktiviert?

[Kütter]

Hallo Experten,

in meiner Vereinsanwendung (entwickelt mit ACC 2000) erstelle ich u.a. auch in WORD Briefe, Notenblätter usw. Als Vorlagen nutze ich datei.doc.

Ich glaube zumindest, daß früher mit Betriebsystem XP die Dokumente immer gleich zur Anzeige gelangten. Seit ich Vista nutze bleiben sie jedoch als Icon unten am Bildschirmrand.
Andere mögliche Gründe:
- Früher habe ich mglw datei.dot als Vorlagen genutzt.
- Nach einem Umbau sind bei Aufruf neuerdings auch immer Formulare als Popup geöffnet oder WORD wird sogar aus einem Popup-Formular gestartet.

Für einen Tipp, der diesen nervigen Umstand vermeiden hilft, wäre ich äußerst dankbar!

mfg kütter

[Bernhard Geyer]

Damit dir jemand helfen kann wäre es ganz sinnvoll zu zeigen welchen Quellcode du bisher verwendest.

[Kütter]

Hallo Bernhard,

der Code:
Public Function OpenDokWrite(Dokname As String) As Boolean
' Dim wdApp As Object

On Error Resume Next
Set wdApp = GetObject("Word.Application")
If Err.Number Then
Set wdApp = CreateObject("Word.Application")
End If

' On Error GoTo fehler

wdApp.Documents.Open FileName:=Dokname, ReadOnly:=False
wdApp.Visible = True
OpenDokWrite = True
wdApp.Activate

ende:
Set wdApp = Nothing
Exit Function

fehler:
On Error Resume Next
OpenDokWrite = False
Resume ende
End Function

[Kütter]

Damit dir jemand helfen kann wäre es ganz sinnvoll zu zeigen welchen Quellcode du bisher verwendest.

Tut mir leid, Bernhard,
die vorstendende Fkt ist nicht mehr im Gebrauch. Nachfolgend eine, die so reagiert wie ich es anfangs beschrieben habe:

Public Function ÄndernDok(Dokname As String) As Boolean

On Error Resume Next
Set wdApp = GetObject("Word.Application")
If Err.Number Then
Set wdApp = CreateObject("Word.Application")
End If

On Error GoTo fehler
wdApp.Documents.Open FileName:=Dokname
On Error Resume Next
wdApp.ActiveDocument.FormFields("tfLizenznehmer"). Result = VmLizenzNehmer
wdApp.ActiveDocument.FormFields("tfAdresse").Resul t = WdAdresse
wdApp.ActiveDocument.FormFields("tfStandort").Resu lt = VmStandort
wdApp.ActiveDocument.FormFields("tfGeändert").Resu lt = WdGeändert
wdApp.ActiveDocument.FormFields("tfVerschickt").Re sult = WdVerschickt
wdApp.ActiveDocument.FormFields("tfBem").Result = WdBem
wdApp.ActiveDocument.FormFields("tfVersandAnweisun g").Result = WdVersandAnweisung
wdApp.ActiveDocument.FormFields("tfBetreff").Resul t = WdBetreff
wdApp.ActiveDocument.FormFields("tfAz").Result = WdAz
wdApp.ActiveDocument.FormFields("tfVorgang").Resul t = WdVorgang
wdApp.ActiveDocument.FormFields("tfFremdAz").Resul t = WdFremdAz
wdApp.ActiveDocument.FormFields("tfAnrede").Result = WdAnrede
On Error GoTo fehler
If wdApp.ActiveDocument.Saved = False Then wdApp.ActiveDocument.Save
wdApp.Visible = True
ÄndernDok = True
wdApp.Activate
ende:
Set wdApp = Nothing
Exit Function


fehler:
Set wdApp = Nothing
MsgBox "Folgender Fehler in Fkt <ÄndernDok> " + CStr(Err.Number) + " " + Err.Description
On Error Resume Next
ÄndernDok = False
Resume ende

End Function

mfg erich