如何从 Excel VBA 切换到 Word 文档中的下一个选择？

Question

我有一个设置为文本框网格的 Word 文档和一个包含一行地址的 Excel 文档。

我的目标是将这些地址中的每一个都放在一个文本框中，这样我就可以将它们打印出来以与邮寄贴纸对齐。

如果我手动 copy/paste 地址，我需要按一次 Tab 键到 select 下一个文本框。但是，我找不到通过 VBA.

发送“制表符”命令的方法

有没有办法跳到 select 下一个文本框或形状？

   For row = 2 To last_row
        addr = Cells(row, col)
        wordselection.TypeText (addr) & vbTab ' Tried sending a vbtab, but that doesn't affect selection
        wordselection.moveright Unit:=wdCell 'This gives an error, presumably because I'm not in a table.

        Set shp = wordapp.activedocument.Shapes("Item " & row) ' Tried getting the shape by name, but this gives an error
        shp.Select (True)
         
    Next

可能有比发送标签更简单的方法来实现我的目标；我对这里的 XY 问题持开放态度。

Answer 1

原来还有一个sendkeys statement.

 For row = 2 To last_row
    addr = Cells(row, col)
    wordselection.TypeText (addr)
    sendkeys "{TAB}" 'Non printed characters have {} names.
     
Next

如何从 Excel VBA 切换到 Word 文档中的下一个选择？

How to tab to next selection in Word document from Excel VBA?

excel

vba

ms-word