Erstellen einer Word-Vorlage

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Checkpoint.

    Erstellen einer Word-Vorlage

    Hallo,

    ich möchte gerne Vorlagen programmgesteuert verwalten; So weit so gut - das einzige was ich nicht finde ist: Wie erstelle ich eine neue Vorlage?

    Hier mal der Teil des Codes:


    VB.NET-Quellcode

    1. Private Sub ButtonVorlageStandard_Click(sender As Object, e As EventArgs) Handles ButtonVorlageStandard.Click
    2. Dim xWord As Word.Application = CType(CreateObject("Word.Application"), Word.Application)
    3. Dim xVorlage As Object
    4. xVorlage = Hauptmenü.verzeichnisvorlagen + "\VorlageStandard.dotx"
    5. If My.Computer.FileSystem.FileExists(Hauptmenü.verzeichnisvorlagen + "\VorlageStandard.dotx") = True Then
    6. Dim xDoc As Word.Document = xWord.Documents.Open(xVorlage) 'Open = Vorlage; Add = Dokument
    7. xWord.Visible = True
    8. xWord.Activate()
    9. Else
    10. 'neue Vorlage erstellen ?????
    11. End If
    12. End Sub
    hab es selbst herausgefunden:


    VB.NET-Quellcode

    1. ​Private Sub ButtonVorlageStandard_Click(sender As Object, e As EventArgs) Handles ButtonVorlageStandard.Click
    2. Dim xWord As Word.Application = CType(CreateObject("Word.Application"), Word.Application)
    3. Dim xVorlage As Object
    4. xVorlage = Hauptmenü.verzeichnisvorlagen + "\VorlageStandard.dotx"
    5. If My.Computer.FileSystem.FileExists(Hauptmenü.verzeichnisvorlagen + "\VorlageStandard.dotx") = True Then
    6. Dim xDoc As Word.Document = xWord.Documents.Open(xVorlage) 'Open = Vorlage; Add = Dokument
    7. xWord.Visible = True
    8. xWord.Activate()
    9. Else
    10. 'neue Vorlage erstellen ?????
    11. Dim xDoc As Word.Document = xWord.Documents.Add() 'Open = Vorlage; Add = Dokument
    12. xWord.Visible = True
    13. xWord.Activate()
    14. xDoc.SaveAs2(Hauptmenü.verzeichnisvorlagen + "\VorlageStandard.dotx", Word.WdSaveFormat.wdFormatXMLTemplate)
    15. End If
    16. End Sub