Wordのクイックパーツを使ったＶＢＡコード

#WordのクイックパーツとContentControl
OfficeのWordでクイックパーツを入力した場合、そのパーツをVBA上でContentControlとして扱うことが出来る。実際に書いてみる。
##発行日とタイトルのクイックパーツを用いたファイル保存マクロの作成
###このマクロでやりたいこと

クイックパーツの「タイトル」「発行日」を使っているWord文書に対して以下の処理を行う。

• 発行日を現在の日付に更新(yyyy/mm/dd)
• タイトルを取得し、ファイル名を「yyyymmdd_タイトル」として保存するダイアログを開く。

Wordマクロ_Normal標準モジュール

Public Sub UpdateDate()

    Dim title As String
  
    Dim control As ContentControl

    '繰り返し処理でContentControlのtitleがクイックパーツ名と一致するか調べる。
    '一致した場合、該当したクイックパーツを使って処理を行う。
    For Each control In ActiveDocument.ContentControls
     
    Select Case control.title
    
        Case "発行日"
    
        control.Range.Text = Format(Date, "yyyy/mm/dd")'発行日のクイックパーツの日付を更新
        
        Case "タイトル"
        
        title = control.Range.Text
    
    End Select
    
    Next

    With Application.FileDialog(msoFileDialogSaveAs)'ダイアログの呼び出し

        .InitialFileName = Format(Date, "yyyymmdd") & "_" & title 'ファイル名の設定

        If .Show = False Then
            Exit Sub  'キャンセル
        Else
            .Execute  '保存
        End If

    End With

End Sub

#応用可能性について
クイックパークを使っていない場合でも、（組織などで）テンプレートで文書を作っている場合は、その形式からファイル名、日付の位置を選択して同じような処理が出来ると考えられる。