Word VBA Document.PrintRevisions property not read/write? RRS feed

  • Question

  • I was advised to post this here. It is also posted at Microsoft Answers.

    I am using Office 2013 32-bit under Win10 64-bit.

    I am trying to set Application.ActiveDocument.PrintRevisions to False, but even though the code does not throw an error, the value of PrintRevisions remains True.

        With Application.ActiveDocument
        If .PrintRevisions = True Then
            Debug.Print "Before " & .PrintRevisions
            .PrintRevisions = False
            Debug.Print "After " & .PrintRevisions
        End If
        End With

    But the Immediate window shows:

    Before True
    After True

    The online documentation says PrintRevisions should be read/write. (Yes, I know it's for Office 365, but the documentation for Office 2010 agrees, and I couldn't find one specifically for Office 2013.)

    Any ideas?


    • Moved by Steve Fan Friday, December 8, 2017 2:19 AM relocate
    Thursday, December 7, 2017 10:14 PM

All replies

  • Hi,

    Welcome to the Microsoft Office for IT Professionals Word forum. This forum is for non-programming questions related to Microsoft Word. Since your question is more related to codes, I'll move it to a more appropriate forum:

    The reason why we recommend posting appropriately is you will get the most qualified pool of respondents, and other partners who read the forums regularly can either share their knowledge or learn from your interaction with us. Thank you for your understanding.


    Steve Fan

    Please remember to mark the replies as answers if they helped.
    If you have feedback for TechNet Subscriber Support, contact

    Friday, December 8, 2017 2:19 AM
  • Hi vklrc,

    I try to make a test on my side.

    I find that , I am able to reproduce the issue.

    Sub demo()
    With ActiveDocument
     .PrintRevisions = False
     Debug.Print (.PrintRevisions)
    End With
    End Sub


    so it looks like a bug.

    I try to set values in different ways.

    but nothing works.

    I suggest you to provide your feedback about this issue to Word User Voice.

    Welcome to Word's Suggestion Box!



    MSDN Community Support
    Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact

    Friday, December 8, 2017 8:01 AM
  • Okay, I submitted to the Word suggestion box here.


    Monday, December 11, 2017 2:40 PM