Private Sub Execute_WordMacro(MacName As String) '///// Wordマクロの実行 Dim wrd As Object Dim I As Integer If MacName = "" Then Exit Sub On Error GoTo GetWordObject_Error Set wrd = GetObject(, "Word.Application") wrd.run MacName Set wrd = Nothing Exit Sub GetWordObject_Error: I = I + 1 If I = 5000 Then Exit Sub Resume End Sub 2つの指定した日付の時間間隔を表すバリアント型 (内部処理形式 Date の Variant) の値を指定します。 DateDiff(interval,d