Hallo,
ich möchte dem Word-Dokument, was ich aus VB.Net generiert habe einen dynamischen automatischen Namen geben, der oben in der Leiste anstatt DokumentX (X wird von Word automatisch hhochgezählt) benutzt wird.
Nun meine Frage, wie ich das anstelle. Habe nichts gefunden. Bin für Tipps und Anregungen dankbar 
Mein Quelltext bisher:
Private Sub bt\_exportword\_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt\_exportword.Click
' Dokument mit Labeltexten füllen und über Word(Vorlage) drucken
' (Word ist dabei unsichtbar)
Dim WordAppl As Word.Application ' Word-Application
Dim WdDoc As Word.Document ' Word-Dokument
Dim WordApplLiefNicht As Boolean ' Falls Word nicht läuft
' Versuchen eine laufende Instanz von Wort zu verwenden
On Error Resume Next
WordAppl = GetObject(, "Word.Application")
' Wenn Word nicht ausgeführt wird, Word starten:
On Error GoTo errorMsgWord
If WordAppl Is Nothing Then
WordApplLiefNicht = True
WordAppl = CreateObject("Word.Application")
End If
' Dokument öffnen
On Error GoTo errorMsgVorlage
WdDoc = WordAppl.Documents.Add(Template:="C:\xxx" & "\" & WordDocVorlage, NewTemplate:=False)
On Error GoTo 0
' Word unsichtbar machen
WordAppl.Application.Visible = True
' Texte den Textmarken in der Word-Vorlage zuweisen:
--ein paar textmarkenzuweisungen--
ClearExit:
' Word beenden, falls wir es erst gestartet haben
If WordApplLiefNicht Then
'WordAppl.Application.Quit()
End If
WordAppl = Nothing
Exit Sub
errorMsgWord:
MsgBox("Es konnte keine Verbindung zu Word hergestellt werden!", 16, "Fehler")
Exit Sub
errorMsgVorlage:
MsgBox("Die Dokumentvorlage '" & WordDocVorlage & "' konnte nicht geöffnet werden !", 16, "Fehler")
GoTo ClearExit
End Sub