Поиск и удаление строки в 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

Источник

Автоматизация действий с помощью Keepass.

Оказывается Keepass можно использовать не только для хранения паролей, но и для автоматического заполнения форм. А еще и для автоматизации выполнениейрутинных действий. Опубликую ссылку на FAQ.

Управление VM с помощью PowerCLI

Наткнулся на статью в KB по управлению VM. Хотя там и написаны основы, но 2 очень важных момента там есть:

• конфигурация сети виртуальной машины
• выгрузка свойств виртуальной машины, в том числе VMID

Get-VM vmname | Format-List - информация, о VM

дальше цитата:

Collecting information about the virtual machine

This section discusses the commands that can be used to collect detailed information about the virtual machine. This article provides an overview of the commands they can be customized according to the needs.

Collecting information about virtual machine hardware

To get a list of all the virtual machines in the inventory and their name, power state, number of CPUs, and configured memory, run the cmdlet:

[vSphere PowerCLI] C:\Program Files\VMware\Infrastructure\vSphere PowerCLI> Get-VM

Name PowerState Num CPUs Memory (MB)
---- ---------- -------- -----------
NW PoweredOff 1 512
PowerCLI PoweredOn 1 1024

Note: This command provides information about the version, virtual hardware attached(virtual disk, network, CD-ROM), datastore, host, HA restart and isolation properties:

[vSphere PowerCLI] C:\Program Files\VMware\Infrastructure\vSphere PowerCLI> Get-VM windows-dc | Format-List *

Collecting information about the virtual machine guest operating system

vSphere PowerCLI provides cmdlets to retrieve the details about the virtual machine guest operating system. These cmdlets are independent of the guest operating system installed in the virtual machine.

[vSphere PowerCLI] C:\Program Files\VMware\Infrastructure\vSphere PowerCLI> Get-VMGuest -VM windows-dc | Format-List *

OSFullName : Microsoft Windows Server 2003, Enterprise Edition (64-bit)
IPAddress : {10.112.102.7}
State : Running
HostName : windows-dc.vcd.com
Nics : {}
ScreenDimensions : {Width=1024, Height=768}

Note: When retrieving the details about the guest operating system, you are prompted for the user name and password for the ESX/ESXi host and guest operating system. You can provide the authentication details in the command by using the -HostUser root -HostPassword pass1 -GuestUser administrator -GuestPassword vmware123 parameters.

Using PowerCLI you can also query, start, or stop a service within the guest operating system. You can use Start-Service, Stop-Service, and Restart-Service cmdlets to modify the status of the service. If no virtual machine is specified in the command the change is be made on all the Windows virtual machines in the inventory.

Note: To use this command ensure that the latest version of VMware Tools are installed on the Virtual Machine and this cmdlet is applicable only for Windows Guest.

[vSphere PowerCLI] C:\Program Files\VMware\Infrastructure\vSphere PowerCLI> Get-VM windows-dc | Invoke-VMScript "Get-Service app*"

Status Name DisplayName
------ --- -----------
Stopped AppMgmt Application Management

vSphere PowerCLI also provides cmdlets to provide the Network Configuration information from within the guest operating system:

[vSphere PowerCLI] C:\Program Files\VMware\Infrastructure\vSphere PowerCLI> Get-VMGuestNetworkInterface -VM windows-dc -HostUser root -HostPassword vmware123 -GuestUser administrator -GuestPassword vmware123

VMId : VirtualMachine-vm-33
VM : windows-dc
NetworkAdapter : Network adapter 1
SubnetMask : 255.255.252.0
NicId : VirtualMachine-vm-33/4000
Name : Local Area Connection
IPPolicy : Static
Ip : 10.112.102.7
Dns : {127.0.0.1}
DefaultGateway : 10.112.103.254
Description : Intel(R) PRO/1000 MT Network Connection
Mac : 00-0C-29-30-F3-11
RouteInterfaceId : 0x10003
Uid : /VIServer=@10.112.101.9:443/VMGuestNetworkInterface=00-0C-29
-30-F3-11/
DnsPolicy : Static
WinsPolicy : Static
Wins :

To retrieve the routing configuration of the specified virtual machine, run the cmdlet:

[vSphere PowerCLI] C:\Program Files\VMware\Infrastructure\vSphere PowerCLI> Get-VMGuestroute -VM windows-dc -HostUser root -HostPassword vmware123 -GuestUser administrator -GuestPassword vmware123

Destination : 0.0.0.0
Gateway : 10.112.103.254
Interface : 10.112.102.7
Netmask : 0.0.0.0
VMId : VirtualMachine-vm-33
VM : windows-dc

Configuring a virtual machine using PowerCLI

This section discusses the cmdlets that you can use to configure/reconfigure the virtual machines.

To create new virtual machines, run the cmdlet:

