Access Document Property that appears in Panel but cannot find using VBA

macropod · #2 03-06-2016, 04:24 PM

Despite being listed, 'Status' is the name of a Custom Document Property that you'd have to add before you can populate it. For that, you can use code like:

Code:

Function SetStatusProperty(wdDoc As Document, StrProp As String, StrTxt As String)
Dim i As Long, bAdd As Boolean
bAdd = True
With wdDoc.CustomDocumentProperties
  For i = 1 To .Count
    If .Item(i).Name = StrProp Then
      .Item(StrProp).Value = StrTxt
      bAdd = False
      Exit For
    End If
  Next
  If bAdd = True Then .Add Name:=StrProp, LinkToContent:=False, Value:=StrTxt, Type:=msoPropertyTypeString
End With
End Function

which you can call with code like:

Code:

Sub Demo()
SetStatusProperty ActiveDocument, "Status", "ABC"
MsgBox ActiveDocument.CustomDocumentProperties("Status").Value
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Userform and Document Information Panel	jkimwardtech	Word VBA	1	01-21-2016 06:53 PM
Vba code to save document as pdf using document property text and rename folder.	staicumihai	Word VBA	1	12-21-2015 07:39 AM
Document Property Question	ksigcajun	Word VBA	9	10-14-2014 11:26 AM
Cannot access most of property of MailItem object on Windows Server 2008 64 bit	tz900	Outlook	0	04-10-2012 12:55 PM
Access to the property of the current table	b0x4it	Word VBA	2	05-26-2011 06:25 AM