在excel中复制范围，在MSWord文档中查找特定的文本，replace为剪贴板图像

我在Excel中复制一个范围作为图像，我想将它插入到一个文字文件作为replace虚拟文本“Qwerty01”。 现在它打开word文档并在顶部粘贴图像 – 如何在粘贴之前将光标移动到虚拟文本？

Sub automateword() Dim sheet1 As Object Dim wdFind As Object Set wordapp = CreateObject("word.Application") wordapp.documents.Open ThisWorkbook.Path & "\Word.docx" wordapp.Visible = True Set sheet1 = Sheets("Prog General (1)") Set wdFind = wordapp.Selection.Find sheet1.Range("D14:N46").CopyPicture Appearance:=xlScreen, Format:=xlPicture wdFind.Text = "Qwerty01" wordapp.Selection.Paste End Sub