das i Part habe ich überlesen :-)
iProperties.Value("Project", "Part Number")=ThisDoc.FileName(False) 'without extension
'Überschreibt den Displaynamen auf Standard
Dim Doc As Document
Doc = ThisApplication.ActiveDocument
If Doc.DisplayNameOverridden = True Then
Doc.DisplayNameOverridden = False
End If
------------------
Wer einen Fehler gemacht hat und ihn nicht korrigiert, begeht einen zweiten!
[Diese Nachricht wurde von 50cent am 28. Jun. 2017 editiert.]
[Diese Nachricht wurde von 50cent am 28. Jun. 2017 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP