将单词列表插入单词/创建句子

Question

我有一个单词列表：

猫

狗

鸟

我有一个静态句子：“[变量] 很开心”

我需要生成：

猫很开心

狗很开心

小鸟很高兴

Answer 1

试试这个

Public Sub test()
   Dim MySentence As String, MyWords As String, MyWordsAR() As String, i As Long
   
   MySentence = "The XXX is happy"
   MyWords = "cat dog fish robin frog"
   MyWordsAR = Split(MyWords, " ")
   
   For i = LBound(MyWordsAR) To UBound(MyWordsAR)
      ActiveDocument.Content = ActiveDocument.Content & vbCrLf & Replace(MySentence, "XXX", MyWordsAR(i))
   Next i
End Sub

将单词列表插入单词/创建句子

Insert List of words into a Word / create sentences

vba

ms-word