''''For Each mItem In Array("Bag2", "Bar2") '''''
mInd.Select mDoc.Pages.Item(1).PageItems.Item("Bag2")
Set myInsertionPoint = mInd.Selection.Item(1)
Set myStory = myInsertionPoint.ParentStory
Bag2 = myStory.Contents '1-я переменная
mInd.Select mDoc.Pages.Item(1).PageItems.Item("Bar2")
Set myInsertionPoint = mInd.Selection.Item(1)
Set myStory = myInsertionPoint.ParentStory
Bar2 = myStory.Contents '2-я переменная
mInd.Select mDoc.Pages.Item(1).PageItems.Item("BarTarif")
Set myInsertionPoint = mInd.Selection.Item(1)
Set myStory = myInsertionPoint.ParentStory
BarTarif = myStory.Contents '3-я переменная
mInd.Select mDoc.Pages.Item(1).PageItems.Item("BagTarif")
Set myInsertionPoint = mInd.Selection.Item(1)
Set myStory = myInsertionPoint.ParentStory
BagTarif = myStory.Contents '4-я переменная
Можно ли в цикле присваивать перменным значения?
Такая задачка. В документе есть четыре поля, данные из которых надо занести в 4 переменные. Можно ли это сделать через цикл "For each"?
(язык VBS для верстальной программы).
сейчас так:
Вот можно как-то упростить такую запись?
(язык VBS для верстальной программы).
сейчас так:
Код:
Вот можно как-то упростить такую запись?