Поиск и удаление строки в Word с помощью VBA

Сегодня появилась интересная задача:

В 200 страничном документе Word найти определенное слово и удалить не только его, а всю строку, в которой это слово стоит.

Очень помог гугл и сайт cyberforum.ru.

Итоговый скрипт:

' Скрипт ищет строки с определенным словом и удаляет ее.

Sub DeleteLine()

Dim DeleteLine As String

DeleteLine = InputBox("Введите слово для удаления строки", "Удаляем строки")

If DeleteLine = Empty Then Exit Sub

Application.ScreenUpdating = False

With ActiveDocument.Range.Find

.ClearFormatting

.Text = DeleteLine

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

While .Execute

.Parent.Select

Selection.HomeKey Unit:=wdLine

Selection.EndKey Unit:=wdLine, Extend:=wdExtend

Selection.Delete

Wend

End With

Application.ScreenUpdating = True

End Sub

Источник

0X80190197 - Ошибка синхронизации Адресной книги

Иногда Outlook не может синхронизировать адрессную книгу. В логах появляются записи:

Автономная адресная книга Microsoft Exchange

0X80190197

Решение простое:

To work around this problem by changing the method that the BITS 2.0 client uses to provide logon credentials to the server, create a UseLmCompat registry value in the HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\BITS subkey, and then add a DWORD value of 0. To do this, follow these steps on the BITS 2.0 client computer: 1. Click Start, click Run, and then type regedit.

2. Locate the following subkey: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\BITS

3. Right-click BITS, point to New, click DWORD Value, type UseLmCompat, and then press ENTER.

4. In the right pane, right-click UseLmCompat, and then click Modify.

5. In the Value data box, type 0, and then click OK.

6. Quit Registry Editor.

7. Restart the BITS 2.0 service.

Источник

Поиск повторяющихся значений в Excel путем сравнения данных в двух столбцах

Чтобы сравнить данные в двух столбцах с помощью формулы, выполните указанные ниже действия. Запустите Excel.
Введите в ячейки нового листа следующие данные

Введите в ячейку B1 следующую формулу:
=IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1)
Выделите ячейки B1:B5.

Источник

Правильная формула:

=ЕСЛИ(ЕОШИБКА(ПОИСКПОЗ(C1;$E$1:$E$146;0));"";C1)

Есть еще 1 способ:

счётесли считает совпадение элемента с ДИАПАЗОНОМ!
например, строки в столбце A, чтобы посчитать, сколько встречается строка из ячейки A1 -
рядом, в любом столбце пишем формулу
=СЧЁТЕСЛИ($A:$A;A1)
протягиваем и, вуаля..

а для выделения повторов очень удобно пользоваться условным форматированием.
выбираем там "Формула", задаём формулу вида:
Код:

=(СЧЁТЕСЛИ($A:$A;A1)>1)

задаём выделение цветом/заливкой.
ОК.
потом нажимаем кнопку с кисточкой ("формат по образцу") и выделяем весь столбец со строками...

Как убрать сразу все гиперссылки в документе

Для того, чтобы удалить в документе несколько гиперссылок, нужно проделать следующую операцию.

1. Выбрать пустую ячейку, и ввести в нее цифру 1 (никакой самодеятельности, именно цифру 1). 

2. Щелкните правой кнопкой мыши, и в контекстном меню выберите команду "Копировать".

3. Удерживая клавишу "CTRL", выделите ссылки которые нужно удалить. 

4. В меню "Правка" выберите команду "Специальная вставка".

5. В диалоговом окне, в группе "Операция" выберите вариант "Умножить".

Источник

Сравнение и соединение таблиц с данными в Excel

Допустим имеется 2 таблицы с данными, при этом 1 столбец в данных таблицах одинаков, таблицы размещены на разных листах.

Необходимо, объединить данные таблицы при этом сравнение будет производится по столбцу "А"(ФИО).Будем использовать стандартную функцию Excel - ВПР.

Функция ВПР — Ищет значение в первом столбце массива таблицы и возвращает значение в той же строке из другого столбца массива таблицы. Буква В в названии функции ВПР означает «вертикально». Функция ВПР используется вместо функции ГПР, если сравниваемые значения расположены в столбце слева от искомых данных.

Синтаксис функции ВПР:

ВПР(искомое_значение;таблица;номер_столбца;интервальный_просмотр)

Итак, функция для сравнения и соединения таблиц, будет следующей: 
=ЕСЛИ(ЕНД(ВПР(A2;Лист2!$A$1:$B$200;2;0));"";ВПР(A2;Лист2!$A$1:$B$200;2;0))