Поиск в .doc?

Программирование на Visual Basic for Applications
dduck
Начинающий
Начинающий
Аватара пользователя
 
Сообщения: 2
Зарегистрирован: 21.09.2005 (Ср) 19:02

Поиск в .doc?

Сообщение dduck » 22.09.2005 (Чт) 19:42

Имеется файл (file.doc). В нем есть формат текста, типа, ставищь «1. » потом пишешь какой-нибудь текст, нажимаешь «Enter» и ворд автоматом подставляет цифру «2. ». Только потом это уже не цифры, а какой-то формат текста.
Вопрос: Как осуществлять поиск по этому формату текста (1. 2. 3. и т.д.)?
Например когда требуется найти строку начинающуюся, скажем с «20. »?
Или определить к какой цифре относится данный фрагмент текста?
Описал проблему как смог, если не понятно, пример файла в приаттаче поста (20Кб).
Помогите пожалуйста кто чем может. Не откажусь от кусочков кода.
Вложения
Example.rar
(3.33 Кб) Скачиваний: 42

SNG
Начинающий
Начинающий
 
Сообщения: 7
Зарегистрирован: 12.04.2005 (Вт) 12:17

Сообщение SNG » 23.09.2005 (Пт) 0:51

Вот тебе код:

Если уберешь список то будет работать так:

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 23.09.2005 serg
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "11"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
num = Split(Selection.Text, " ")(0)
End Sub

Если список не уберешь, надо будет думать по-другому.
Вообще сначала делай что-то руками, потом пиши макросы,
а потом делай из них свой код. Работает быстро и классно...

lord0n
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 845
Зарегистрирован: 30.06.2005 (Чт) 9:55
Откуда: Moskow

Сообщение lord0n » 23.09.2005 (Пт) 7:35

а стандартные средства ворда че, не катят
типа структурный вид и т. д.
Теория - это когда что-то не работает и известно почему.
Практика - это когда что-то работает, но неизвестно почему.
Нам удалось совместить теорию с практикой, теперь ничего не работает и неизвестно почему.

dduck
Начинающий
Начинающий
Аватара пользователя
 
Сообщения: 2
Зарегистрирован: 21.09.2005 (Ср) 19:02

Сообщение dduck » 23.09.2005 (Пт) 21:12

В том то и дело, что список убрать никак нельзя – к нему привязан номер вопроса, правильный ответ на который нужно искать в другом файле (file.xls).
Если убрать список, то поиск осуществлять будет еще сложнее.

Суть проблемы: имеется три файла 1-файл с вопросами; 2-файл с вопросами и вариантами ответов; 3-файл таблица (xls) в котором даны ответы ко 2му файлу.
Требуется по некоторомы фрагменту вопроса из 1го файла найти под каким номером такой-же вопрос во 2ом файле, и взять этот вопрос с правильным вариантом ответа копировать, скажем в буфер обменя, чтобы потом создать 4й файл в который вставить вопрос и правильный ответ.
Надеюсь понятно.

Спасибо всем кто откликнулся.

SNG
Начинающий
Начинающий
 
Сообщения: 7
Зарегистрирован: 12.04.2005 (Вт) 12:17

Сообщение SNG » 27.09.2005 (Вт) 0:32

Ну а почему нельзя? Кому какая разница как читать список: автоматом сгенеренный вордом или человеком сделанный? Если его прога какая либо делает, то ее переучить можно...


Вернуться в VBA

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

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 36

    TopList