WORD

1. Преобразовать число из цифровой записи в текстовую:

а) Нажать Ctrl+F9 - появятся скобки {}

б) Внутри скобок написать =555\*CardText и нажать F9. Язык написания в зависимости от локализации WORD (переводим клавиатуру в английскую раскладку и пишем цифры - текстовая запись числа будет на английском языке).

в) Для word 2007 - Рецензирование -> выбрать блок Правописание -> Выбрать язык

Пример:

г) Для редактирования поля нажать: shift + F9

д) Запретить обновление поля: CTRL+F11

е) Разрешить обновление поля: CTRL+SHIFT+F11

ё) Обновление значения текущего поля. Если выделен весь документ (CTRL+А), то обновятся поля во всем документе: F9

2. Нумерация страниц

{PAGE} - Страница

{SECTIONPAGES } - Общее_число_страниц в секции (от раздела до раздела)

{NUMPAGES} - Общее_число_страниц в документе

{SECTION}.{PAGE} - Номер_раздела. Номер_страницы

{={PAGE}+2} - Номер страницы + 2

{IF{PAGE}<>3 {PAGE}} - Печатать номера на всех страницах кроме третьей.

3. ключевые слова WORD для ссылки на блок ячеек:

- LEFT – ячейки, расположенные в строке левее ячейки с формулой

- RIGHT– ячейки, расположенные в строке правее ячейки с формулой

- ABOVE– ячейки, расположенные в столбце выше ячейки с формулой

- BELOW– ячейки, расположенные в столбце ниже ячейки с формулой

4. Нумерация рисунков, таблиц, формул

Для создания числовых последовательностей используется поле {SEQ Название_последовательности}. Последовательность увеличивается на единицу каждый раз, когда встречается в тексте документа.
Предпочтительней для добавления новых использовать кнопку Создать (Вставить название), окна Название вкладки Ссылки. В этом случае на новые последовательности можно будет ссылаться с использованием перекрестных ссылок.

{SEQ Приложения\* ALPHABETIC} - Последовательность Приложения, нумерация латинскими буквами.

{SEQ Приложение \c\* ALPHABETIC}.{SEQ Рисунок1 \* ARABIC} - Название рисунка в виде Приложение.Рисунок (А.1). Ключ \c вставляет ближайший предыдущий номер последовательности.

4.1. Нумерация формул

Создать однострочную, двухячеистую таблицу. Установить невидимые поля;
В 1ю ячейку добавить макет формулы: Вставка->Формула
Во 2ю ячейку установить скобки, а внутри поместить нумерацию формул: Ссылки->(Названия)->Вставить название (подпись - формулы, поставить галочку - исключить подпись из названия, нумерация - включить номер главы)

4. Выделить всю таблицу и добавить в экспресс-таблицы: Вставка->таблицы->Экспресс-таблицы->Сохранить выделенный фрагмент в ...

5. Для автоматической вставки: Вставка->таблица->Экспресс-таблицы

5.1. Правой кнопкой мыши по Вставка->Экспресс-таблицы и выбрать Добавить на панель быстрого доступа. Данный шаблон формулы появится в самом верху окна.

5. Переменные - поля

а) Создать переменную (имя и значение):

Свойства-Свойства документа-Дополнительные свойства-Прочие

б) Вставить в документ, на место курсора:

Вставка -> Экспресс-блоки -> Поле выбираем DocProperty и свою переменную

Обновлять как и все поля или при печати (напр. в pdf или 1 страницу).

6. Все рисунки по 8 см

Sub IMG_8sm()
' Ширина всех картинок 8см.
'
Dim inshp As InlineShape
    For Each inshp In ActiveDocument.InlineShapes
        Select Case inshp.Type
            Case 3, 4, 12, 13
                inshp.Select
                inshp.ScaleWidth = 100
                inshp.ScaleHeight = 100
                inshp.Width = CentimetersToPoints(8)
                'inshp.ScaleHeight = inshp.ScaleWidth
        End Select
    Next inshp
End Sub

7. Виды встроенных функций

Категория	Функция	Назначение
Статистические	AVERAGE()	Вычисление сред. значение для диапазона ячеек, например: =AVERAGE(А1:С20)
	COUNT()	Подсчёт числа значений в указанном диапазоне ячеек, например: =COUNT(А1:С20; В25; А30)
	MAX()	Нахождение макс-ого знач. в указанном блоке ячеек, например: =MAX(А1:С20; В25; А30)
	MIN()	Нахождение мин-ого знач. в указанном блоке ячеек, например: =MIN (А1:С20; В25; А30)
	SUM()	Нахождение суммы чисел в указанном блоке ячеек, например: =SUM (А1:С20; В25; А30)
