VBA宏导出问题

Question

我的代码有问题它显示每个JPG的相同数据我希望它根据“邻居”字段显示不同的数据但我得到的是100个文件在我的导出上显示相同的数据， 文件使用所有不同的变量名导出，但都显示相同的数据

我有一种感觉，我错过了一些但却找不到解决方案

代码在

之下

 sub KnowYourNeighbourhood

 ActiveDocument.Sheets("SH02").Activate  
 Set t=ActiveDocument.ActiveSheet  
 set field1 = ActiveDocument.Fields("Neighbourhood").GetPossibleValues

 for i = 0 to field1.Count - 1
 strNeighName = field1.item(i).Text



 ActiveDocument.Fields("Neighbourhood").Select field1.Item(i).Text



 Filepath = "H:\My Pictures\"  
 t.ExportBitmapToFile Filepath & strNeighName &".jpg"
 next   
 ActiveDocument.ClearAll true
 end sub

Answer 1

你是Allowing System Access吗？ 宏编辑器左侧有一个设置。