• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1386
  • Last Modified:

How check the actuals docVariables in the Word file.

I'm programing  a Word Template with a UserForm and I need check if all the docVatiables created in the teplate exist in the new file yet.

I created the attached code to list all Fields in the file and it is working but if I delete some docVariables in the file, this code find the same list.

I'm searching some code in the web but can't found.

Someone know how check the real list of docVariables?

Regards,
Claudio


Sub ListFields()
    ActiveDocument.ResetFormFields
    For Each Field In ActiveDocument.Variables
        ListField = ListField & vbCrLf & Field.Name
    Next
    MsgBox ListField
End Sub

Open in new window

0
HatchIT
Asked:
HatchIT
  • 6
  • 2
1 Solution
 
GrahamSkanCommented:
As it stands your code should work, but I think that you might be getting document variables and fields confused.

I would write it like this:
Sub DocVariables()
    Dim var As Variable
    Dim strMessage As String
    
    For Each var In ActiveDocument.Variables
        strMessage = strMessage & vbCrLf & strMessage
    Next var
    MsgBox strMessage
End Sub

Open in new window

0
 
GrahamSkanCommented:
You could list the fields like this
Sub ListFields()
    Dim fld As Field
    Dim strMessage As String
    
    For Each fld In ActiveDocument.Fields
        strMessage = "Result: " & fld.Result & ", Type: " & fld.Type & ", Start position: " & fld.Code.Start & vbCrLf & strMessage
    Next fld
    MsgBox strMessage
End Sub

Open in new window

0
 
GrahamSkanCommented:
Sorry. The first one was wrong. Try this for the variables:
Sub DocVariables()
    Dim var As Variable
    Dim strMessage As String
    
    For Each var In ActiveDocument.Variables
        strMessage = "Name: " & var.Name & ", Value: " & var.Value & vbCrLf & strMessage
    Next var
    MsgBox strMessage
End Sub

Open in new window

0
[Webinar] Cloud and Mobile-First Strategy

Maybe you’ve fully adopted the cloud since the beginning. Or maybe you started with on-prem resources but are pursuing a “cloud and mobile first” strategy. Getting to that end state has its challenges. Discover how to build out a 100% cloud and mobile IT strategy in this webinar.

 
HatchITAuthor Commented:
GrahamSkan

My problem isn't list fields or variables, the problem is the next:

If in a file I did create 10 fields then save/close/open and then I delete one, more or all fields in the file, ActiveDocument.Variables keep this 10 fields in the memory although the file was save/close some times. I concluded that this is because was Fields have mantained in the "cache file information" or any site (internal head) and I need to check the actual fields in the file.

Use the Field.Delete option isn't a solutio because this clear informatión in the all fields, and I only need know if by accident anyone delete any field.

Do you have any idea to check this?

Thank you
Claudio
0
 
GrahamSkanCommented:
Are you saying that you have some docVariable fields in a document, and when you delete them, they are still there?

If so, how do you delete them?

You could improve the list method by using this code.
 
Sub ListDocVarFields()
    Dim fld As Field
    Dim strMessage As String
    Dim p As Integer
    For Each fld In ActiveDocument.Fields
        If fld.Type = wdFieldDocVariable Then
            p = InStr(1, fld.Code.Text, "docvariable", vbTextCompare)
            strMessage = "Name: " & Trim$(Mid$(fld.Code.Text, p + 11)) & ", result: " & fld.Result & vbCrLf & strMessage
        End If
    Next fld
    MsgBox strMessage
End Sub

Open in new window

0
 
GrahamSkanCommented:
This would delete the first docVariable field that displays the value of the Variable called "MyVariable".
Sub DeleteDocVarField()
    Dim fld As Field
    Dim strMessage As String
    Dim p As Integer
    For Each fld In ActiveDocument.Fields
        If fld.Type = wdFieldDocVariable Then
            p = InStr(1, fld.Code.Text, "docvariable", vbTextCompare)
            If Trim$(Mid$(fld.Code.Text, p + 11)) = "MyVariable" Then
                fld.Delete
                Exit For
            End If
        End If
    Next fld
End Sub

Open in new window

0
 
GrahamSkanCommented:
To answer your point about there being some sort of cache, the answer is 'not in my experience'. A saved and closed document should not not find deleted data when re-opened. If it does, then there is a fault with your document or your Word application.

It might help to display the document fields with the Alt+F9 toggle.

This would switch the display between

MyVariableValue   and   { DOCVARIABLE MyVariable }
0
 
HatchITAuthor Commented:
Excellent,

It the best option to me. With this I can create my code.

Thank you GrahamSkan
0

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

  • 6
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now