Математические	ABS(x)	Абсолютное значение вычисляемого выражения, например: = ABS(А1*В12-С25+100)
	MOD(x, y)	Остаток от деления первого числа на второе, например: = MOD(А1,С12)
	INT(x)	Целая часть числа, например: = INT(234.45)
	PRODUCT()	Произведение чисел в указанном диапазоне ячеек, например: = PRODUCT(А1:С20; В25; А30)
	ROUND(x, y)	Округление значения до указанного числа знаков, например, округлить до сотен: = ROUND(2345.45.-2)
	SIGN(x)	Определение знака числа, например (-1 для отрицательных и 1 для положительных): = SIGN(-2345.45)
Логические	IF(x,y,z)	Проверка заданного условия и присвоения значения ячейке: если условие истинно - значение 1, иначе значение 2:= IF (Е12>G12; значение 1;значение 2)
	AND(x,y)	Вычисляет значение 1, если заданы истинные значения логических аргументов, иначе – 0, например: = AND(А4>3; В3<3)
	OR(x,y)	Вычисляет значение 0, если заданы истинные значения любого логического аргумента, иначе – 1, например: = OR (А2>3; D3<=4)
	NOT(x)	Вычисляет значение 0, если заданы истинное значение логического аргумента, иначе – 1, например: = NOT( D4>2)
	FALSE	Логическая константа ложь, которой соответствует число 0.
	TRUE	Логическая константа истина, которой соответствует число 1.
	DEFINED(x)	Определяет значение в ячейке.

8. Регулярные выражения

Использованные конструкции регулярных выражений.

Что изменяем	Найти	Заменить на
убрать пробелы между словом и точкой	`"([а-я]) @(.)"`	`"\1\2"`
добавить пробел между точкой и следующим предложением	`"([а-я].@)([А-Я])"`	`"\1 \2"`
убрать пробелы между словом и запятой	`"([а-я]) @(,)"`	`"\1\2"`
добавить пробел между запятой и следующим словом	`"([а-я],)([а-я])"`	`"\1 \2"`
убрать пробелы между точкой и переходом на следующую строку	`"(.) (^13)"`	`"\1\2"`
убрать повторяющиеся пробелы	`"( ){2;}"`	`" "`
убрать пробел после открывающей скобкой	`"\( "`	`"("`
убрать пробел перед закрывающей скобки	`" \)"`	`")"`

Excel

1. Сумма прописью

847 439,51	восемьсот сорок семь тысяч четыреста тридцать девять рублей 51 коп.
	=ИНДЕКС(сот;ОСТАТ(ОТБР(A7/10^8);10)+1)&ЕСЛИ(ОСТАТ(ОТБР(A7/10^7);10)=1;ИНДЕКС(цать; ОСТАТ(ОТБР(A7/10^6);10)+1);ИНДЕКС(дес;ОСТАТ(ОТБР(A7/10^7);10)))& ЕСЛИ(ОСТАТ(ОТБР(A7/10^7);10)<>1; ИНДЕКС(ед; ОСТАТ(ОТБР(A7/10^6);10)+1);"")&ЕСЛИ(ОСТАТ(ОТБР(A7/10^6);1000); ЕСЛИ(ОСТАТ(ОТБР(A7/10^7); 10)=1;"миллионов "; ВПР(ОСТАТ(ОТБР(A7/10^6);10);мил;2));"")&ИНДЕКС(сот; ОСТАТ(ОТБР(A7/10^5);10)+1)& ЕСЛИ(ОСТАТ(ОТБР(A7/10^4);10)=1; ИНДЕКС(цать; ОСТАТ(ОТБР(A7/10^3);10)+1); ИНДЕКС(дес; ОСТАТ(ОТБР(A7/10^4);10)))& ЕСЛИ(ОСТАТ(ОТБР(A7/10^4);10)<>1; ИНДЕКС(едж; ОСТАТ(ОТБР(A7/1000);10)+1);"") & ЕСЛИ(ОСТАТ(ОТБР(A7/1000);1000); ЕСЛИ(ОСТАТ(ОТБР(A7/10^4);10)=1; "тысяч "; ВПР(ОСТАТ(ОТБР(A7/1000);10);тыс;2));"") & ИНДЕКС(сот;ОСТАТ(ОТБР(A7/100);10)+1) & ЕСЛИ(ОСТАТ(ОТБР(A7/10);10)=1; ИНДЕКС(цать; ОСТАТ(ОТБР(A7);10)+1);ИНДЕКС(дес;ОСТАТ(ОТБР(A7/10);10)))& ЕСЛИ(ОТБР(A7)=0; "ноль "; ЕСЛИ(ОСТАТ(ОТБР(A7/10);10)<>1; ИНДЕКС(ед;ОСТАТ(ОТБР(A7);10)+1);""))& ЕСЛИ(ОСТАТ(ОТБР(A7/10);10)=1;"рублей"; ВПР(ОСТАТ(ОТБР(A7);10);руб;2)) & ТЕКСТ(ОТБР((A7-ОТБР(A7)+0,00001)*100);" 00_ коп.")
