Dim a As Word.Application
Dim b As Word.Selection
Set a = New Word.Application
a.Visible = True
a.Documents.Open ("C:\1.txt")
Set b = a.Selection
b.Move wdCharacter, 12373
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 41