简体   繁体   中英

Is it possible to use VBA functions in Word field codes?

I have a Word document with some functions. I want to access these functions in formula fields, but this was harder than anticipated.

Let's say I have a function defined as

Public Function Area(R As Double) As Double
  Area = 3.14 * R * R
End Function

and that I want to use this in a field, like this

{ = Area(RadiusBookmark) }

This seems pretty straight forward, but I get a syntax error. If I omit the parameter, like this

{ = Area }

I get an "undefined bookmark" error, which leads me to believe that only bookmarks are available to the formula code fields.

Word doesn't allow you to use VBA functions in a field.

One common approach is to use a field with a DocVariable , and have some VBA that is triggered by a button press or a document event, that sets the value of the variable to the result of a function, and then refreshes the field value.

First, add a DOCVARIABLE field to your document:

My function returns ' DOCVARIABLE MyFuncResult \\* MERGEFORMAT '!

Then add this VBA:

Option Explicit

Private Function Foo() As String
  Foo = "BAR"
End Function

Public Sub setvar()

  Const MYVAR As String = "MyFuncResult"

  Dim var As Variable

  On Error Resume Next
  Set var = ThisDocument.Variables(MYVAR)
  On Error GoTo 0

  If var Is Nothing Then
    Set var = ThisDocument.Variables.Add(MYVAR)
  End If

  var.Value = Foo

  ThisDocument.Fields.Update

End Sub

And you should see the document content as:

My function returns 'BAR'!

The technical post webpages of this site follow the CC BY-SA 4.0 protocol. If you need to reprint, please indicate the site URL or the original address.Any question please contact:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM