Solved

Remove attributes from Word .doc files in a batch

Posted on 2010-09-22
4
557 Views
Last Modified: 2012-05-10
Hi,

is there a way to remove attributes from a batch of word/excel docs ? I have documents and spreadsheets that have be moved on a server that are trying to reference and old workstation for the template every time you open them which is causing delays in opening.

If I open the document in word/excel 2010 and use the document inspector it finds the attributes which are document properties and personal information. When I remove these attributes the problem is resolved. The issue I have is that I have thousands of documents.

Any Ideas?
0
Comment
Question by:gilliganwedge2
  • 2
4 Comments
 
LVL 11

Expert Comment

by:ProfessorBindokas
Comment Utility
Hi

There is a shareware tool that allows batch processing of properties on word files that worked pretty well for me - http://www.freedownloadscenter.com/Business/MS_Office_Add-ins/MS_Word_Document_File_Properties_Changer.html

Perhaps you will find this useful, too.
0
 
LVL 9

Expert Comment

by:rfportilla
Comment Utility
This requires a script of some kind.  THe basic construct is this:

1. unzip the *.docx file
2. Either load contents into an xml object of some kind (depends on language) or search and replace text
3. zip again

docx and xlsx files are really just zipped xml files.  Once you unzip them you can work with just like xml.  There may be a tool for this online, but I don't know of one personally.  
0
 
LVL 76

Accepted Solution

by:
GrahamSkan earned 500 total points
Comment Utility
This question has been asked a number of times in this forum.
The macro below is taken from this one:

http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Word/Q_24131218.html


It does a recursive search for all documents in a folder and its subfolders.

It needs to be called thus:

FindFiles "C:\MYFolder", *.doc*
Sub FindFiles(strFolder As String, strFilePattern As String)

    Dim strFileName As String

    Dim strFolders() As String

    Dim iFolderCount As Integer

    Dim i As Integer

    Dim wdDoc As Word.Document

   

    '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 = ""

            DoEvents

            Set wdDoc = Documents.Open(strFolder & "\" & strFileName)

            If wdDoc.AttachedTemplate.Path = "\\Oldserver\templates\" Then

                wdDoc.AttachedTemplate = "\\NewServer\templates\" & wdDoc.AttachedTemplate.Name

                wdDoc.Close wdSaveChanges

            Else

                wdDoc.Close wdDoNotSaveChanges

            End If

        strFileName = Dir$()

    Loop

   

    'look through child folders

    For i = 0 To iFolderCount - 1

        FindFiles strFolders(i), strFilePattern

    Next i

End Sub

Open in new window

0
 
LVL 76

Expert Comment

by:GrahamSkan
Comment Utility
Oops. missed the quotes around *.doc*.

It should be:

FindFiles "C:\MYFolder", "*.doc*"
0

Featured Post

Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

Join & Write a Comment

The Selection object is designed for user interaction. It has a Range property, so it can be used in most places that a Range object can. Recorded macros must use the Selection because they are simply copying what the user is doing. A Range prope…
Shortcuts in Word Just the other day I had a training for Microsoft and they wanted me to show how well the new Windows and Office behaved on a touch device, which by the way is great, but it was only then that I realized that using keyboard shortc…
This Micro Tutorial demonstrate the bugs in Microsoft Excel for Mac with Pivot Charts.
This Micro Tutorial will demonstrate how to create pivot charts out of a data set. I also added a drop-down menu which allows to choose from different categories in the data set and the chart will automatically update.

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now