【Excel/VBA】ドキュメントプロパティがイケメン【完全に自分用】

TANAKAさんいつもありがとうTANAKAさん！！

【参考】http://officetanaka.net/excel/vba/tips/tips122.htm
--------------------------------------------
Public Sub Set_Property(Dfo_Value() As String)
'=====================================
' プロパティ初期セット
'=====================================
Dim wkProp() As Variant, i As Long

Call Setthing_CProp(wkProp) ' エクセルに設定したい↓の内容あれそれを配列にセット

For i = 0 To UBound(wkProp)
wkProp(i, 3) = Dfo_Value(i)　　　 ' で、受け値を追加で入れる
Next

On Error GoTo Err_Me

For i = 0 To UBound(wkProp)
ThisWorkbook.CustomDocumentProperties.Add _
Name:=wkProp(i, 0), _
LinkToContent:=wkProp(i, 1), _
Type:=wkProp(i, 2), _
Value:=wkProp(i, 3)
Next

Call Me_Save ' プロパティ変更は、当然、Workbook.SavedがFalseになる訳なんだが、ユーザーにセーブ判断をさせたくなかったり、セーブさせたくなかったりするために挿入しているプロシージャ

Exit Sub
Err_Me:

Select Case Err.Number
' 既に設定済みプロパティだった
Case -2147467259
Call Chg_Property(CStr(wkProp(i, 0)), wkProp(i, 3))
Resume Next
End Select

End Sub
--------------------------------------------