Помогите с программированием WORDа!!!

Программирование на Visual Basic for Applications
MiGan
Обычный пользователь
Обычный пользователь
 
Сообщения: 60
Зарегистрирован: 02.05.2005 (Пн) 13:27

Помогите с программированием WORDа!!!

Сообщение MiGan » 28.06.2005 (Вт) 17:05

Уже замучился:
Есть vb-код, который вставляет по определенной закладке (bookmarkу) блок форматированного текста (другой документ WORD). В этом форматированном блоке есть заголовок, отформатированный по стилю ЗАГОЛОВОК 2 (или производному от него стилю). Проблема в том, что при вставке этого блока текста WORD автоматически вставляет нумерацию, причем делает это совершенно не в тему. Как программно отключить эту нумерацию при вставке/после вставки???
Вот код:
Код: Выделить всё

For Each tAnalytic In mvarAnalytics
i = i + 1
Set Rng = WordDoc.Bookmarks("ANALYTICS").Range
Rng.Select
Set Seltn = WordDoc.ActiveWindow.Selection
Seltn.MoveLeft
If fso.FileExists(tAnalytic.Analytic) Then
Seltn.TypeText "7." & i & ". "
Seltn.InsertFile FileName:=tAnalytic.Analytic, Range:="", _
ConfirmConversions:=False, Link:=False, Attachment:=False
Else
Seltn.TypeText "<ОШИБКА: ФАЙЛ НЕ НАЙДЕН!!!>"
End If
If i + 1 < mvarAnalytics.Count Then Seltn.TypeParagraph
Next tAnalytic

abracadabra
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 80
Зарегистрирован: 30.11.2004 (Вт) 17:36
Откуда: Lviv Ukraine

Сообщение abracadabra » 29.06.2005 (Ср) 11:25

Sub Remove_Numbers()
Selection.WholeStory
Selection.Range.ListFormat.RemoveNumbers NumberType:=wdNumberParagraph
Selection.HomeKey Unit:=wdStory
End Sub
Крокодил, крокодю и буду крокодить!


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 1

    TopList