Отправляет email-рассылки с помощью сервиса Sendsay

MS Word Expert - профессиональная работа с текстом

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Особенности национального бизнеса" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Декабрь 2008   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
pps2003@bk.ru

Статистика

2.949 подписчиков
-2 за неделю
←   Все выпуски   →

В этом выпуске опубликованы следующие советы:


Word Expert - профессиональная работа с текстом
Выпуск рассылки №125 от 2008-12-05 12:27

В этом выпуске:

  1. Советы и подсказки
  2. Полезные ссылки
  3. Информация об авторских правах

Советы и подсказки

Если у вас есть идея или совет по эффективному использованию редактора Word, то пишите мне через форму контактов на сайте. Любые ваши дельные советы и подсказки будут размещены в очередных выпусках рассылки и на сайте (с указанием вашего авторства).

Замена текста в скобках на пробел

Петр спрашивает:
Помогите, как заменить в Word 2003 много различных предложений, которые находятся внутри скобок, на пробел? Например: а- (перед гласными ан-; греч. a-, an-); или Аарона симптом (Ch. D. Aaron, 1866--1951, амер. врач). Вот то, что внути скобок и надо заменить на пробел.

Такую задачу можно решить вручную с использованием диалогового окна "Найти и заменить", либо посредством макроса (код ниже).
Чтобы заменить текст в скобках на пробелы через диалоговое окно "Найти и заменить", откройте это окно («Ctrl+H»). В поле Найти введите такое выражение: \(*\), а в поле Заменить: ( ). Затем установите флажок на опции "Подстановочные знаки" и нажмите кнопку Заменить все.

Кроме того, можете воспользоваться следующим макросом: 
Sub delTextBetweenBrackets()
'заменяем текст в скобках на пробел в скобках
With Selection.Find
   .ClearFormatting
   .Replacement.ClearFormatting
   .Text = "\(*\)"
   .Replacement.Text = "( )"
   .Forward = True
   .Wrap = wdFindContinue
   .MatchWildcards = True
   .Execute Replace:=wdReplaceAll
End With
End Sub
Оставить комментарий | Задать вопрос

Сортировка данных в строке по алфавиту для Word 2007

Андрей интересуется:
Подскажите пожалуйста, как сделать сортировку в Word 2007 по алфавиту значений, находящихся в строчке? Например, вот такие значения в строчке - 63, 53а, 67, 73в, 75а, 69, 69б, 79в, 75б, 73г, 69в и т.д.

Это можно сделать с помощью следующего макроса (подсказал Graham Mayor). Выделите строчку с вашими номерами и примените макрос: 
Sub sortNumbers()
Dim oRng As Range
With Selection
   .HomeKey wdLine
   .MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
   Set oRng = .Range
End With
oRng.End = oRng.End - 1
oRng = Replace(oRng, ", ", Chr(13))
oRng.Sort ExcludeHeader:=False, FieldNumber:="Paragraphs", _
SortFieldType:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending
oRng = Replace(oRng, Chr(13), ", ")
End Sub
Оставить комментарий | Задать вопрос

Выделение видимой части экрана

Алексей задал вопрос:
Скажите пожалуйста, как в Word получить Range документа, отображаемого в данный момент на экране?

Недавно я сам столкнулся с необходимостью выделить только видимую часть текста на экране и путем долгих тестов нашел решение (как оказалось, простейшее): 
Sub selWindow()
'выделение видимой части экрана
   Selection.MoveUp wdWindow, 1, wdMove
   Selection.MoveDown wdWindow, 1, wdExtend
End Sub
Оставить комментарий | Задать вопрос

Принудительное разбиение строки с помощью макроса

Вопрос от Gojah:
Как создать принудительный разрыв строки (максимум 15 символов на строке) автоматически для всего текста?
Например, строку 111111111111111111 преобразовать в:
111
111
...
111

Для этой цели можно воспользоватся следующим макросом: 
Sub razmer_stroki_15()
Const chunkSize = 15
Dim oRg As Range
Dim actualSize As Long
Set oRg = ActiveDocument.Range
With oRg
   .Collapse wdCollapseStart
   actualSize = .MoveEnd(Unit:=wdCharacter, Count:=chunkSize)
   Do While actualSize = chunkSize
      .InsertAfter vbCr
      .Collapse wdCollapseEnd
      actualSize = .MoveEnd(Unit:=wdCharacter, Count:=chunkSize)
   Loop
End With
End Sub
Если вы не знаете, как подключить к документу и применить этот макрос, изучите следующие заметки с сайта:
Создание макроса из готового кода
Автоматическая запись макроса

Оставить комментарий | Задать вопрос

Полезные ссылки

Информация об авторских правах

Вся информация, представленная на сайте WordExpert.ru и в этой рассылке, никаким образом не связана с корпорацией Microsoft. В рассылке упоминаются компании и продукты, которые могут быть зарегистрированными торговыми марками и принадлежать различным физическим и юридическим лицам как на территории РФ, так и за ее пределами.

Авторские права на все материалы, опубликованные на сайте WordExpert.ru и в этой рассылке (включая текст, фотографии, подборку, расположение и т.п.) принадлежат Кокину Антону Вадимовичу, если не указано иное. Вы можете свободно использовать и распространять эти материалы с обязательной ссылкой вида "Информация с сайта WordExpert.ru" и с обязательным указанием автора материала.

Все материалы, опубликованные на сайте WordExpert.ru и в этой рассылке, представлены на информационной основе. Вы можете использовать любую информацию с сайта WordExpert.ru или из данной рассылки исключительно на свой страх и риск. Тем не менее, я рекомендую перед применением какой-либо информации с сайта WordExpert.ru или из данной рассылки обязательно сохранять и создавать резервные копии ваших документов.

В этой рассылке также упоминаются различные web-страницы с соответствующими ссылками. Эти ссылки указываются исключительно в информационных целях и никакой рекомендации или одобрения с моей стороны данных веб-страниц не подразумевается, если не указано иное.

В избранное