none
word 2007 Vorlagen aus Win XP in Word 2007 unter WIN 7 per VBA Code aufrufen RRS feed

  • Frage

  • Hallo Ihr Lieben!

    Ich bin dabei, eine Access 2007 Anwendung von XP nach WIN 7 zu migrieren. In der Anwendung wird per VBA Word 2007 mit einem Start-Makro aufgerufen. In diesem Makro wir abhängig von der "Briefart" die entsprechende Dokumentvorlage ausgewählt und mit den erforderlichen Daten gefüllt.

    Dieser Vorgang klappt unter WIN XP seit Jahren hervorragend. Unter WIN 7 bekomme ich die Meldung

    "Laufzeitfehler 5151"

    "Dieses Dokument konnte von Word nicht gelesen werden. Es ist möglicherweise beschädigt."

    Wenn ich Word manuelll starte und die Vorlage aufrufe gibt es kein Problem !!!

    Der Pfad und Namen der Dokumentvorlage entspricht genau dem Speicherort.

    Was muß ich den am Code oder sonstwo ändern?
    Was kann ich sonst noch tun?

    Ich bitte ganz dringend um Hilfe und bedanke mich schon im voraus für eure Bemühungen!

    Liebe Grüße aus Erkelenz

    Toni

    Code-Ausschnitt:

    'Öffnen neue Datei mit ausgewählter Formatvorlage
        Select Case WBriefart
            Case "ER"
                Documents.Add Template:=WDotPath & "LVL-ErinnerungBar-01.dotm"
            Case "VK"
                Documents.Add Template:=WDotPath & "LVL-VK-01.dotm"
            Case "KB"
                Documents.Add Template:=WDotPath & "LVL-Kuend-01.dotm"
            Case "AS"
                Documents.Add Template:=WDotPath & "LVL-Aussetzung-01.dotm"
            Case "M1"
                Documents.Add Template:=WDotPath & "LVL-Mahnung1-01.dotm"
            Case "M2"
                Documents.Add Template:=WDotPath & "LVL-Mahnung2-01.dotm"
            Case "M3"
                Documents.Add Template:=WDotPath & "LVL-Mahnung3-01.dotm"
            Case "ML"
                Documents.Add Template:=WDotPath & "LVL-Mahnung-Letzte.dotm"
            Case Else
                Documents.Add Template:=WDotPath & "LVL-Brf-01.dotm"
        End Select
        'Variablen füllen
        ActiveDocument.AttachedTemplate.Saved = True
        'MsgBox doc
        ActiveDocument.Variables.Add Name:="Anrede", Value:=WAnrede
        ActiveDocument.Variables.Add Name:="Vorname", Value:=WVorname
        ActiveDocument.Variables.Add Name:="Name", Value:=WName
        ActiveDocument.Variables.Add Name:="Straße", Value:=WStraße
        ActiveDocument.Variables.Add Name:="PLZ", Value:=WPLZ
        ActiveDocument.Variables.Add Name:="Ort", Value:=WOrt
        ActiveDocument.Variables.Add Name:="BRFAnrede", Value:=WBrfAnr
        ActiveDocument.Variables.Add Name:="Kuendzum", Value:=TKuendzum
        ActiveDocument.Variables.Add Name:="LAbbuch", Value:=TletzteAbb
        ActiveDocument.Variables.Add Name:="MBeitrag", Value:=TMahnBetrag
        ActiveDocument.Variables.Add Name:="MGebuehr", Value:=TMahnGebuehr
        ActiveDocument.Variables.Add Name:="Mgesamt", Value:=TMahnGesamt
        ActiveDocument.Variables.Add Name:="MFrist", Value:=TMahnFrist
        ActiveDocument.Fields.Update

    Mittwoch, 26. September 2012 10:43

Antworten

  • Hallo Ihr Lieben!

    Ich habe das Problem doch noch gelöst.

    Alle Word2007  Vorlagen aus XP musste ich nochmals unter WINN 7 als .DOTM speichern, dann klappte es.

    Toni 

    • Als Antwort markiert Toni1940 Sonntag, 30. September 2012 23:21
    Sonntag, 30. September 2012 23:15