Properties (2002)

[crottyjd]

For all of my Word document properties, the company is spelt wrong, is there a quick way to change this?

[crottyjd]

I was actually just looking for all future documents to reflect the correct company name.

[HansV]

See MSKB article How to change the company name and user name in Office XP programs.

[crottyjd]

Thanks

[HansV]

Do you mean that you want to correct the company name in existing documents? You could use a macro to handle all documents in a folder:

Sub CorrectCompany()
' Modify as needed, but keep trailing backslash
Const strPath = "C:Word"
' Incorrect and correct company names - modify as needed
Const strIncorrect = "Acme Icn"
Const strCorrect = "Acme Inc"

Dim strFile As String
Dim doc As Document

On Error GoTo ErrHandler

Application.ScreenUpdating = False

strFile = Dir(strPath & "*.doc")
' Loop through documents in folder
Do While Not strFile = ""
' Open document
Set doc = Documents.Open(FileName:=strPath & strFile, _
AddToRecentFiles:=False)
' Is the company name incorrect?
If doc.BuiltInDocumentProperties(wdPropertyCompany) = strIncorrect Then
' If so, set correct name
doc.BuiltInDocumentProperties(wdPropertyCompany) = strCorrect
' And save the document
doc.Save
End If
' Close document without saving
doc.Close SaveChanges:=wdDoNotSaveChanges
' And go on to the next one
strFile = Dir
Loop

ExitHandler:
Application.ScreenUpdating = True
Set doc = Nothing
Exit Sub

ErrHandler:
MsgBox Err.Description, vbExclamation
Resume ExitHandler
End Sub

[Caesar3]

Hans:
I followed the instructions in the MSKB article, but I do not see a field named RegCompany for my MS-Office installation in the registry editor. I see it for other products (McAfee stuff, for example), but not for Office. I'm using a machine that's on a corporate (that is, government) network. Is it possible the boss intentionally disabled this item?

[HansV]

I guess it means that no company name was entered when Office XP was installed. There is no RegCompany value on my home PC either.

[Caesar3]

Can you suggest where the Properties sheet is getting the value it displays now? It's not misspelled or anything, but I want to change it. I don't see a "company" field on the Custom tab of the Properties sheet. I thought perhaps I could modify the Properties sheet in the Normal template, but that approach didn't work.

[HansV]

The Company property is in the Summary tab of File | Properties.

[Caesar3]

Yes, but something is filling in that field automatically, and I'm trying to understand what that something is. It doesn't appear to be in the registry...unless I'm looking in the wrong place. Thanks.

[HansV]

I've found RegCompany in the second location suggested by the MSKB article:

HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/Current Version/Installer/Userdata/S-1-5-18/Products/<GUID>/InstallProperties

You'll have to navigate to HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/Current Version/Installer/Userdata/S-1-5-18/Products in RegEdit, then expand each of the subkeys (long hexadecimal strings such as 9040110900063D11C8EF10054038389C) and look at InstallProperties until you see one whose DisplayName entry says Microsoft Office XP (or 2003 or whatever your version is). Then check if there's a RegCompany entry.