[vSphere PowerCLI] C:\Program Files\VMware\Infrastructure\vSphere PowerCLI> New-VM -VMHost 10.112.96.17 -Name TestCli -MemoryMB 1024 -DiskMB 8024

Name PowerState Num CPUs Memory (MB)
---- ---------- -------- - ----------
TestCli PoweredOff 1 1024

To migrate a virtual machine using vMotion, run the cmdlet:

[vSphere PowerCLI] C:\Program Files\VMware\Infrastructure\vSphere PowerCLI> Get-VMHost 10.112.96.18 | Get-VM "windows-cli" | Move-VM -Destination 10.112.96.17

Name PowerState Num CPUs Memory (MB)
---- ---------- -------- -----------
windows-cli PoweredOn 1 1024

To migrate a virtual machine using Storage vMotion, run the cmdlet:

[vSphere PowerCLI] C:\Program Files\VMware\Infrastructure\vSphere PowerCLI> Get-VM windows-rhel5 | Move-VM -Datastore vCloud-1

Name PowerState Num CPUs Memory (MB)
---- ---------- -------- -----------
windows-rhel5 PoweredOn 1 3072

All of the virtual machines in the in the inventory can be configured with or without the CD-ROM drive using this command:

Note: To disable CD-ROM, use the $false option. To enable CD-ROM, use the $true option.

[vSphere PowerCLI] C:\Program Files\VMware\Infrastructure\vSphere PowerCLI> Get-VM | Get-CDDrive | Set-CDDrive -Connected:$false

Confirm
Are you sure you want to perform this action?
Performing operation "Setting Connected: False, NoMedia: False." on Target "CD/DVD Drive 1".
[Y] Yes [A] Yes to All [N] No [L] No to All [S] Suspend [?] Help (default is "Y"):Y

Working with virtual machine snapshots

vSphere PowerCLI provides cmdlets to create/remove snapshots for all of the virtual machines in the inventory. However, you may further customize the command to specify virtual machines from a specific ESX/ESXi Host, Cluster, or Datacenter.

To take a new snapshot for all virtual machines in a Cluster, run the cmdlet:

[vSphere PowerCLI] C:\Program Files\VMware\Infrastructure\vSphere PowerCLI> Get-Cluster "vCloud" | Get-VM | New-Snapshot -Name Automate

Name Description PowerState
---- ----------- ----------
Automate PoweredOff
Automate PoweredOff

To remove a snapshot from all of the virtual machine in the inventory, run the cmdlet:

[vSphere PowerCLI] C:\Program Files\VMware\Infrastructure\vSphere PowerCLI> Get-VM | Get-Snapshot | Remove-Snapshot

Confirm
Are you sure you want to perform this action?
Performing operation "Removing snapshot." on Target
"VirtualMachineSnapshot-snapshot-174".
[Y] Yes [A] Yes to All [N] No [L] No to All [S] Suspend [?] Help
(default is "Y"):A

Note: Use the preceding commands with caution as the changes made are applicable for all virtual machines.

Updating VMware Tools

Update-Tools cmdlets can be used to update the VMware Tools on a single or multiple virtual machines. This command reboots the virtual machine after updating the VMware Tools. You can use the -NoReboot option to update the VMware Tools without rebooting the virtual machine.

In this example, the VMware Tools for all of the virtual machines in Resource Pool vCloud will be updated without rebooting the virtual machine:

[vSphere PowerCLI] C:\Program Files\VMware\Infrastructure\vSphere PowerCLI> Get-ResourcePool vcloud | Get-VM | Update-Tools -NoReboot
WARNING: Automatic update of VMware tools is not fully supported for
non-Windows OSs. Manual intervention might be required.

Note: Before running the cmdlet, ensure that the VMware Tools service is running. This command is used only to upgrade VMware Tools. To do an unattended install, use msiexec.exe. For more information, see The Microsoft article Use Windows Installer from the command line.

Источник

Рекомендации по производительности дисков

Интересное kb по дисковой производительности. В общем то ничего нового нет, но достаточно полезно.

Основные моменты:

Низкая производительность VM может быть связана с недостатком IOPS (на каждую виртуальную машину менее 30) Для расчета оптимального количества VM на массив необходимо поделить общее количество IOPS массива на количество виртуальных машин. Например у нас есть массив из 6 10к HDD 150*6=900. Если на этом массиве запущено 50 VM, то имеем следующее: 900/50=18. Следовательно, 18 IOPS нам явно не хватает, потому и наблюдаем низкую производительность. Для решения проблемы необходимо сократить количество виртуальных машин до 30 штук - 900/30=30.

Disk Spindle Speed (RPM)	Number of IOPS available
7200 RPM	100
10,000 RPM	150
15,000 RPM	230

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

Раз уж речь зашла о производительности - не забываем о ссылке

http://www.vm4.ru/p/performance.html

Поиск повторяющихся значений в 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))