Возникла необходимость убрать зависимость печати в Word из VB60 от конкретной библиотеки Word. Объявляю переменные как:
- Код: Выделить всё
Dim w1 As Object, w2 As Object
Dim shp As Object
Set shp = CreateObject("Word.Application.Shape")
Set w1 = CreateObject("Word.Application")
Set w2 = w1.ActiveDocument
If w2.StoryRanges(wdTextFrameStory) <> "" Then Rep w2.StoryRanges(wdTextFrameStory), MeCol, False, MeColTH, False
и т.д.
Никак не найду замену встроенной функции wdTextFrameStory и wdTextFrameStory. Подскажите пожалуйста!
Спасибо!
