如何利用stata把数据标签改成变量名

ds
foreach i in `r(varlist)'{
local w : variable label `i'
local w =subinstr("`w'"," ","_",.)
cap rename `i' `w'
}