Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 02-24-2012, 12:22 PM
eazysnatch eazysnatch is offline Add custom doc properties in "Doc properties control" Windows 7 64bit Add custom doc properties in "Doc properties control" Office 2010 64bit
Novice
Add custom doc properties in "Doc properties control"
 
Join Date: Feb 2012
Posts: 2
eazysnatch is on a distinguished road
Default Add custom doc properties in "Doc properties control"

Hello ,

I have some kind of template and my idea is to fill some data as Document Properties "author", "Release Data", "Version" , "Document Name" ... etc. For that reason I want to make custom fields on "Document Properties control". I know how to do it from Insert > Quick path > field > ... but i want to be on my screen like a empty box. Just to fill that empty boxes and all my document to be updated.





Last edited by eazysnatch; 02-25-2012 at 01:53 AM. Reason: Image editing
Reply With Quote
  #2  
Old 09-13-2017, 02:16 PM
JLanger JLanger is offline Add custom doc properties in "Doc properties control" Windows 10 Add custom doc properties in "Doc properties control" Office 2013
Novice
 
Join Date: Sep 2017
Posts: 1
JLanger is on a distinguished road
Default

I'm posting this for anyone looking for a solution to updating previously inserted Custom Document Properties (CDP's). My approach is for situations where you have a number of documents which all have the same CDP's and you want to update all of the documents at once with the new values.

For example, I administrate a number of training documents for a factory, and those documents all have references to the company supplying our chemicals, and references to the particular chemical names. I've inserted CDP's related to these inline within all the documents. So, when the company/chemicals change all I need to do is run this macro, give it the filepath for the documents, input the new values, and then all the documents will be updated.

This saves hours of work, depending on your situation.

I've left the variables with my original names, change them to suit your situation.

I've included quite a few comments, mainly for those not as familiar with VBA.

Copy/Paste into a new module in Normal

Code:
Sub company_and_details_update()
Dim file
Dim path As String


Dim filepath As Variant
filepath = InputBox("Please enter the filepath for the files you want to update.", "Input Filepath", "Copy filepath here...")
    
If filepath = "" Then
    macroended = MsgBox("Macro ended.", , "Notification")
    Exit Sub
Else
End If

'I have three different custom doc properties below, these names do not need to match the pre-existing custom doc property names, but mine do, mainly for my sanity
'add or remove these/change the text as desired

Dim companyname As Variant
companyname = InputBox("Please enter the new chemical supplier company name, or, if the company is not changing, type the current company name.", "New Chemical Supplier?", "Type name here...")

If companyname = "" Then
    macroended = MsgBox("Macro ended.", , "Notification")
    Exit Sub
Else
End If


Dim foamingchemicalname As Variant
foamingchemicalname = InputBox("Please enter the new foaming chemical name, or, if this is not changing, type the current name.", "New Foaming Chemical?", "Type name here...")

If foamingchemicalname = "" Then
    macroended = MsgBox("Macro ended.", , "Notification")
    Exit Sub
Else
End If


Dim sanitisingchemicalname As Variant
sanitisingchemicalname = InputBox("Please enter the new sanitising chemical name, or, if this is not changing, type the current name.", "New Sanitising Chemical?", "Type name here...")

If sanitisingchemicalname = "" Then
    macroended = MsgBox("Macro ended.", , "Notification")
    Exit Sub
Else
End If


' Path to your folder
path = filepath & "\"

'below code displays a message box with the filepath given earlier, remove "'" at start of line to enable
'checkpath = MsgBox(path, , "Check Path")

' Change this file extension to the type of file you are opening.
file = Dir(path & "*.docx")

Application.ScreenUpdating = False

    Do While file <> ""
        Documents.Open FileName:=path & file
            'add more lines if required
            ActiveDocument.CustomDocumentProperties("companyname").Value = companyname
            ActiveDocument.CustomDocumentProperties("foamingchemicalname").Value = foamingchemicalname
            ActiveDocument.CustomDocumentProperties("sanitisingchemicalname").Value = sanitisingchemicalname
        
            ActiveDocument.Fields.Update
    
        ActiveDocument.Saved = False
        ActiveDocument.Save
        ActiveDocument.Close
    
        ' set file to next in Dir
        file = Dir()

    Loop

Application.ScreenUpdating = True

MsgBox "The operation is complete."

End Sub
Reply With Quote
  #3  
Old 09-13-2017, 08:08 PM
Charles Kenyon Charles Kenyon is offline Add custom doc properties in &quot;Doc properties control&quot; Windows 10 Add custom doc properties in &quot;Doc properties control&quot; Office 2013
Moderator
 
Join Date: Mar 2012
Location: Sun Prairie, Wisconsin
Posts: 9,083
Charles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant future
Default

Hello,
For those who want custom document properties content controls like those under the Quick Parts, I have no solution. Likewise, I can't comment on the macro posted by JLanger. It is off-topic but seems interesting.

The Content Controls, though, can be edited as can other content controls.
Repeating Data Using Document Property Content Controls and Other Mapped Content Controls
Reply With Quote
Reply

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
Excel VBA: Control Word Table and Set its properties tinfanide Excel Programming 0 12-10-2011 09:06 AM
Add custom doc properties in &quot;Doc properties control&quot; Add custom document properties into document NicBodkin Word 8 05-05-2011 09:09 AM
document properties issues charris1980 Word 0 04-29-2009 12:49 PM
Looping though Custom Properties in VBA suekay Misc 0 05-19-2006 06:10 AM
Visio - Custom Properties Timeout? googull Visio 0 05-17-2006 07:37 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 04:20 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft