Insert field in formula with VBA

[cc85]

Hello,

I am a trainer and in my exercises, I have dates.
Instead of changing the dates manually every year, I have automated them by :
1 - Creating an advanced property "Year" that I change every year (File/Information/Properties/Advanced properties/Customization)
2 - In the body text, at each date :
- Insert/QuickPart/Field/ok
- It indicates me "! unexpected end of formula".
- Right click to "Toggle field codes" : {.=..* MERGEFORMAT }
- I put myself after = then Insert/QuickPart/Field/PropertyDoc/Year : {.=.2021.\* MERGEFORMAT }
- I put myself after 2021 and I add +1, +2 or -1
- Right click and "update fields" recalculates the date.
This gives me { { DOCPROPERTY Year \* MERGEFORMAT } + 1 \* MERGEFORMAT }
3 - Each year I change the date in properties, I recalculate => it's ok



Instead of doing each time the manipulation by hand, I tried a VBA macro :

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="= ", PreserveFormatting:=Tru

This inserts the calculation field

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="DOCPROPERTY  Annee ", PreserveFormatting:=True

Which inserts the Year property

But how do I combine the two?

There is a field type wdFieldDocProperty but I don't know how to use it.

Thank you for your solution...

[gmayor]

Why not simply insert a DATE field (or a CREATEDATE field if it is a template)
{ DATE \@ "yyyy" } or { CREATEDATE \@ "yyyy" } ? This will always show the year (or in the case of the latter the year the document was created.

To insert a DocProperty field

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldDocProperty, Text:="Annee", PreserveFormatting:=False

[cc85]

Thank you
But that's not what I want.
For example, I did an exercise in 2018. All the dates in that exercise are from 2016 to 2024.
I want to give this same exercise now: I need to change all the dates, from 2020 to 2028.
So, I need a formula...
I wish you a good day

[gmayor]

Frankly I wouldn't do it like that. As you are going to have to change the fields in the documents, I would suggest that you use instead content controls.

If there are nine different years then use nine content controls each with a different title e.g. - Date1 to Date9, where Date1 is the first date i.e. 2020 and Date9 is the last date i.e. 2028. You can use the same field titles wherever you wish to repeat one or more of the dates.

Select the existing date in the document and run Macro1 to create and title the content control in place of the date, This only has to be done once.

Depending on how the dates are currently inserted, it may be possible to automate this to update them all at once, but as shown you put the cursor in a date and run the Macro1

Then it is a simple matter to update all the Date content controls in the document using Macro2.

You can change the defaults in the input boxes as required, but the start value is always the same for each content control in Macro1.

Sub Macro1()
Const strList As String = "0123456789"
Dim sStart As String, sText As String
Dim iDate As Integer
Dim oRng As Range
Dim oCC As ContentControl

    sStart = InputBox("Enter lowest/first year in the document", "Start Year", "2016")

    Set oRng = Selection.Range
    oRng.MoveStartWhile strList, wdBackward
    oRng.MoveEndWhile strList
    sText = oRng.Text
    iDate = CInt(oRng.Text) - CInt(sStart)
    Set oCC = oRng.ContentControls.Add(wdContentControlRichText)
    With oCC
        .Title = "Date" & CStr(iDate + 1)
        .Tag = .Title
        .Range.Text = sText
        .LockContentControl = True
    End With
    Set oCC = Nothing
    Set oRng = Nothing
End Sub

Sub Macro2()
Dim oCC As ContentControl
Dim sStart As String
    sStart = InputBox("Enter lowest/first year in the document", "Start Year", "2020")
    For Each oCC In ActiveDocument.ContentControls
        If oCC.Title Like "Date?" Then
            oCC.Range.Text = CStr(Val(sStart) + Val(Right(oCC.Title, 1) - 1))
        End If
    Next oCC
    Set oCC = Nothing
End Sub

[cc85]

Thanks jmayor,
That's a good solution: I keep the idea and I will adapt it.