Server Dokumenteneigenschaften Word2007 in VBA abgreifen

02/02/2008 - 15:15 von Alex Z. | Report spam
Hi zusammen,

ich habe noch ein Problem mit SharePoint und Word 2007. Ich will die im
SharePoint vergebenen Dokumenteneigenschaften in VBA abgreifen um diese z.B.
bei der Vorgabe der Dokumetennamen zu verwenden. Leider komme ich nur an die
"festen" Dokumenteneigenschaften ran.


Vielen herzlichen Dank im Voraus

Derzeit verwendete Makros:

Sub FileClose()
Dim UserAntwort As String
If Not ActiveDocument.Saved Then
UserAntwort = MsgBox(Prompt:="Möchten Sie Änderungen in " & _
ActiveDocument.Name & " jetzt speichern?", Buttons:=vbYesNoCancel +
vbExclamation)
Select Case UserAntwort
Case Is = "", vbCancel
Exit Sub
Case Is = vbNo
ActiveDocument.Close (wdDoNotSaveChanges)
Case Is = vbYes
Call ActiveDocument.FileSaveAs
ActiveDocument.Close (wdSaveChanges)
End Select
Else
ActiveDocument.Close (wdDoNotSaveChanges)
End If
End Sub



Sub FileSave()
If ActiveDocument.Type = wdTypeTemplate Or ActiveDocument.Path = "" Then
Call FileSaveAs
Exit Sub
Else
ActiveDocument.Save
End If
End Sub

Sub FileSaveAs()
Dim DocName As String
With ActiveDocument
DocName = Format(Date, "yyyymmdd") & "_" &
ActiveDocument.BuiltInDocumentProperties(1) & "_Atoss_Besuchsbericht" & "_" &
ActiveDocument.BuiltInDocumentProperties(2) & "_" & Application.UserInitials
End With
With Dialogs(wdDialogFileSaveAs)
.Name = DocName
.Show
ActiveDocument.Save
End With
Dim aStory As Range
Dim aField As Field

For Each aStory In ActiveDocument.StoryRanges

For Each aField In aStory.Fields
aField.Update
Next aField

Next aStory
End Sub
Sub AutoOpen()
'
' AutoOpen Makro
'
'
Dim aStory As Range
Dim aField As Field

For Each aStory In ActiveDocument.StoryRanges

For Each aField In aStory.Fields
aField.Update
Next aField

Next aStory
End Sub
 

Lesen sie die antworten

#1 Udo
15/02/2008 - 11:32 | Warnen spam
Hallo,

es gibt zwei collections, die BuiltInDocumentProperties und die
CustomDocumentProperties


Gruß

Udo


"Alex Z." schrieb im Newsbeitrag
news:
Hi zusammen,

ich habe noch ein Problem mit SharePoint und Word 2007. Ich will die im
SharePoint vergebenen Dokumenteneigenschaften in VBA abgreifen um diese
z.B.
bei der Vorgabe der Dokumetennamen zu verwenden. Leider komme ich nur an
die
"festen" Dokumenteneigenschaften ran.


Vielen herzlichen Dank im Voraus

Derzeit verwendete Makros:

Sub FileClose()
Dim UserAntwort As String
If Not ActiveDocument.Saved Then
UserAntwort = MsgBox(Prompt:="Möchten Sie Änderungen in " & _
ActiveDocument.Name & " jetzt speichern?", Buttons:=vbYesNoCancel +
vbExclamation)
Select Case UserAntwort
Case Is = "", vbCancel
Exit Sub
Case Is = vbNo
ActiveDocument.Close (wdDoNotSaveChanges)
Case Is = vbYes
Call ActiveDocument.FileSaveAs
ActiveDocument.Close (wdSaveChanges)
End Select
Else
ActiveDocument.Close (wdDoNotSaveChanges)
End If
End Sub



Sub FileSave()
If ActiveDocument.Type = wdTypeTemplate Or ActiveDocument.Path = ""
Then
Call FileSaveAs
Exit Sub
Else
ActiveDocument.Save
End If
End Sub

Sub FileSaveAs()
Dim DocName As String
With ActiveDocument
DocName = Format(Date, "yyyymmdd") & "_" &
ActiveDocument.BuiltInDocumentProperties(1) & "_Atoss_Besuchsbericht" &
"_" &
ActiveDocument.BuiltInDocumentProperties(2) & "_" &
Application.UserInitials
End With
With Dialogs(wdDialogFileSaveAs)
.Name = DocName
.Show
ActiveDocument.Save
End With
Dim aStory As Range
Dim aField As Field

For Each aStory In ActiveDocument.StoryRanges

For Each aField In aStory.Fields
aField.Update
Next aField

Next aStory
End Sub
Sub AutoOpen()
'
' AutoOpen Makro
'
'
Dim aStory As Range
Dim aField As Field

For Each aStory In ActiveDocument.StoryRanges

For Each aField In aStory.Fields
aField.Update
Next aField

Next aStory
End Sub



Ähnliche fragen