5 432,30	5 432 (пять тысяч четыреста тридцать два ) рубля 30 копеек
	=ТЕКСТ(ОТБР(A8);"# ###")&" ("&ИНДЕКС(сот;ОСТАТ(ОТБР(A8/10^8);10)+1)&ЕСЛИ(ОСТАТ(ОТБР(A8/10^7);10)=1; ИНДЕКС(цать;ОСТАТ(ОТБР(A8/10^6);10)+1); ИНДЕКС(дес;ОСТАТ(ОТБР(A8/10^7);10))) & ЕСЛИ(ОСТАТ(ОТБР(A8/10^7);10)<>1; ИНДЕКС(ед;ОСТАТ(ОТБР(A8/10^6);10)+1);"") & ЕСЛИ(ОСТАТ(ОТБР(A8/10^6);1000);ЕСЛИ(ОСТАТ(ОТБР(A8/10^7); 10)=1;"миллионов "; ВПР(ОСТАТ(ОТБР(A8/10^6);10);мил;2));"") &ИНДЕКС(сот;ОСТАТ(ОТБР(A8/10^5);10)+1)& ЕСЛИ(ОСТАТ(ОТБР(A8/10^4);10)=1;ИНДЕКС(цать; ОСТАТ(ОТБР(A8/10^3);10)+1); ИНДЕКС(дес;ОСТАТ(ОТБР(A8/10^4);10)))& ЕСЛИ(ОСТАТ(ОТБР(A8/10^4); 10)<>1; ИНДЕКС(едж;ОСТАТ(ОТБР(A8/1000);10)+1);"")& ЕСЛИ(ОСТАТ(ОТБР(A8/1000);1000); ЕСЛИ(ОСТАТ(ОТБР(A8/10^4); 10)=1;"тысяч "; ВПР(ОСТАТ(ОТБР(A8/1000);10);тыс;2));"")& ИНДЕКС(сот;ОСТАТ(ОТБР(A8/100);10)+1)& ЕСЛИ(ОСТАТ(ОТБР(A8/10); 10)=1;ИНДЕКС(цать; ОСТАТ(ОТБР(A8);10)+1); ИНДЕКС(дес;ОСТАТ(ОТБР(A8/10);10))) & ЕСЛИ(ОТБР(A8)=0;"ноль "; ЕСЛИ(ОСТАТ(ОТБР(A8/10);10)<>1; ИНДЕКС(ед;ОСТАТ(ОТБР(A8);10)+1);""))&") "& ЕСЛИ(ОСТАТ(ОТБР(A8/10);10)=1;" рублей"; ВПР(ОСТАТ(ОТБР(A8);10);руб;2)) & ТЕКСТ(ОТБР((A8-ОТБР(A8)+0,00001)*100);" 00_ копеек")
