Make File Writable macro

Sub MakeFileWriteable()
'DESCRIPTION: Remove Read-Only File attribute from active document

' Author: V. Sauder
' Copyright: Hekimian Labs, Inc. 1999

    Dim doc
    Set doc = ActiveDocument
    Dim fname
    fname = doc.FullName
	if (doc.ReadOnly) then
		doc.ReadOnly = False
		msg = ToggleReadOnlyBit(fname)
		'MsgBox msg
	end if
	Set doc = nothing

End Sub

const ReadOnly = 1
Function ToggleReadOnlyBit(filespec)

' Copyright Microsoft. VBscript example code slighty modified.

	Dim oFS, oFile
	Set oFS = CreateObject("Scripting.FileSystemObject")
	Set oFile = oFS.GetFile(filespec)
	oFile.attributes = oFile.attributes xor ReadOnly
	If oFile.attributes and ReadOnly Then
		ToggleReadOnlyBit = "ReadOnly bit is now set."
	Else
		ToggleReadOnlyBit = "ReadOnly bit is now cleared."
	End If

End Function