sub exportgbdata() 
 set fso=createobject("scripting.filesystemobject")
 set file=fso.opentextfile(filename,2,true)
 
 for i=0 to document.ExtDataNum-1
  value=document.GetExtDataByIndex(i,key)
  file.writeline(key&","&value&","&"数字")
 next
 
 for i=0 to document.ExtDataStringNum-1
  value=document.GetExtStringByIndex(i,key)
  file.writeline(key&","&value&","&"字符串")
 next
 
 file.close
 

end sub

sub importgbdata() 
 set fso=createobject("scripting.filesystemobject")
 set file=fso.opentextfile(filename,1,true)
 
 while file.atendofline<>true
  line=file.readline
  
  dim array
  array=split(line,",")
  
  if array(2)="数字" then
   document.SetExtData array(0),array(1)
  elseif array(2)="字符串" then
   document.SetExtString array(0),array(1)
  end if
 wend
 
 file.close
 

end sub