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

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

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

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

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

←   Февраль 2009   →
 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
Автор
pps2003@bk.ru

Статистика

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

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


Word Expert - профессиональная работа с текстом
Выпуск рассылки №130 от 2009-02-15 09:15

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

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

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

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

Операция округления для выделенного числа

Павел задал вопрос:
Как выделенное число в ворде можно умножить на 1,5 и округлить до ближайшего кратного 50-ти? Например: имеем число 44560, после умножения на 1,5 получаем 66840, а нам его надо округлить до 66850 и записать вместо изначального числа.

Этот вопрос был опубликован в рассылке и два специалиста ответили Павлу.
Александр предложил такой макрос: 
Sub FiftyRounding()
' Работает как для положительных, так и для отрицательных чисел
' в пределах типа Double
Dim TwoLast As Integer
Dim Num As Double
On Error GoTo WrongNumber ' На случай, если выделено не число.
' Умножаем выделенное число, выбрасываем дробную часть:
Num = Int(CDbl(Selection.Text) * 1.5)
' Извлекаем число, состоящее из двух последних цифр:
TwoLast = Abs(Num - Sgn(Num) * Int(Abs(Num) / 100) * 100)
' Округляем в зависимости от значения двузначного числа:
Select Case TwoLast
    Case 0 To 24: Num = Num - Sgn(Num) * TwoLast
    Case 25: Num = Num - TwoLast + 50
    Case 26 To 74: Num = Num - Sgn(Num) * (TwoLast - 50)
    Case 75: Num = Num - TwoLast + 100
    Case 76 To 99: Num = Num - Sgn(Num) * (TwoLast - 100)
End Select
Selection.Text = CStr(Num) ' Возвращаем результат в Word.
WrongNumber:
    If Err.Number = 13 Then
        MsgBox "Выделенный фрагмент не является числом"
    End If
End Sub
Леонид Бродский предложил другой вариант макроса с функцией: 
Sub Round50()
    Selection.Range.Text = RoundX(Selection.Range.Text, 50)
End Sub

Public Function RoundX(numberToRound As Double, roundBase As Integer)
    RoundX = Round(numberToRound / roundBase, 0) * roundBase
End Function
Оставить комментарий | Написать письмо

Разнос данных по строкам и столбцам таблицы

Игорь спрашивает:
Есть ряд слов:
собака кошка мышка кенгуру
цыпленок хомяк мишка птичка.
 Как мне их добавить в таблицу, состоящую из 4 столбцов и 2 строк, чтобы каждое слово находилось в отдельной ячейке, не применяя к каждому слову операцию вырезать-вставить. Эти слова у меня так и находятся в столбик по 4 слова в строчку в вордовском документе (так же, как я и написал в примере), а чуть ниже есть таблица пустая, вот туда мне и надо их вставить.

Игорь, попробуйте вот такой макрос (ниже). Выделите ваши слова и запустите макрос: 
Sub insertToTable()
Dim sStr1 As String
Dim sStr() As String
Dim rng As Range
Dim oTbl As Table
Dim i As Long
sStr1 = Trim(Replace(Selection.Text, Chr(13), Chr(32)))
Selection.Text = sStr1 & vbCr
Set oTbl = ActiveDocument.Tables(1)
Set rng = Selection.Range
sStr = Split(rng, Chr(32))
For i = 0 To (UBound(sStr) - 1)
   oTbl.Cell(1, 1).Range.Text = sStr(0)
   oTbl.Cell(1, 2).Range.Text = sStr(1)
   oTbl.Cell(1, 3).Range.Text = sStr(2)
   oTbl.Cell(1, 4).Range.Text = sStr(3)
   oTbl.Cell(2, 1).Range.Text = sStr(4)
   oTbl.Cell(2, 2).Range.Text = sStr(5)
   oTbl.Cell(2, 3).Range.Text = sStr(6)
   oTbl.Cell(2, 4).Range.Text = sStr(7)
Next i
End Sub
Если вы не знаете, как подключить к документу и применить эти макросы, изучите следующие заметки с сайта:
Создание макроса из готового кода
Автоматическая запись макроса

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

Как узнать статистику в Word 2007

Татьяна интересуется:
Подскажите, пожалуйста, как узнать количество символов в этом Word 2007, я уже голову сломала, где только не искала, кроме количества слов так ничего и не нашла!

Татьяна, откройте вкладку Рецензирование, найдите группу команд Правописание и нажмите кнопку Статистика (рисунок).
Оставить комментарий | Написать письмо

Макрос замены м2 и м3 на обозначения в верхнем регистре

Алексей спрашивает:
Как сделать автозамену м2 и м3 на обозначения их в верхнем регистре? Средствами автозамены это не получается сделать. А нажимать каждый раз кнопочку верхнего регистра не очень удобно.

Алексей, автозаменой не получиться сделать это, действительно. Используйте приведенный ниже макрос. Текст документа предварительно выделять не нужно.
Создайте для этого макроса кнопку на панели инструментов или назначьте сочетание клавиш: 
Sub M2a() 
Dim rng As Range 
Set rng = ActiveDocument.Range 
With rng.Find 
   .MatchWildcards = True 
   .Text = "[А-яЁё][1-9]{1}" 
   .MatchCase = False 
   While .Execute 
      rng.Characters.Last.Font.Superscript = True 
      rng.Collapse Direction:=wdCollapseEnd 
   Wend 
End With 
End Sub
Оставить комментарий | Написать письмо

Требуется помощь

Если вы знаете ответы на вопросы читателей, пожалуйста, присылайте ваши решения через контактную форму на сайте.

Вопрос:
Есть небольшая таблица в Word'e. Чтобы посчитать данные, нужно перенести ее в Excel.
Но для удобства построения диаграмм желательно строки сделать столбцами и наоборот.
Как это сделать?
Ответить

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

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

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

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

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

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

В избранное