資料少なさのため、今時、VC6のマクロ製作に四苦八苦しているのは私だけ？ Sub InsertDate() 'DESCRIPTION: 選択しているところに日付を挿入 ActiveDocument.Selection.Text = Date End Sub