我正在创建一个简单的发布者应用程序,我需要在其中从字符串数组中将文本插入到不同的文本框中。我已经像这样对其进行了编码。
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 个索引)填充第一个文本框,其余文本框包含空字符串,尽管 texts 数组有值。
任何帮助将不胜感激。
谢谢。