如何使用VBA Excel创建一个又一个书签

Question

我在Excel中有一个vba代码，可以计算一些计算。在那之后，我想把我得到的一些计算结果放到Word文档中。在这个Word文档中有一个项目符号列表，如下所示：

• XXXXX

XXXXX有一个名为"；企业"；。我想要一个代码，在使用Excel打开Word文档后，它会在列表上创建更多的项目符号，因为这取决于Excel计算的企业数量。

例如，Excel显示有3家企业。因此，列表应该如下所示：

• XXXXX
• XXXXX
• XXXXX

每个XXXXX都有一个不同的书签，我会在其中写下每个企业的名称。

我现在有以下代码：

Dim wrdApp As Object, wrdDoc As Object
Dim strPath As String

strPath = "C:Usersxxxx.docx"
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open(Filename:=strPath)
wrdDoc.Bookmarks("ENTERPRISE").Range.Text = "Enterprise 1"
wrdDoc.Bookmarks.Item("ENTERPRISE").Range.InsertParagraphAfter 'It inserts a new bullet point but without bookmark

谢谢你的回答，如果你有任何问题，请毫不犹豫地问我！

Answer 1

例如：wrdDoc.Bookmarks("ENTERPRISE"(.Range.Text="；企业1"&vbCr&quot；企业2"&vbCr

对于循环，您可能会使用以下内容：

Dim i As Long, r As Long, StrOut As String
For i = 1 To n
With ActiveSheet.Range("A" & r)
If .Value <> "" Then StrOut = StrOut & vbCr & .Value
End With
StrOut = Left(StrOut, Len(StrOut) - 1)
Next
wrdDoc.Bookmarks("ENTERPRISE").Range.Text = StrOut