Zum Inhalt springen

Word beenden und den Dialog des "Änderungen speichern" deaktivieren


Empfohlene Beiträge

Moin Moin zusammen.

Mit dem automatischen Start eines Serienbriefs bin ich soweit durch. Leider fehlt mir noch das saubere Beenden der Funktion.

Hier einmal die komplette Funktion:

 

 

 

 

Function Start-Seriendruck

{

$Word = New-Object -Com Word.Application

$Word.Visible = $false

$Missing = [System.Reflection.Missing]::Value

$Word.Run("Neuer_User")

sleep 10

 

# Word beenden

$Word.Saved = $true

$word.Quit()

}

 

Nur leider kennt die PS das Property .Saved nicht.

Kann mir hier jemand weiterhelfen?

 

Viele Grüße

 

z.B. Jens Mander

Link zu diesem Kommentar
Auf anderen Seiten teilen

Hallo Arlerermi,

 

ich denke auch das ich das über das Dokument steuern muss.

Die Frage ist nur, ob ich das auch über die PS steuern kann.

Mein zweiter Ansatz ist gerade ob ich das über das VB Makro steuern kann.

Aber ich habe mal so gar keine Ahnung in der Materie Markro.

Das Makro sieht bislang so aus (in rot mein Versuch der gescheitert ist):

 

Sub Neuer_User()
'
' Neuer_User Makro
'
'
    ChangeFileOpenDirectory _
        "<Pfad>"
    Documents.Open FileName:= _
        "<Pfad mit Dokumentname>" _
        , ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
        WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
        wdOpenFormatAuto, XMLTransform:=""
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        "<Pfad mit Dokumentname>" _
        , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:="", SQLStatement:="", SQLStatement1 _
        :="", SubType:=wdMergeSubTypeOther
    With ActiveDocument.MailMerge
        .Destination = wdSendToPrinter
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With

   
    Word.ActiveDocument.Saved = True ' Flag für Änderungen zurücksetzen
    Word.NormalTemplate.Saved = True
    Word.Application.Quit savechanges:=wdDoNotSaveChanges

   
End Sub

 

Link zu diesem Kommentar
Auf anderen Seiten teilen

  • 1 Monat später...

Dein Kommentar

Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung wiederherstellen

  Nur 75 Emojis sind erlaubt.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...