ExcelのマクロでWordを操作しようとすると添付の画像が表示されて、実行されません。 どのようにしたらブロックされずに実行することができるのでしょうか? 下記のコードを参考にして書いています。 Sub VBA100_80_01() Dim wb As Workbook: Set wb = ThisWorkbook Dim ws As Worksheet: Set ws = wb.ActiveSheet Dim objWord As Word.Application, objDoc As Word.Document Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Open(wb.Path & "\doc1.docx") objDoc.Bookmarks("エクセル表").Select objWord.Selection.TypeText ws.Parent.Name & vbVerticalTab objWord.Selection.TypeText ws.Name & vbCr ws.Range("A1").CurrentRegion.Copy objWord.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, Placement:=wdInLine Application.CutCopyMode = False objDoc.SaveAs2 Replace(objDoc.FullName, ".docx", Format(Date, "_yyyymmdd") & ".docx") objDoc.Close SaveChanges:=False objWord.Quit Set objWord = Nothing End Sub
Excel