Word VBA更新LinkFormat.SourceFullName以更新图形链接

Question

当我使用以下代码时

For Each s In ActiveDocument.InlineShapes
  If InStr(s.LinkFormat.SourceFullName, searchFor) > 0 Then
    s.LinkFormat.SourceFullName = "http://mynewlink.gif"
  End If
Next

它执行时没有错误，但s.LinkFormat.SourceFullName保持不变。它就像被锁定或只读，但我无法看到任何可能的地方。

Answer 1

您需要致电

db.collectionName.update({},{"$set":{"records.0.buy_items":db.collectionName.distinct('records.buy_items')}})