Question

word文档如何引用部分文字？

比如，只要修改一处变量，后面引用这些变量的地方也会跟着变。在excel里面直接A1=D1，就可以实现。但是word的话，就要运用到域的概念。本问题，我弄了3天终于解决了，使用DOCVARIA域可以实现。首先定义宏变量

.Add Name:="time", Value:=Replace(doc.Tables(1).Cell(1, 4).Range.Text, Chr(13) & Chr(7), "") //表格1里面第1行，第4列的单元格变量，定义为“time”名字

然后使用{ DOCVARIA 变量名 }调用 即可！！！！！！！具体宏代码，在下面放出。
Sub AddDocVariables()
Dim doc As Document, doc_var As Variable
Set doc = ActiveDocument
For Each doc_var In doc.Variables
doc_var.Delete
Next
With doc.Variables
.Add Name:="xm", Value:=Replace(doc.Tables(1).Cell(1, 2).Range.Text, Chr(13) & Chr(7), "")
End With
' For Each doc_var In doc.Variables
' Debug.Print doc_var.Value
' Next
doc.Fields.Update
End Sub

Answer 1

方法/步骤

• 首先，打开需要进行设置的word文档。

  

• 然后，在文本中输入交叉引用的介绍文字，并将鼠标光标保持在这里作为交叉引用的插入点。

  

• 然后，将word文档切换到功能区的引用选项卡。

  

• 然后点击引用选项卡中题注组内的交叉引用选项。

  

• 之后会弹出一个交叉引用的弹框，如下图中所示。

  

• 在引用类型中选择要引用的类别，并在下面选择具体要引用的内容，然后点击插入即可。

  

• 然后word文档就会变成如下的样子，将鼠标光标移动到交叉引用的文字上时，会出现"按住ctrl并单击可访问链接”的文字提示，如果按住ctrl键并点击这里的话就会直接跳转到第二首诗的位置，鼠标光标就会移到第二首诗标题的前面。

  

Answer 2

这个用邮件合并就能完成。举例来说：

首先，是报告内容，如下：
关于厉行节约的报告
摘要：公司大会讲话
关键词：公司；讲话；发言
中国，中华人民共和国，。。。。。
抄送：人事部、销售部
印数：200

其中标题、以及下面冒号后面的内容是变动文字，需要通过邮件合并自动完成。这个文档我们称之为报告文档。

其次，是数据内容，即变动内容，如下：
标题|摘要|关键词|抄送|印数
关于厉行节约的报告|公司大会讲话|公司；讲话；发言|人事部、销售部|200
这里是一个文本文件，也可以做成表格存为doc文档。这里只有一行表题和一行数据。这个文档称之为数据文档。

然后，邮件合并。方法不详说了。

使用时，先修改数据内容，然后打开文档，确认将数据放入文档即可。