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

早上好

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

我的情况如下图所示：

我在Excel中有一个地址，我想粘贴在单词括号中，位于表格单元格内

有一些解决方案：

这和我的情况不同

到目前为止，我的代码如下所示：

 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文档正在打开，但我不知道我的文本复制到了哪里

上帝的提示似乎在这里：

---

但适用于空白单词文档。我认为，

< P>我知道将数据插入Word文档的最简单方法是使用<代码>书签< /Cord>对象（）（非常容易遵循）。 考虑到这一点，当您从Excel控制此操作时，我会将您的地址值放入

字符串
变量中，并将该变量指定给文档上的书签

比如：

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


在你的word文档中，
范围（“A1”）
指的是哪里？我不知道。我在猜测，我的表格如上图所示。我不久前用Excel和Word一起做了一些事情，如果我没记错的话，引用表格单元格的方法是使用。我会把它留给你，但会看看我是否能把我的项目挖掘出来。那太棒了。我试了好几次来实现我的目标。除此之外，这不仅仅是一个地方，我想在这里输入数据。很遗憾，我似乎没有将该应用程序发送回家，只有一个是Word only，我从Word向excel询问了有关数据的问题。如果您没有阅读，wordmvp文章引出了另一篇关于在不删除书签的情况下写入书签的文章——如果您将过度写入同一文档，则绝对值得一读（但如果您每次都使用模板文档并保存为不同的文档或不保存更改，则不太相关）