access通过窗体插入书签写入word

在使用Access通过窗体向Word插入书签并写入内容时，我们需要首先确保Access和Word之间的引用已经建立。可以在VBA编辑器的引用中勾选“Microsoft Word x.x Object Library”来实现这一点。

接下来，我们可以在Access窗体中创建一个Command按钮，然后在其Click事件过程中编写VBA代码来完成插入书签并写入内容的操作。下面是一个简单的示例：

Private Sub cmdInsertBookmark_Click()
Dim objWord As Word.Application
Dim objDoc As Word.Document
Dim objRange As Word.Range

'创建一个Word对象并打开一个新文档
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add

'在文档中插入一个书签
Set objRange = objDoc.Content
objRange.Collapse Direction:=wdCollapseStart
objRange.InsertBefore "这是书签内容。"
objRange.Select
objDoc.Bookmarks.Add "MyBookmark", Selection.Range

'保存并关闭Word文档
objDoc.SaveAs "C:\Path\To\Your\Document.docx"
objDoc.Close

'释放Word对象
objWord.Quit
Set objRange = Nothing
Set objDoc = Nothing
Set objWord = Nothing
End Sub

上述代码中，我们首先创建了一个Word对象，并打开了一个新的文档。接着，我们使用InsertBefore方法在文档的开头插入了一段文本，并通过Select方法选中了该文本。然后，我们使用Bookmarks对象的Add方法来添加了一个名为“MyBookmark”的书签，并将其范围设定为选中内容的范围。

最后，我们保存并关闭了Word文档，并释放了创建的Word对象。

通过这段代码，我们可以实现在Access窗体中通过VBA代码向Word插入书签并写入内容的功能。