怎么使文档内的数据自动运算，并且调用文档内的部分内容

masterleelee

现在有一份报告模板，以后经常要用。报告内的变量（黄色背景色标注）要手动输入。但输入后，希望后面报告能自动运算数据，然后被引用。如下图：

一、黄色背景色的内容，手动输入；
二、手动输入的地址、面积、评估价值等数据，后面文章某处，要引用。
三、评估价值，自动运算（估值=面积*单价），估值后面也要被引用。

用过word的书签，但是不能满足需求。例如，我第一次填写了地址，定义了书签，但是第二份文档资料，删掉以前的地址重新输入后，书签就没了，又要重新定义。
用过word的域，去运算。如估值，这里，我就用了。但是，需要在表格内才能使用域来运算，后面有些数据是没有表格框住，就没办法使用域运算。
了解过DOCVARIABLE这个域，好像能定义变量，但是需要用到vba，不会用。

备注：用excel可能会更好实现以上的功能，但是excel要重新排版，好麻烦。所以求大神能帮下忙，能不能直接在word里面实现？

ming0018

可以做，需要时间去读懂那些关系。

ming0018

1. Sub AddDocVariables()
   
2.     Dim doc As Document, doc_var As Variable
   
3.     Set doc = ActiveDocument
   
4.     For Each doc_var In doc.Variables
   
5.         doc_var.Delete
   
6.     Next
   
7.     With doc.Variables
   
8.         .Add Name:="addr", Value:=Replace(doc.Tables(1).Cell(3, 4).Range.Text, Chr(13) & Chr(7), "")
   
9.         .Add Name:="quanh", Value:=Replace(doc.Tables(1).Cell(6, 3).Range.Text, Chr(13) & Chr(7), "")
   
10.         .Add Name:="area", Value:=Replace(doc.Tables(1).Cell(6, 4).Range.Text, Chr(13) & Chr(7), "")
    
11.     End With
    
12.     '    For Each doc_var In doc.Variables
    
13.     '        Debug.Print doc_var.Value
    
14.     '    Next
    
15.     doc.Fields.Update
    
16. End Sub
    

复制代码

附件中打绿色的部分是我做的，仅做了几处，供你参考，其它的你自己应该能学着做了。

masterleelee

ming0018 发表于 2018-11-30 10:27
附件中打绿色的部分是我做的，仅做了几处，供你参考，其它的你自己应该能学着做了。

你好，请问在吗？刚看到您帮忙解答的问题，使用了域DOCVARIABLE。但是，好像单纯定义了DOCVARIABLE addr、area为固定值？没办法动态修改？

ming0018

masterleelee 发表于 2018-11-30 11:15
你好，请问在吗？刚看到您帮忙解答的问题，使用了域DOCVARIABLE。但是，好像单纯定义了DOCVARIABLE addr ...

画圈圈的地方分别就是addr，quanh，area，你改动后再运行宏就行了。

ming0018

ming0018 发表于 2018-11-30 11:22
画圈圈的地方分别就是addr，quanh，area，你改动后再运行宏就行了。

我定义的是动态变量，分别取自表格圈圈中的三个位置。

masterleelee

ming0018 发表于 2018-11-30 11:22
画圈圈的地方分别就是addr，quanh，area，你改动后再运行宏就行了。

【问题一】：添加按钮控件，实现调用宏 AddDocVariables()

【问题二】：调用宏Sub AddDocVariables() 两次，发现表格1中，的“参考单价”竟然会变动。运行一次AddDocVariables()得出的单价没有错，但是再执行一次Sub AddDocVariables()，得出的“参考单价”就是错的。检查不出，问题出在哪里。请麻烦赐教。

masterleelee

ming0018 发表于 2018-11-30 11:23
我定义的是动态变量，分别取自表格圈圈中的三个位置。

你好。
【问题一】：我想插入一个控件按钮，达到执行宏的目的。
Private Sub CommandButton1_Click()
Application.Run MacroName:="AddDocVariables"

但是怎么保存之后，第一个定义AddDocVariables的宏，就没有了。应该怎么合并宏内容吗？

【问题2】刷新运行宏两次，表格中，“参考单价”就会变？不知道问题出在哪里。望赐教