Сейчас на 10 офисе не подтягивает документ (выдает ошибку). Там и в коде указано, что документ должен быть с расширением .doc а не .docx.
Что касается меток, имел ввиду кол-во полос на метке. По первому коду ставит 2 и 4, а хочу по описанной выше логике, к сожалению не получается.
Дублирую в строку код линии, а он не отображается:
If (i < PageCount) And (ArrItems(i) = 0) Then
Textbox1.TextFrame.TextRange.Select
.InsertSymbol &H2500, "Times New Roman", True
.InsertSymbol &H2500, "Times New Roman", True
.TypeParagraph
.TypeParagraph
.TypeParagraph
.InsertSymbol &H2500, "Times New Roman", True
.InsertSymbol &H2500, "Times New Roman", True
Textbox1.TextFrame.TextRange.Select
Else
Textbox1.TextFrame.TextRange.Select
.InsertSymbol &H2500, "Times New Roman", True
.InsertSymbol &H2500, "Times New Roman", True
.TypeParagraph
.InsertSymbol &H2500, "Times New Roman", True
.InsertSymbol &H2500, "Times New Roman", True
.TypeParagraph
.InsertSymbol &H2500, "Times New Roman", True
.InsertSymbol &H2500, "Times New Roman", True
.TypeParagraph
.InsertSymbol &H2500, "Times New Roman", True
.InsertSymbol &H2500, "Times New Roman", True
Textbox1.TextFrame.TextRange.Select
End If
Спасибо!