How to access document summary?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Łukasz - 10 Jan 2006 15:09 GMT

Hi,

When I click File | Properties I can fill the document's summary. How
can I do this in code?

Thanks in advance
Łukasz

Reply to this Message

Kevin B - 10 Jan 2006 19:37 GMT

Here is some code that will set 2 properties:

Dim doc As Document

Set doc = ActiveDocument

With doc
.BuiltInDocumentProperties(wdPropertyTitle) = "TitleText goes here."
.BuiltInDocumentProperties(wdPropertyAuthor) = "Author name goes
here."
End With

The following built-in properties can be set programmatically: title,
subject, keywords, comments, template, last print date, category, format,
manager, company, number of slides, number of multimedial clips, and
hyperlink base. All of these are wd constants.

Signature

Kevin Backmann

> Hi,
>
[quoted text clipped - 3 lines]
> Thanks in advance
> Łukasz

Reply to this Message

Kevin B - 10 Jan 2006 19:46 GMT

Here's a list of all the wd property constants:

wdPropertyAppName
wdPropertyAuther
wdPropertyBytes
wdPropertyCategory
wdPropertyCharacters
wdPropertyCharsWSpaces
wdPropertyComments
wdPropertyCompany
wdPropertyFormat
wdPropertyHiddenSlides
wdPropertyHyperlinkBase
wdPropertyKeywords
wdPropertyLastAuthor
wdPropertyLines
wdPropertyManager
wdPropertyMMClips
wdPropertyNotes
wdPropertyPages
wdPropertyParas
wdPropertyPropertyRevision
wdPropertySecurity
wdPropertySlides
wdPropertySubject
wdPropertyTemplate
wdPropertyTimeCreated
wdPropertyTimeLastPrinted
wdPropertyTimeLastSaved
wdPropertyPropertyTitle
wdPropertyVBATotalEdit
wdPropertyWords

I had do rummage about to find the document I had parked them in.

Hope this helps...

Signature

Kevin Backmann

> Here is some code that will set 2 properties:
>
[quoted text clipped - 20 lines]
> > Thanks in advance
> > Łukasz

Reply to this Message

Łukasz - 11 Jan 2006 00:49 GMT

> Here's a list of all the wd property constants:
>
[quoted text clipped - 32 lines]
>
> Hope this helps...

It helped very much, thanks a lot.
Łukasz

Reply to this Message

Jants - 12 Jan 2006 12:21 GMT

Hi, when I use the following code:
x = Application.Dialogs(750).Show
If x = "-1" Then
MsgBox "Cancel"
Else: MsgBox "OK"
End If

I get an error when I hit Cancel. How can I fix this ? I just want to close
the damned dialogbox when I hit Cancel :-)

> > Here's a list of all the wd property constants:
> >
[quoted text clipped - 35 lines]
> It helped very much, thanks a lot.
> Łukasz

Reply to this Message