在Word中自动重复值

时间:2014-04-24 00:52:16

标签: excel ms-word

我有一个Word文档,其中我保留了一个列表日期和其他数据的矩阵。我希望一些数据出现在文档的其他部分。显然,这可以手动完成,但如果用户不记得更新数据需要出现的其他区域,则存在数据不一致的风险。有人知道告诉Word在指定位置重复相同数据的方法吗?我担心的是,数据源是一个矩阵的事实会增加一层复杂性,因为必须告诉Word究竟要引用哪个单元格。

如果这是Excel,那将会容易得多。 Excel对应物将是公式= A1 ...因此,我在A1中输入的任何值都将在带有公式的单元格中重复。希望这个类比解释我的问题,如果我上面的漫无所谓。

1 个答案:

答案 0 :(得分:0)

您可以使用自定义值。您可以从菜单中创建/定义:

File -> Info -> Properties -> Advanced -> TAB Custom -> Create one... (Custom1)

要插入:

Insert -> Quick Parts -> Field (Custom1)

在DocProperty(字段名称)内找到了字段 您可以在doc中插入很多内容。每个人都想拥有相同的价值 之后您可以使用以下代码:

Dim oStory As Range

Application.ActiveDocument.CustomDocumentProperties.Item("Custom1").Value = InputBox("Valore")
For Each oStory In ActiveDocument.StoryRanges
    oStory.Fields.Update
    If oStory.StoryType <> wdMainTextStory Then
        While Not (oStory.NextStoryRange Is Nothing)
            Set oStory = oStory.NextStoryRange
            oStory.Fields.Update
        Wend
    End If
Next oStory
Set oStory = Nothing

修改和更新所有字段(具有相同名称)。