在Word中通过VBA添加注释包括页码字段

我有一个将注释框添加到我的Word文档中的过程，但我注意到它还添加了一个页码字段（通过选择注释框并选择更新字段从上下文菜单中）。只有在通过VBA添加注释时才会发生这种情况，而不是在手动创建注释时发生。有没有一种方法可以禁止将页码添加到评论中？在Word中通过VBA添加注释包括页码字段

代码摘录如下：

With Selection.Find 
    .Text = "Approvals" 
    .Forward = True 
    .Execute 

    If .Found = True Then 
     Selection.Comments.Add Range:=Selection.Range, Text:="My comment text" 
    End If 
End With

来源

2013-05-01 user2340454

说实话我是你的问题感到惊讶，但后来我意识到，我有同样的问题，）谷歌搜索我发现一些想法刚刚搜索'页fields'在注释中删除它们。我认为这是你应该去的方式。我没有找到任何选项来添加评论（与VBA），并避免自动添加页码，不幸的是... – 2013-05-02 22:31:55

这是我用来删除这些页字段。只是End Sub之前运行大量的代码后，我插入以下内容：

For Each f In ActiveDocument.StoryRanges(wdCommentsStory).Fields 
    If f.Type = wdFieldPage Then 
     f.Delete 
    End If 
Next

它可能不漂亮，但它的工作。不幸的是，我认为没有办法根据评论作者进行过滤。

For Each c In ActiveDocument.Comments 
    If c.Author = "Macro Name" Then 'Assuming you set it when you created the comment 
     Debug.Print c.Range.Fields.Count 'This prints a 0 
    End If 
Next

来源

2016-07-08 19:01:28

在Word中通过VBA添加注释包括页码字段

回答

相关问题