Hallo,
ich öffne aus Excel ein Dokument einer Vorlage.
Diese speichere ich mit nachstehendenm Code:
<pre>Private Sub CommandButton15_Click()
' Wichtig!!
' unter "Extras" - "Verweise" einen Verweis auf die "Microsoft Word X.0 Object-Library" setzen!
Dim strPfadD As String
Dim strNameD As String
Dim strEndung As String
strPfadD = Worksheets("Worddaten").Range("B28").Value 'Pfad für Dokumente
' strNameD = "Jahresabrechnung_2019" 'Name für Dokumente der gespeicherten Datei
strNameD = Left(ListBox2, Len(ListBox2) - 5) & "_" & Right(TextBox1, 4) 'Name für Dokumente der gespeicherten Datei
' strEndung = ".docm"
strEndung = ".docx" 'benötigt, damit Makros nicht ausgeführt werden sondern der gewählte Text bestehen bleibt
'Debug.Print strPfadD & strNameD & strEndung
If Not wrdApp Is Nothing Then
On Error Resume Next
wrdDoc.SaveAs Filename:=strPfadD & strNameD & strEndung 'speichert Dokument1 unter angegebenen Namen in Dokumente
wrdDoc.Close 0 'schliesst das Dokument1 ohne speichern
If wrdApp.Documents.Count = 0 Then wrdApp.Quit 'beendet Word nur wenn kein weiteres Word geöffnet ist
On Error GoTo 0
End If
With Label31
.BackColor = &HC0FFC0
.Caption = "Das Dokument1 aus Vorlage " & vbLf & strDName & vbLf & "wurde unter " _
& """" & strNameD & """" & " gespeichert" & " und geschlossen!"
End With
CommandButton14.Enabled = True
CommandButton15.Enabled = False
Set wrdDoc = Nothing 'hebt das Setting auf - darf aber nicht in Commandbutton1 erfolgen
Set wrdApp = Nothing 'hebt das Setting auf - darf aber nicht in Commandbutton1 erfolgen
'da Dokument1 unter neuem Namen in Ordner "Dokumente" gespeichert wird, muss u.a. Makro ausgeführt werden
Call Word_Dokumente_auflisten
End Sub</pre>
Könnt ihr mir bitte helfen, dass beim Speichern das Attribut "schreibgeschützt" gesetzt wird.
Besten Dank
Gruss
Peter