Я создаю приложение Simple Publisher, в которое мне нужно вставить текст в другое текстовое поле из массива строк. Я закодировал его следующим образом.
Dim texts(40) As String 'Array of strings to be inserted
shpTextBox = appPub.ActiveDocument.Pages(pageIndex).Shapes.AddTextbox _
(Orientation:=PbTextOrientation.pbTextOrientationHorizontal, _
Left:=pbShape.Left - 20, Top:=pbShape.Top, _
Width:=72, Height:=18)
'add text
shpTextBox.TextFrame.TextRange.Text = texts(Index)'Problem here , Only First array value is populating to very first text box , rest are empty strings.
Index = Index + 1
Теперь он только заполняет первое текстовое поле первой строкой в массиве (для 0-го индекса), а остальные текстовые поля содержат пустые строки, хотя текстовый массив имеет значения.
Любая помощь будетвысоко ценится.
Спасибо.