Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.
Word 2010 Recommend Read Only Batch file
Does anybody have any suggestions on how to write a batch file which will scan all the files on a drive and convert them so that when they are opened up Word suggests that it's opened read-only (this option is under Save As->Tools->General Options
Asked:
2
2-
2
1 Solution
I don't know about a batch file, but it would be possible with a Word macro or, slightly more difficult, with a VBScript.
Unfortunately i don't want to set the read only attribute on the file. I would like to set the flag which means Word suggests opening it ready only. I think a Word macro might be the only way but could be very fiddly
Many thanks
Chris
Many thanks
Chris
I still want the users to be able to get write access should they need it but i just want the prompt window to come up when the file is opened to recommend read only (which is an option within Word)
This VBA code does a recursive search of the folder structure; it opens anything with an extension beginning with .do; sets the property and saves and closes the document.
Sub CallFindDocFiles()
FindDocFiles "X:\", "*.do*"
End Sub
Sub FindDocFiles(strFolder As String, strFilePattern As String)
Dim strFileName As String
Dim strFolders() As String
Dim iFolderCount As Integer
Dim i As Integer
'collect child folders
strFileName = Dir$(strFolder & "\", vbDirectory)
Do Until strFileName = ""
If (GetAttr(strFolder & "\" & strFileName) And vbDirectory) = vbDirectory Then
If Left$(strFileName, 1) <> "." Then
ReDim Preserve strFolders(iFolderCount)
strFolders(iFolderCount) = strFolder & "\" & strFileName
iFolderCount = iFolderCount + 1
End If
End If
strFileName = Dir$()
Loop
'process files in current folder
strFileName = Dir$(strFolder & "\" & strFilePattern)
Do Until strFileName = ""
ProcessDocument strFolder & "\" & strFileName
strFileName = Dir$()
Loop
'look through child folders
For i = 0 To iFolderCount - 1
FindDocFiles strFolders(i), strFilePattern
Next i
End Sub
Sub ProcessDocument(strDocFullname As String)
Dim doc As Word.Document
Set doc = Documents.Open(strDocFullname)
doc.ReadOnlyRecommended = True
doc.Close wdSaveChanges
End Sub
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join & Write a Comment Already a member? Login.
Featured Post
This course will help prep you to earn the CompTIA Healthcare IT Technician certification showing that you have the knowledge and skills needed to succeed in installing, managing, and troubleshooting IT systems in medical and clinical settings.
Tackle projects and never again get stuck behind a technical roadblock.
Join Now
Like this: attrib.exe *.doc +r
You might also wanto to set read only security on the folder they use.