23,60	23 (двадцать три ) рубля 60 копеек
	=ТЕКСТ(ОТБР(A9);"# ###")&" ("&ИНДЕКС(сот;ОСТАТ(ОТБР(A9/10^8);10)+1)& ЕСЛИ(ОСТАТ(ОТБР(A9/10^7);10)=1; ИНДЕКС(цать; ОСТАТ(ОТБР(A9/10^6);10)+1);ИНДЕКС(дес;ОСТАТ(ОТБР(A9/10^7);10)))& ЕСЛИ(ОСТАТ(ОТБР(A9/10^7);10)<>1;ИНДЕКС(ед;ОСТАТ(ОТБР(A9/10^6);10)+1);"") &ЕСЛИ(ОСТАТ(ОТБР(A9/10^6);1000); ЕСЛИ(ОСТАТ(ОТБР(A9/10^7);10)=1;"миллионов ";ВПР(ОСТАТ(ОТБР(A9/10^6);10);мил;2));"")&ИНДЕКС(сот;ОСТАТ(ОТБР(A9/10^5);10)+1)& ЕСЛИ(ОСТАТ(ОТБР(A9/10^4);10)=1;ИНДЕКС(цать; ОСТАТ(ОТБР(A9/10^3);10)+1); ИНДЕКС(дес;ОСТАТ(ОТБР(A9/10^4);10)))& ЕСЛИ(ОСТАТ(ОТБР(A9/10^4);10)<>1;ИНДЕКС(едж;ОСТАТ(ОТБР(A9/1000);10)+1);"")&ЕСЛИ(ОСТАТ(ОТБР(A9/1000);1000); ЕСЛИ(ОСТАТ(ОТБР(A9/10^4);10)=1;"тысяч "; ВПР(ОСТАТ(ОТБР(A9/1000);10);тыс;2));"") &ИНДЕКС(сот;ОСТАТ(ОТБР(A9/100);10)+1)& ЕСЛИ(ОСТАТ(ОТБР(A9/10);10)=1;ИНДЕКС(цать; ОСТАТ(ОТБР(A9);10)+1); ИНДЕКС(дес;ОСТАТ(ОТБР(A9/10);10)))&ЕСЛИ(ОТБР(A9)=0; "ноль "; ЕСЛИ(ОСТАТ(ОТБР(A9/10);10)<>1; ИНДЕКС(ед;ОСТАТ(ОТБР(A9);10)+1);""))&") "& ЕСЛИ(ОСТАТ(ОТБР(A9/10);10)=1;" рублей"; ВПР(ОСТАТ(ОТБР(A9);10);руб;2))& ТЕКСТ(ОТБР((A9-ОТБР(A9)+0,00001)*100);" 00_ копеек")

2. Отправка писем

Через гипер ссылку	VBA
ГИПЕРССЫЛКА(СЦЕПИТЬ("mailto:";J2; "&subject="; $B$1;"&body=";$B$2; $B$3); ДЛСТР(СЦЕПИТЬ("mailto:";J2;"&subject="; $B$1; "&body=";$B$2;$B$3)))	Dim Outlook_ As New Outlook.Application Dim Message As Outlook.MailItem Const NameFile = "c:\customer.txt" Set Message = Outlook_.CreateItem(olMailItem) With Message .Subject = "" .To = "AdressTo@mail.ru" .Body = "" .Attachments.Add (NameFile) 'Application.SendKeys "{ENTER}" .Send End With Set Message = Nothing Set Outlook_ = Nothing

3. Разные формулы

1) найти сколько раз повторяется слово в тексте:

=(ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;B1;"")))/ДЛСТР(B1)

2) найти почтовый индекс в строке, в любом месте:

=ПРОСМОТР(9^10;--ПСТР(ПОДСТАВИТЬ(A6;",";"я")&"я";СТРОКА($1:$99999);7))

3) перенос на вторую строку. Должен быть включен перенос строк. (или ALT(лев)+Enter):

="первая" & СИМВОЛ(10) & "вторая"

4) Убрать лишние символы в адресе:

=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ЛЕВСИМВ(H2;2);",";"")&ПСТР(СЖПРОБЕЛЫ(H2);3;ДЛСТР(H2)-4)&ПОДСТАВИТЬ(ПРАВСИМВ(СЖПРОБЕЛЫ(H2);2);",";"");"АК,";"Алтайский край,"))

5) Фамилия Имя Отчество -> И.О. Фамилия+у(м):

=ЛЕВСИМВ(G2) & "." & ЛЕВСИМВ(H2) &". " & F2 & ЕСЛИ(J2=1;"у";"")

6) Если дальше повторяются записи, то 1:

=ЕСЛИ(C2=C3;1;"")

4. Преобразование ФИО

ФИО	И.О. Фамилия	Фамилия И.О. (отчества может не быть)
Петров Денис Михайлович	Д.М. Петров	Петров Д.М.
Петров Денис Михайлович	=ПСТР(B158; НАЙТИ(СИМВОЛ(32); B158;1)+1;1) &"."& ПСТР(B158; ПОИСК(СИМВОЛ(32); B158; НАЙТИ(СИМВОЛ(32); B158;1)+1)+1;1)&". "&ЛЕВСИМВ(B158; НАЙТИ(СИМВОЛ(32); B158;1)-1)	=ЛЕВСИМВ(B158; НАЙТИ(СИМВОЛ(32); B158))& ЕСЛИ( ДЛСТР(B158)-ДЛСТР(ПОДСТАВИТЬ(B158; СИМВОЛ(32);""))=1; ПСТР(B158; НАЙТИ(СИМВОЛ(32); B158)+1;1); ПСТР(B158; НАЙТИ(СИМВОЛ(32); B158)+1;1)&"." & ПСТР(B158; НАЙТИ( СИМВОЛ(32); B158; НАЙТИ(СИМВОЛ(32); B158)+1)+1;1))&"."

Новости

Word & Excel