Results 1 to 7 of 7
  1. #1
    Lounger
    Join Date
    Aug 2005
    Posts
    49
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Total Editing Time (2003)

    Is it possible to change or reset this document property with VBA?

    ActiveDocument.BuiltInDocumentProperties("Author") = "A New Name"
    works, but
    ActiveDocument.BuiltInDocumentProperties(wdPropert yVBATotalEdit) = 0
    doesn't change anything

  2. #2
    Super Moderator
    Join Date
    Jan 2001
    Location
    Melbourne, Victoria, Australia
    Posts
    3,852
    Thanks
    4
    Thanked 259 Times in 239 Posts

    Re: Total Editing Time (2003)

    Have you tried a SaveAs?
    Andrew Lockton, Chrysalis Design, Melbourne Australia

  3. #3
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Total Editing Time (2003)

    Total editing time is a read-only property, you cannot reset it (at least, not easily). However, if you use SaveAs to save the document (even if you save it under the same name!), Total Editing Time will be reset to 0:

    ActiveDocument.SaveAs ActiveDocument.FullName

    But of course, this will also reset the Created and Modified date/time!

  4. #4
    Lounger
    Join Date
    Aug 2005
    Posts
    49
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Total Editing Time (2003)

    Thanks, Andrew and Hans - that's just brilliant. Especially the bit about 'saving as' the existing name. I can stop banging my head against the VBA

    Tim

  5. #5
    2 Star Lounger
    Join Date
    Feb 2001
    Location
    Wellington, New Zealand
    Posts
    143
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: Total Editing Time (2003)

    The following macro code works for me (using Word 2002):

    <pre>Dim objDialogBox As Object

    With WordBasic
    Set objDialogBox = .DialogRecord.FileSummaryInfo(False)
    .CurValues.FileSummaryInfo objDialogBox
    objDialogBox.EditTime = "0"
    .FileSummaryInfo objDialogBox
    Set objDialogBox = Nothing
    End With
    </pre>


    This resets the "Total editing time" (the value that's displayed via "File | Properties | Statistics") to zero.

  6. #6
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Total Editing Time (2003)

    Ah - good old WordBasic! <img src=/S/thumbup.gif border=0 alt=thumbup width=15 height=15>

  7. #7
    Lounger
    Join Date
    Aug 2005
    Posts
    49
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Total Editing Time (2003)

    Wow - that works. I'd forgotten that Wordbasic lingers on. Thank you

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •