---

Autor.jpg

Hallo Gemeinde

Ich wende mich mal wieder hilfesuchen an euch.
Bei uns muss der Ersteller eines SWX Dokuments im sein WinLogin in die Dateiinformationen in das Feld <Autor> eintragen. Nun denke ich, dass es doch möglich sein muss dies zu automatisieren, aber wie weiss ich leider noch nicht. Muss man dazu ein Makro schreiben, oder gibt es einen einfacheren Weg? Ich würde den einfachen Weg bevorzugen, da ich von VB keine Ahnung habe....

Wichtig ist, dass nur der Ersteller des Dokuments eingtragen wird, und nicht die Person, welche die Datei das letze Mal geöffnet oder gespeichert hat. Der Ersteller resp. der Autor einer Datei bleibt für den ganzen Lebenszyklus des Doks dieselbe Person (eigentlich logisch, oder nicht....). :-))

Danke schon mal für Eure Hilfe.

Marc

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Marc

Ich kenne da nur diese zwei Lösungen

1.Jedem Benutzer eigene Vorlagen erstellen, in denen der Autor schon drin steht.
oder
2.mit einem Makro, wie folgend, den Benutzer eintragen

Code:

---

Option Explicit
Dim swApp As Object
Dim Part As Object
Dim Buffer  As String * 100
Dim Länge    As Long
Dim User As String

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Sub main()

Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc

'Check if Author is allready set
If Part.SummaryInfo(swSumInfoAuthor) = "" Then

'Get Windows Username
Länge = 100
GetUserName Buffer, Länge
User = Left(Buffer, Länge - 1)

' Set and get the Author KeyWord in the File Summary Info
Part.SummaryInfo(swSumInfoAuthor) = User

End If

End Sub

---

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andreas

Das Makro funktioniert Perfekt, DANKE!
Kennst du eine Möglichkeit, wie dieses Skript direkt bei dem Eröffnenen einer Datei ausgeführt werden kann?

Gruss Marc

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Marc

Zum Eröffnen fällt mir auf die schnelle nichts ein, aber man könnte es mit dem Speichern verknüpfen.

Entweder man kreiert einen eigenen Speicherknopf oder du installierst dir SDA-4Free, da ist die Funktion "Speichern plus Makro" integriert.

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wenn Dein Vorlagenteil ein Makrofeature mitbringt mit genau dieser Routine, dann wird das Makro bei jedem Neuaufbau abgearbeitet...

------------------
Lutz Federbusch
Mein Gästebuch
Der Mensch, Herr oder Sklave der Technik?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andreas
Hallo Lutz

Besten Dank für eure Inputs. Ich werde den Weg mit dem Makro Feature verfolgen, habe aber auch schon bemerkt, dass es ein bisschen mehr VB Kenntnisse benötigt als ich bis dato besitze. Ergo werde ich mich mal ans VB setzen und euch bei bedarf wieder mit "doofen" Fragen belästigen ;-)

Danke nochmals an alle Helfer! 

Gruss Marc

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP