Results 1 to 11 of 11
  1. #1
    3 Star Lounger
    Join Date
    Jun 2003
    Posts
    238
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Properties (2002)

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

  2. #2
    3 Star Lounger
    Join Date
    Jun 2003
    Posts
    238
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Properties (2002)

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

  3. #3
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

  4. #4
    3 Star Lounger
    Join Date
    Jun 2003
    Posts
    238
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Properties (2002)

    Thanks

  5. #5
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Properties (2002)

    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

  6. #6
    Bronze Lounger
    Join Date
    Jan 2001
    Location
    Virginia, USA
    Posts
    1,560
    Thanks
    37
    Thanked 1 Time in 1 Post

    Re: Properties (2002)

    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?

  7. #7
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Properties (2002)

    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.

  8. #8
    Bronze Lounger
    Join Date
    Jan 2001
    Location
    Virginia, USA
    Posts
    1,560
    Thanks
    37
    Thanked 1 Time in 1 Post

    Re: Properties (2002)

    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.

  9. #9
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Properties (2002)

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

  10. #10
    Bronze Lounger
    Join Date
    Jan 2001
    Location
    Virginia, USA
    Posts
    1,560
    Thanks
    37
    Thanked 1 Time in 1 Post

    Re: Properties (2002)

    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.

  11. #11
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Properties (2002)

    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.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •