Hej!

Finns det någon i detta av långa land som råkar veta hur man och om man kan ta reda på vem som är författare till ex. Word och excel.
Jag har lyckats via vb att ta reda på när dokumentet skapades och sist var använt eller ändrat i, men skulle också vilja kunna ta reda på vem som är författare till dokumentet.

Om man står i utforskaren och markerar ex word eller excel så kan man se vem som skapat dokumenet. Det skulle jag vilja kunna ta reda på via vb.

Är det någon som har kunskaper och skulle vilja lära mig hur?

Tack på förhand
Jessica

Hej
Roade mig med att skriva en kod som funkar på mina
Word dokument. Kul om du ville kolla om det funkar
hos dig. En Command1 och en Label1.
Finns säkert ett smartare sätt men i allafall.

Option Explicit
Private Sub Command1_Click()
'Test kod för att hitta författare till .doc
Dim FileNum As Long, Buffer As String, pos As Long
FileNum = FreeFile
Buffer = Space(50)
'Här skriver du sökvägen till Word dokumentet
'eller fånga med CommonDialog
Open "C:\Test.doc" For Binary As #FileNum
pos = 1
Do Until EOF(FileNum)
Get #FileNum, pos, Buffer
If Left$(Buffer, 14) = "Microsoft Word" Then
Buffer = Space(50)
Get #FileNum, pos - 28, Buffer
Label1.Caption = RTrim$(Buffer)
Buffer = Space(50)
Get #FileNum, pos - 84, Buffer
Label1.Caption = Label1.Caption & " " _
& RTrim$(Buffer)
Exit Do
End If
pos = pos + 1
Loop
Close #FileNum
If Label1.Caption = "" Then _
Label1.Caption = "Författare Okänd"
End Sub

mvh
Sven

Det finns funktionalitet för det i OfficeObjekten (i word är document-objektet som har sådan information). Det kan även tänkas finnas i Applicationobjekten som hör till dokumentobjektet (alltså INTE Application som är förälder). Leta med debug verktygen så hittar du den info du behöver ganska fort annars kan du posta tillbaka så letar jag rätt på det när jag har tid sen.

Kämpade också lite för att hitta vad du sökte. Se [Lista alla properties i ett worddokument]

/Pelle

Mycket snyggt Pelle!, med den skillnaden att koden:
<code>
app.Documents.Open ("c:\testdokument.doc")

Set doc = app.Documents(1)
</code>
bör bytas ut mot:
<code>
Set doc = app.Documents.Open (Filename:="c:\testdokument.doc")
</code>

Då olika versioner av word hanterar applikations-instansen olika och man riskerar att komma åt fel dokument med den övre metoden. Dessutom bör man alltid använda namngivna argument i Officeobjekten då de inte alltid har samma argumentordning mellan versionerna...