VBA Excel用Excel单元格值替换Word文本

Question

早晨好

我想用Word中的地址替换Excel单元格中的地址。

我的情况看起来像在下面的图片。

我在Excel中得到了一个地址 我想把它粘贴在Word的括号里，基于表格单元格内。

有一些解决方案。

从Excel VBA写到Word文档

使用word-VBA将一个字符串从excel粘贴到Word中。

从Word到Excel的VBA

VBA宏。Excel到Word的文本替换

这与我的情况不同。

我的代码目前是这样的。

 Sub RamsOpen()
 Dim appWD As Word.Application
 Set appWD = New Word.Application
 Dim docWD As Word.Document
 Set docWD = appWD.Documents.Open(ActiveWorkbook.path & "\RAMS.docx.docm")
 appWD.Visible = True

 Sheets("Frontsheet").Range("D18").Copy

 docWD.Content.InsertAfter Range("A1")

 End Sub

Word文档打开了，但我不知道，我的文字被复制到哪里了。

神提示似乎在这里。

https:/exceloffthegrid.comcontrolling-word-from-excel-using-vba。

但适用于空白的Word文档吧。

Answer 1

我所知道的在Word文档中插入数据的最简单的方法是通过使用 Bookmarks 对象(这里的文件) (在这里写的wordmvp - 非常容易理解）。)

考虑到这一点，因为你是通过Excel来控制的，所以我会把你的地址值放到一个叫 String 变量，并将该变量分配给文档上的一个书签。

类似于：

Dim appWD As Word.Application
Set appWD = New Word.Application
Dim docWD As Word.Document
Set docWD = appWD.Documents.Open(ActiveWorkbook.path & "\RAMS.docx.docm")
appWD.Visible = True
Dim ExcelAddressValue as String

ExcelAddressValue = Sheets("Frontsheet").Range("D18").Value

docWd.Bookmarks("YourBookmarkNameHere").Range.Text = ExcelAddressValue