You could for example read the selection per getfieldselections() in a variable and then use the following logic:
if var = condition then
export1
else
export2
end if
Here a code-examples from APIGuide.qvw for read such variable in macros or read the selection directly in macros:
set v = ActiveDocument.Variables("Variable1")
msgbox(v.GetContent.String)
set val=ActiveDocument.Fields("Month").GetPossibleValues
for i=0 to val.Count-1
msgbox(val.Item(i).Text)
next
sub LogFunktion
'This routine logs selection to a text file
set fso = CreateObject("Scripting.FileSystemObject")
set mypath = ActiveDocument.GetProperties
directory = mypath.MyWorkingDirectory
On Error Resume Next
' See if file already exists.
Set filFile = fso.GetFile(directory & "log.txt")
' If not, then create it.
If Err <> 0 Then
Set filFile = fso.CreateTextFile(directory & "log.txt")
End If
Set txsStream = filFile.OpenAsTextStream(8) 'For Appending
set doc = ActiveDocument
set mySelections = doc.fields("Field").GetSelectedValues
for i = 0 to mySelections.Count - 1
txsStream.WriteLine Now & " " & mySelections.Item(i).text
next
txsStream.WriteBlankLines 1
txsStream.Close
end sub
- Marcus
