EXpression variable

[souadouert]

Hello,

how to have all the list of the variables of an application with its expression, without going through the menu of the variables

[souadouert]

Yes arvind , but always i have two problem

the first with each variable i had this msg

and i need to  return to line , because always wrote in the first ligne

[souadouert]

I get the solution

sub ShowVars

    rem ** Show name of all variables in document **

    set vars = ActiveDocument.GetVariableDescriptions

       DIM fso, MyFile, strFile, strText

    strFile="C:\Prod\liste.txt"  

Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists(strFile) Then

       Set MyFile = fso.OpenTextFile (strFile, 2, True)

    Else

        Set MyFile = fso.CreateTextFile(strFile)

    End If

    for i = 0 to vars.Count - 1

        set v = vars.Item(i)

        'msgbox(v.Name & "=" & v.RawValue)

        'Add to InputBox object (IB01)

       link= v.Name &"|"&v.RawValue& chr(13)

        'msgbox( v.Name &","&v.RawValue)

  MyFile.WriteLine(link)

    next

  MyFile.Close

end sub

[arvind1494]

Good