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"
    6. If My.Computer.FileSystem.FileExists(Hauptmenü.verzeichnisvorlagen + "\VorlageStandard.dotx") = True Then
    7. Dim xDoc As Word.Document = xWord.Documents.Open(xVorlage) 'Open = Vorlage; Add = Dokument
    8. xWord.Visible = True
    9. xWord.Activate()
    10. Else
    11. 'neue Vorlage erstellen ?????
    12. End If
    13. 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"
    6. If My.Computer.FileSystem.FileExists(Hauptmenü.verzeichnisvorlagen + "\VorlageStandard.dotx") = True Then
    7. Dim xDoc As Word.Document = xWord.Documents.Open(xVorlage) 'Open = Vorlage; Add = Dokument
    8. xWord.Visible = True
    9. xWord.Activate()
    10. Else
    11. 'neue Vorlage erstellen ?????
    12. Dim xDoc As Word.Document = xWord.Documents.Add() 'Open = Vorlage; Add = Dokument
    13. xWord.Visible = True
    14. xWord.Activate()
    15. xDoc.SaveAs2(Hauptmenü.verzeichnisvorlagen + "\VorlageStandard.dotx", Word.WdSaveFormat.wdFormatXMLTemplate)
    16. End If
    17. End Sub

Facebook
Telefonspende