将两个文本框值相乘并在第三个文本框中显示总和

Question

>我需要将两个文本框的值相乘，然后在Word的第三个文本框中显示总和。

我已经尝试了我能想到的所有代码变体。

在前两个文本框中输入数据时，不会生成错误，但第三个文本框中不会显示答案。

我正在尝试将输入到书签为"Text61"和"Amount247"的 Word 文本框(旧表单、文本表单字段(中的结果相乘，在相同类型的文本框中显示结果，书签为"Text71"。

Sub MultiplyTotal()
Dim ff As String
ff = ActiveDocument.FormFields("Text61").Result
ff = ActiveDocument.FormFields("Amount247").Result
ff = ActiveDocument.FormFields("Text71").Result = ("Text61") * ("Amount247")
End Sub

Answer 1

问题中的代码在执行计算的正确轨道上，它只需要使用变量来捕获结果并以不同的方式执行计算。

要包含在计算中的每个项目都需要一个变量。

由于计算是用数字完成的，因此强制将文本(String(转换为数值(Val函数(也很有帮助，尽管如果用户小心的话，在VBA中并不是绝对必要的 - 但是一个好习惯。

Sub CalculateFF()
Dim ff1 As String, ff2 As String
ff1 = ActiveDocument.FormFields("Text61").Result
ff2 = ActiveDocument.FormFields("Amount247").Result
ActiveDocument.FormFields("Text71").Result = Val(ff1) * Val(ff2)
End Sub

请注意，在包含表单字段的 Word 文档中，并非绝对需要使用代码来执行简单计算，其中表单保护已激活。可以使用calculation类型的表单域，无需代码即可执行计算。如果对这种方法感兴趣，请在最终用户场所(如超级用户(中询问。