| Вопрос: Создание ссылки "оглавление и указатели" | Добавлено: 17.08.10 09:58 |
Автор вопроса:  Дмитрий
|
|
Добрый день.
Есть большой текст в котором необходимо создать ссылки. При написании макроса - макрос запоминает только текст выделеный при записи макроса. Как ТЕКУЩИЙ выделеный текст можно использовать в данном макросе? К примеру: выделил текст, запустил макрос - макрос подхватил текст, создал ссылку. Заранее спасибо!!! |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа: Вождь ICQ: 397882017 Вопросов: 0 Ответов: 1 |
Web-сайт: Профиль | | #1 | Добавлено: 22.08.10 05:43 |
| А где Ваш макрос который надо исправить? | ||
|
Номер ответа: 2 Автор ответа:  ДенисЧ Вопросов: 25 Ответов: 32 |
Профиль | | #2 | Добавлено: 24.11.10 12:43 |
Оглавление я делаю так:
 im nm As String
With ActiveDocument.Bookmarks nm = Selection.Text .Add Range:=Selection.Range, Name:=zakl + "_" + nm .DefaultSorting = wdSortByName .ShowHidden = False End With Только надо помнить что имя закладки не может содержать пробелов. Соответственно можно так: i=0 zakl = "" o While i <= Len(Selection.Text)
za = Left(Selection.Text, i) '-----если встречается пробел или тире в тексте, то они заменяются подчеркиванием If Right(za, 1) = " " Then zakl = zakl + "_" ElseIf Right(za, 1) = "-" Then zakl = zakl + "_" ElseIf Right(za, 1) = sv1 Or Right(za, 1) = sv2 Then zakl = zakl Else zakl = zakl + Right(za, 1) End If i = i + 1 Loop |
||
|
Номер ответа: 3 Автор ответа: ДенисЧВопросов: 25 Ответов: 32 |
Профиль | | #3 | Добавлено: 24.11.10 12:45 |
|
Чё-то в сообщении буква "" заменилась на рожу.
|
||
|
Номер ответа: 4 Автор ответа: ДенисЧВопросов: 25 Ответов: 32 |
Профиль | | #4 | Добавлено: 24.11.10 12:45 |
| Латинская Д | ||
|
Номер ответа: 5 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #5 | Добавлено: 24.11.10 14:12 |
| ЧЁ-ТО ты забыл\неувидел\непосмотрел наличие специальных тегов CODE и SOURCE для вставки кода на форум) | ||
Страница: 1 |