在VBA，我如何读取书签是一个数组?

Question

通过书签拉入MS word的信息是一个数组，并被放置在一个表中。我需要替换数组中的一些文本。我如何通过VBA做到这一点。

例如:

入线为bookmark1 = ("question 1","TRUE",question 2,"False",.......)

需要改成bookmark1 = ("question 1","Yes",question 2,"No",.......)

Answer 1

用这样的东西作为基础，加入盐和胡椒粉调味…

Replace ActiveDocument.Bookmarks(1).Range.Text, "True", "Yes"
Replace ActiveDocument.Bookmarks(1).Range.Text, "False", "No"

根据你的评论和你的例子，显示Bookmark1的值作为一个字符串，然后…

Bookmark1 = Replace(Bookmark1， "True"， "Yes")

Answer 2

你的问题不够清楚。首先，'bookmark1'与表格有什么关系并不明显——它甚至不是Word可以识别的书签。

对于更改数组内容:

Sub Demo()
Dim bookmark1(), i As Long
bookmark1 = Array("question 1", "TRUE", "question 2", "False")
For i = 0 To UBound(bookmark1)
bookmark1(i) = Replace(bookmark1(i), "True", "Yes", , , vbTextCompare)
bookmark1(i) = Replace(bookmark1(i), "False", "No", , , vbTextCompare)
Next
MsgBox Join(bookmark1, ", ")
End Sub