Различия

Показаны различия между двумя версиями страницы.

--- progs:msoffice [30.07.2024 19:21] – внешнее изменение 127.0.0.1
+++ progs:msoffice [26.04.2025 19:36] (текущий) – [Альтернативные офисные приложения] viacheslav
@@ Строка 1: / Строка 1: @@
+===== Microsoft Office 2016 =====
+''setup.exe /admin'' запускает средство подготовки дистрибутива к административной установке.
+  * Расположение установки и название - прописать название организации
+  * Лицензирование и пользовательский интерфейс - "Я принимаю условия соглашения", "Отображать уровень - нет", "Подавлять модальные окна"
+  * Изменение свойств установки - "SETUP_REBOOT = Never", "AUTO_ACTIVATE = 1"
+  * Изменение параметров пользователя - отключить все пункты в "Microsoft Office 2016 - Первый запуск"
+  * Задание режимов установки компонентов - Отключить "OneDrive для бизнеса", "OneNote", "Publisher", "Общие средства Office - Элемент управления Microsoft Office Download, Веб-темы", "Средства Office - Телеметрия Office".
+GPO - [[https://learn.microsoft.com/en-us/microsoft-365/troubleshoot/updates/automatic-updates|включить обновления]]
+<code powershell>
+$prop = @{
+Path = 'HKLM:\software\policies\microsoft\office\16.0\common\OfficeUpdate'
+Value = 1
+PropertyType = 'DWORD'
+Force = $true
+Confirm = $false
+}
+New-Item $prop.path -Force
+New-ItemProperty -Name EnableAutomaticUpdates @prop
+New-ItemProperty -Name HideEnableDisableUpdates @prop
+</code>
+===== Обновления =====
+Установка обновлений при установке Офиса.
+Here is an article which lists the latest updates for MSI versions of Office: [[https://learn.microsoft.com/en-us/officeupdates/office-updates-msi|Latest updates for versions of Office that use Windows Installer (MSI)]].\\
+Then you need to extract the MSP files from these updates, and put them into the Updates folder within your Office installation files.\\
+If needed, you may refer to the references below for more detailed information about this process.\\
+[[https://learn.microsoft.com/en-us/previous-versions/office/office-2013-resource-kit/cc178995(v=office.15)?redirectedfrom=MSDN#updates-folder|Updates folder]]\\
+[[https://learn.microsoft.com/en-us/previous-versions/office/office-2013-resource-kit/cc178995(v=office.15)?redirectedfrom=MSDN#deploying-software-updates-with-an-initial-office-2013-installation|Deploying software updates with an initial Office 2013 installation]]
+==== Вывести список обновлений ====
+Если ставить Офис сразу с обновлениями (из папке Updates), то они не покажутся в списке через GUI, но их можно вывести через Powershell.
+<code powershell>
+$PatchRegPath = 'HKLM:\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\*\Patches\*'
+(Get-ItemProperty -Path $PatchRegPath).DisplayName
+</code>
+==== Скрипт извлечения обновлений из установленного Офиса ====
+Подходит для 2010/2013/2016, после извлечения эти обновления кладутся в каталог Updates, чтобы они ставились прямо сразу при установке Офиса.
+++++ CollectOfficeUpdates.vbs |
+<file vbscript CollectOfficeUpdates.vbs>
+Dim oMsi,oFso,oWShell
+Dim Patches,SumInfo
+Dim patch,record,msp
+Dim qView
+Dim sTargetFolder,sMessage
+Const OFFICEID = "000-0000000FF1CE}"
+Const PRODUCTCODE_EMPTY = ""
+Const MACHINESID = ""
+Const MSIINSTALLCONTEXT_MACHINE = 4
+Const MSIPATCHSTATE_APPLIED = 1
+Const MSIOPENDATABASEMODE_PATCHFILE = 32
+Const PID_SUBJECT = 3 'Displayname
+Const PID_TEMPLATES = 7 'PatchTargets
+Set oMsi = CreateObject("WindowsInstaller.Installer")
+Set oFso = CreateObject("Scripting.FileSystemObject")
+Set oWShell = CreateObject("Wscript.Shell")
+'Create the target folder
+sTargetFolder = oWShell.ExpandEnvironmentStrings("%TEMP%")&"\Updates"
+If Not oFso.FolderExists(sTargetFolder) Then oFso.CreateFolder sTargetFolder
+sMessage = "Patches are being copied to the %Temp%\Updates folder." & vbCrLf & "A Windows Explorer window will open after the script has run."
+oWShell.Popup sMessage,20,"Office Patch Collector"
+'Get all applied patches
+Set Patches = oMsi.PatchesEx(PRODUCTCODE_EMPTY,MACHINESID,MSIINSTALLCONTEXT_MACHINE,MSIPATCHSTATE_APPLIED)
+On Error Resume Next
+'Enum the patches
+For Each patch in Patches
+	If Not Err = 0 Then Err.Clear
+		'Connect to the patch file
+		Set msp = oMsi.OpenDatabase(patch.PatchProperty("LocalPackage"),MSIOPENDATABASEMODE_PATCHFILE)
+		Set SumInfo = msp.SummaryInformation
+		If Err = 0 Then
+			If InStr(SumInfo.Property(PID_TEMPLATES),OFFICEID)>0 Then
+				'Get the original patch name
+				Set qView = msp.OpenView("SELECT `Property`,`Value` FROM MsiPatchMetadata WHERE `Property`='StdPackageName'")
+				qView.Execute : Set record = qView.Fetch()
+				'Copy and rename the patch to the original file name
+				oFso.CopyFile patch.PatchProperty("LocalPackage"),sTargetFolder&"\"&record.StringData(2),TRUE
+			End If
+		End If 'Err = 0
+Next
+'patch
+oWShell.Run "explorer /e,"&chr(34)&sTargetFolder&chr(34)
+</file>
+++++
+[[https://community.spiceworks.com/topic/2174377-looking-for-the-best-way-to-streamline-updates-for-our-ms-office-2016-install|Looking for the best way to streamline updates for our MS Office 2016 install]]\\
+[[https://learn.microsoft.com/en-us/previous-versions/office/office-2013-resource-kit/cc178995(v=office.15)|Distribute updates for Office 2013 products]]
+==== Microsoft Office 2016 Click to Run ====
+Штатными средствами WSUS не обновляется, используется [[https://www.microsoft.com/en-us/download/confirmation.aspx?id=49117|Office Deployment Tool]], она скачивает дистрибутив с обновлениями в расшаренную папку, с этой папки обновляются клиенты.
+<code dos>
+C:\Scripts\office2016\setup.exe /download "C:\Scripts\office2016\Download-64-bit-Office-2016.xml"
+C:\Scripts\office2016\setup.exe /download "C:\Scripts\office2016\Download-32-bit-Office-2016.xml"
+</code>
+<file xml Download-64-bit-Office-2016.xml>
+<Configuration>
+  <Add SourcePath="C:\distrib\Office2016-updates" OfficeClientEdition="64" >
+    <Product ID="O365ProPlusRetail">
+      <Language ID="ru-ru" />
+    </Product>
+      </Add>
+  <Updates Enabled="TRUE" UpdatePath="\\wsus\distrib\Office2016-updates" />
+  <Display Level="None" AcceptEULA="TRUE" />
+  <Logging Level="Standard" Path="%temp%" />
+</Configuration>
+</file>
+===== Excel =====
+Модули для Powershell для работы с .xls(x): [[https://github.com/RamblingCookieMonster/PSExcel|PSExcel]] и [[https://www.powershellgallery.com/packages/ImportExcel|ImportExcel]]. Установленный Excel не требуется, используется механизм .NET.
+[[http://ramblingcookiemonster.github.io/PSExcel-Intro/|PSExcel: Excel automation without Excel]]
+<code powershell>
+# Установить для пользователя (путь $env:userprofile\Documents\WindowsPowerShell\Modules\ImportExcel)
+Install-Module -Name ImportExcel -Scope CurrentUser -SkipPublisherCheck
+# Примеры работы
+Import-Excel c:\temp\all.xlsx -WorksheetName processes -StartColumn 1 -EndColumn 1 |select -expand name -Unique
+Get-Service |Export-Excel -Show
+</code>
+.xls -> .xlsx:
+<code powershell>
+& "(gci "${env:ProgramFiles(x86)}\Microsoft Office" -recurse |? name -eq excelcnv.exe).fullname" -oice "$xls" "$($xls.FullName -replace '.xls','.xlsx')"
+</code>
+==== ImportExcel ====
+[[https://jamesone111.wordpress.com/2017/12/05/using-the-import-excel-part-1-importing/|Using the Import-Excel module: Part 1 Importing]]\\
+[[https://jamesone111.wordpress.com/2017/12/11/using-the-import-excel-module-part-2-putting-data-into-xlsx-files/|Using the Import Excel module part 2: putting data into .XLSx files]]\\
+[[https://jamesone111.wordpress.com/2017/12/12/using-the-import-excel-module-part-3-pivots-and-charts-data-and-calculations/|Using the import Excel Module: Part 3, Pivots and charts, data and calculations]]\\
+[[https://jamesone111.wordpress.com/2018/05/31/more-tricks-with-powershell-and-excel/|More tricks with PowerShell and Excel]]
+[[https://kpatnayakuni.com/2019/01/13/excel-reports-using-importexcel-module-from-powershell-gallery/|Excel reports using ImportExcel module from Powershell gallery]]
+<code powershell>
+# Раньше Эксель надо было использовать через ком-объект, имея установленный Эксель на компьютере:
+$xl = New-Object -ComObjext excel.application
+$xl.Visible = $true # чтобы запустить эксель и видеть изменения
+$wb = $xl.workbooks.add() # добавить пустую книгу
+$ws = $wb.worksheets["Sheet1"] # выбрать лист
+$ws.cells[1, 1].value = "ID" # прописать значение [строка, столбец]
+$ws.cells[2, 5].formula = "=C2*D2" # прописать формулу
+# Заполнение таблиц таким образом трудоёмкое
+# ImportExcel не требует установленного Экселя на компьютере и автоматизирует работу
+# Список команд модуля
+(Get-Module importexcel).ExportedCommands.Keys |sort
+# Запустит Эксель с заполненной данными ячейкой
+"Hello world" |Export-Excel
+# Data будет заголовком уже с фильтром, данные - со второй строки
+[pscustomobject]@{Data="Hello world"} |Export-Excel
+# Выгрузятся ВСЕ свойства процессов
+Get-Process |Export-Excel .\demo.xlsx
+# Export-Excel всегда выгружает все доступные свойства, поэтому перед экспортом их надо фильтровать
+# -show - сразу открыть созданный файл, -ClearSheet - очистить лист (по умолчанию данные добавляются)
+Get-Process |select company,pm,handles |Export-Excel .\demo.xlsx -show -ClearSheet
+# Помимо таблички, сделать сводную таблицу и диаграмму
+$ps = Get-Process |select company,pm,handles
+$ps |Export-Excel .\demo.xlsx -show -IncludePivotTable -IncludePivotChart -PivotRows company -PivotData @{handles='sum'}
+# Выбор вида диаграммы (-ChartType)
+$ps |Export-Excel .\demo.xlsx -show -IncludePivotTable -IncludePivotChart -PivotRows company -PivotData @{handles='sum'} -ChartType PieExploded3D
+# Убрать расшифровку (легенду), показать проценты и категории
+$ps |Export-Excel .\demo.xlsx -show -IncludePivotTable -IncludePivotChart -PivotRows company -PivotData @{handles='sum'} -ChartType PieExploded3D -NoLegend -ShowCategory -ShowPercent
+# Задать имя таблице, автовыравнивание по ширине
+$ps |Export-Excel .\demo.xlsx -show -TableName Processes -AutoSize
+# Автоприсвоение имён диапазону значений столбцов
+$ps |Export-Excel .\demo.xlsx -show -AutoSize -AutoNameRange
+# Построение диаграммы на основании автодиапазонов
+$ChartDefinition = New-ExcelChart -XRange company -YRange handles
+$ps |Export-Excel .\demo.xlsx -show -AutoNameRange -ExcelChartDefinition $ChartDefinition
+# Задать больше параметров для диаграмм, сделать их две
+$barChart = New-ExcelChart -XRange company -YRange handles -Height 250
+$pieChart = New-ExcelChart -ChartType PieExploded3D -Row 15 -Height 250 -XRange company -YRange pm -NoLegend -ShowCategory -ShowPercent
+$ps |Export-Excel .\demo.xlsx -show -AutoNameRange -ExcelChartDefinition $barChart, $pieChart
+# Задать параметры Export-Excel предварительно, диаграмма нарисуется после 9-го столбца
+$chart = New-ExcelChart -XRange company -YRange handles -Height 600 -Width 500 -Column 9
+$excelparams = @{show=$true; autosize=$true; autonamerange=$true; tablename="Sales"}
+$ps |Export-Excel @excelparams .\demo.xlsx -ExcelChartDefinition $chart
+# Подсветка ячеек по условию (New-ConditionalText условие, цвет текста, цвет фона)
+$data = Get-Service |select Status,Name,DisplayName,StartType
+$text1 = New-ConditionalText stop
+$text2 = New-ConditionalText runn Blue Cyan
+$data |Export-Excel .\demo.xlsx -Show -AutoSize -ConditionalText $text1, $text2
+# Значки в ячейках столбца С
+$data = (Get-Process).where{$_.company} |select Company,Name,PM,Handles,*mem*
+$cfmt = New-ConditionalFormattingIconSet -Range "C:C" -ConditionalFormat ThreeIconSet -IconType Arrows
+$data |Export-Excel .\demo.xlsx -Show -AutoSize -ConditionalFormat $cfmt
+# Импорт таблицы из HTML (в данном случае - Профессорско-преподавательский состав академии Гнесиных)
+$url = 'https://gnesin-academy.ru/wp-content/documents/documents/main/pps_actual_short_spec_1.html'
+Import-Html $url -FirstDataRow 3 -Header '№ п/п','ФИО','Должность','Ученая степень или звание','Статус','Уровень образования, специальность, направление, квалификация','Стаж'
+# Если входящие данные несложные, можно делать диаграммы сразу.
+# Модуль анализирует тип данных и предполагает, как нужно строить диаграмму
+$data |BarChart -Title 'A bar chart'
+$data |PieChart -Title 'A pie chart'
+$data |LineChart -Title 'A line chart'
+$data |ColumnChart -Title 'A column chart'
+# Диаграмма-график, заданы значения оси Y (X будет нумероваться сам с 0)
+$plt = New-Plot
+$null = $plt.plot((1,2,3,4))
+$plt.show()
+# Теперь нумеруются и X, и Y
+$plt = New-Plot
+$null = $plt.plot((1,2,3,4),(1,4,9,16))
+$plt.show()
+# Мат. фильтр, ещё более красивый график (реально запустить не получилось)
+filter pow ($n){[math]::Pow($_.$n)}
+$t = Get-Range 0 5 .2
+$t2 = $t |pow 2
+$t3 = $t |pow 3
+$plt = New-Plot
+$null = $plt.plot($t,$t, $t,$t2, $t,$t3)
+$null = $plt.SetChartSize(500,300)
+$plt.show()
+</code>
+Также см. папку Examples модуля.\\
+[[https://www.youtube.com/watch?v=4Xw7r6436w0|Doug Finke on Using the ImportExcel PowerShell Module]]
+<code powershell>
+# Добавление строки в файл Excel с порядковым номером
+$order = (read-host "Заказ").Trim()
+$name = (read-host "ФИО").Trim()
+$path = "C:\temp\orders.xlsx"
+$xlsx = (import-excel "$path") |? 'Заказ' -match '\d'
+$c = $xlsx[-1].'Заказ' + 1
+$obj = [PSCustomObject]@{
+'Заказ' = $c
+Тема = $order
+Фамилия = $name
+}
+$xlsx += $obj
+$xlsx |Export-Excel -Path $path -WorksheetName 'Лист1' -AutoSize -BoldTopRow
+<# По идее, надо добавлять строки, типа
+$excel = Open-ExcelPackage $path
+$sheet1 = $excel.Workbook.Worksheets["Лист1"]
+$newRowNum = $sheet1.Dimension.Rows + 1
+Set-Row -ExcelPackage $excel -WorksheetName $sheet1 -Row $newRowNum -StartColumn 1 -Value "123"
+Set-Row -ExcelPackage $excel -WorksheetName $sheet1 -Row $newRowNum -StartColumn 2 -Value "456"
+Set-Row -ExcelPackage $excel -WorksheetName $sheet1 -Row $newRowNum -StartColumn 3 -Value "789"
+Export-Excel -ExcelPackage $excel
+#>
+</code>
+===== Outlook =====
+<code powershell>
+$Outlook = New-Object -ComObject Outlook.Application
+$Namespace = $Outlook.getNamespace("MAPI")
+$all_psts = $Namespace.Stores | Where-Object {($_.ExchangeStoreType -eq '3') -and ($_.FilePath -like '*.pst') -and ($_.IsDataFileStore -eq $true)}
+ForEach ($pst in $all_psts){
+    $Outlook.Session.RemoveStore($pst.GetRootFolder())
+}
+</code>
+[[https://stackoverflow.com/questions/24058514/how-to-disconnect-pst-file-from-outlook-using-powershell|How to disconnect PST file from Outlook using Powershell]]?\\
+<code powershell>
+Add-type -assembly "Microsoft.Office.Interop.Outlook" | out-null
+$outlook = new-object -comobject outlook.application
+$namespace = $outlook.GetNameSpace("MAPI")
+dir “c:mypath*.pst” | % { $namespace.AddStore($_.FullName) }
+</code>
+[[https://deep.data.blog/2014/12/11/using-powershell-to-attach-pst-files-to-outlook/|Using PowerShell to attach PST files to Outlook]]
+[[https://docs.microsoft.com/en-us/microsoft-365/compliance/find-copy-and-delete-pst-files-in-your-organization|PST Collection tool]]
+==== Outlook не подключается к серверу из-за старого протокола шифрования ====
+Проблема наблюдается:
+  - На Windows 7. Необходимо установить обновление [[https://www.catalog.update.microsoft.com/search.aspx?q=kb3140245/|KB3140245]] и затем [[https://download.microsoft.com/download/0/6/5/0658B1A7-6D2E-474F-BC2C-D69E5B9E9A68/MicrosoftEasyFix51044.msi|MicrosoftEasyFix51044]], который включает TLS 1.2 в реестре. Работает даже с Outlook 2010.
+  - На Windows 8. Надо править реестр и убедиться, что установлен .NET 4.6.2 (это максимальная версия для Win8).
+<code dos>
+taskkill /F /IM OUTLOOK.EXE /T
+reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\WinHttp" /v DefaultSecureProtocols /t REG_DWORD /d 0x00000A00 /f
+reg add "HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Internet Settings\WinHttp" /v DefaultSecureProtocols /t REG_DWORD /d 0x00000A00 /f
+rem В документации почему-то 0xA80.
+reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v SecureProtocols /t REG_DWORD /d 0xA00 /f
+reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings" /v SecureProtocols /t REG_DWORD /d 0xA00 /f
+reg add "HKLM\SYSTEM\CurrentControlSet\Control\SecurityProviders\SCHANNEL\Protocols\TLS 1.1\Client" /v DisabledByDefault /t REG_DWORD /d 0 /f
+reg add "HKLM\SYSTEM\CurrentControlSet\Control\SecurityProviders\SCHANNEL\Protocols\TLS 1.2\Client" /v DisabledByDefault /t REG_DWORD /d 0 /f
+</code>
+https://bidhankhatri.com.np/windows/windows7-enable-tls12/\\
+https://support.microsoft.com/en-us/topic/update-to-enable-tls-1-1-and-tls-1-2-as-default-secure-protocols-in-winhttp-in-windows-c4bd73d2-31d7-761e-0178-11268bb10392\\
+https://www.ryadel.com/en/enable-tls-1-1-1-2-windows-7-8-os-regedit-patch-download/\\
+https://docs.microsoft.com/ru-ru/mem/configmgr/core/plan-design/security/enable-tls-1-2-client
+==== При запуске Outlook постоянно спрашивает логин и пароль ====
+Файл -> Параметры -> Центр управления безопасностью -> Параметры центра управления безопасностью -> Параметры конфиденциальности -> снять галку с пункта Разрешить подключение Office к веб-службам, чтобы предоставлять доступ к функциям, соответствующим вашим предпочтениям\\
+File -> Options -> Trust Center -> Trust Center Settings -> Privacy Options -> Let Office connect to online services from Microsoft to provide functionality that's relevant to your usage
+**GPO:** Конфигурация пользователя -> Административные шаблоны -> Microsoft Office 2016 -> Сервис | Общие | Параметры | Параметры служб -> Содержимое в сети -> Параметры контента в интернете -> Не разрешать Office подключаться к интернету
+https://docs.microsoft.com/en-us/outlook/troubleshoot/authentication/password-prompt-at-every-start-or-cannot-create-profile
+==== Outlook не открывает ссылки DFS ====
+Внести нужный ресурс в доверенные сайты, например, через GPO:\\
+Конфигурация пользователя -> Политики -> Административные шаблоны -> Компоненты Windows -> Internet Explorer -> Панель управления браузером -> Вкладка "Безопасность" -> Список назначений зоны для веб-сайтов\\
+''%%file:///\\example.com   2%%''
+<WRAP round info 80%>
+The syntax for adding a URL for files on FQDN or IP address paths to a GPO is different than manually adding a file URL to Internet Options | Security | Trusted Sites. You need to add three forward slashes ''%%///%%'' in front of the ''%%\\<ipaddress>%%''.
+For example:
+  * Manually adding \\10.123.452.37 enters ''%%file://10.123.452.37%%'' in Trusted Sites list, this allows the file link to not be blocked.
+  * But for GPO you need to use the following syntax: ''%%file:///\\10.123.452.37%%''. This also enters ''%%file://10.123.452.37%%'' in Trusted Sites list and allows the file link to not be blocked.
+</WRAP>
+Снять галку %%"Для всех сайтов этой зоны требуется проверка серверов (https:)"%%\\
+Конфигурация пользователя -> Политики -> Настройка -> Конфигурация Windows -> Реестр\\
+<code>
+Reg Key: HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2
+Value Name: Flags
+Value Type: REG_DWORD
+Value Data (in decimal): 67 (to uncheck) or 71 (to check)
+</code>
+Убрать предупреждение в Outlook про опасную ссылку:
+<code>
+HKCU\software\policies\microsoft\office\16.0\common\security
+DWORD: DisableHyperlinkWarning
+Value: 1
+</code>
+[[https://support.microsoft.com/en-us/office/outlook-blocks-opening-fqdn-and-ip-address-hyperlinks-after-installing-protections-for-microsoft-outlook-security-feature-bypass-vulnerability-released-july-11-2023-4a5160b4-76d0-465b-9809-60837bbd35a8|Outlook blocks opening FQDN and IP address hyperlinks after installing protections for Microsoft Outlook Security Feature Bypass Vulnerability released July 11, 2023]]\\
+[[https://qtechbabble.wordpress.com/2018/07/25/use-group-policy-registry-to-toggle-ie-trusted-sites-https-check-box/|Use Group Policy + Registry to Toggle IE Trusted Sites HTTPS Check Box]]
+===== Word =====
+==== Поиск в таблицах ====
+Необходим установленный Word.
+<code powershell>
+$filename = "D:\temp\Табличный документ.doc"
+$search = 'слово'
+$wd = New-Object -ComObject Word.Application
+$doc = ($wd).Documents.Open($filename)
+$report = @()
+$cTable = 1
+foreach ($table in $doc.Tables) {
+    $cRows = $table.Rows.Count
+    $cColumns = $table.Columns.Count
+    $cColumn = 1
+    do {
+    $cRow = 1
+        do {
+            if ($table.Cell($cRow, $cColumn).range.text -match "$search") {
+                $obj = [PSCustomObject]@{
+                    '№ таблицы' = $cTable
+                    '№ cтолбца' = $cColumn
+                    '№ строки' = $cRow
+                    Строка = $table.Cell($cRow, $cColumn).range.text
+                }
+                $report += $obj
+            }
+            $cRow++
+        } until ($cRow -gt $cRows)
+    $cColumn++
+    } until ($cColumn -gt $cColumns)
+$cTable++
+}
+$wd.Quit()
+$report
+</code>
+==== Поиск и замена ====
+Необходим установленный Word, а также исходный файл, где нужно вставить уникальные значения для замены.
+<code powershell>
+function Replace-Word {
+param($FindText, $ReplaceWith)
+    $Word.Selection.Find.Execute($FindText,$MatchCase,$MatchWholeWord, `
+    $MatchWildcards,$MatchSoundsLike,$MatchAllWordForms,$Forward,`
+    $Wrap,$Format,$ReplaceWith,$ReplaceAll)
+}
+# -AsText - чтобы при импорте значения не интерпретировались (дроби не становились десятичными и т. п.)
+$reestr = import-excel "C:\temp\from\2023-03-06 Реестр собственников.xlsx" -AsText * |? ФИО -match '\w'
+$reestr |% {
+    $_.Доля = $_.Доля -replace '\s'
+    if ($_.Доля -eq 2) {$_.Доля = 1} # ImportExcel почему-то 1 читает из таблицы как 2
+    $_.ФИО = ($_.ФИО -replace '\s+',' ').trim()
+}
+#$str = $reestr |? фио -eq 'Петров Дмитрий Вадимович, Петрова Ольга Николаевна'
+#$str = $reestr |? фио -eq 'Сидорова Анна Михайловна'
+foreach ($str in $reestr) {
+$path = "D:\temp\to\$($str.'№ кв') $($str.ФИО).docx"
+cp "C:\temp\from\blanc_source.docx" $path
+$Word = new-object -ComObject Word.Application
+$Word.Visible = $False
+$doc = $Word.Documents.Open($path,$true)
+$wdFindContinue = 1
+$MatchCase = $False
+$MatchWholeWord = $true
+$MatchWildcards = $False
+$MatchSoundsLike = $False
+$MatchAllWordForms = $False
+$Forward = $True
+$Wrap = $wdFindContinue
+$Format = $False
+$wdReplaceNone = 0
+$wdFindContinue = 1
+$ReplaceAll = 2
+Replace-Word 'r-fio' $str.ФИО
+Replace-Word 'r-flat' $str.'№ кв'
+Replace-Word 'r-egrn' $str.'Номер записи в ЕГРН'
+Replace-Word 'r-m' $str.Площадь
+Replace-Word 'r-part' $str.Доля
+$doc.Save()
+$doc.SaveAs([ref]$($path -replace 'docx$','pdf'), [ref]17) # also make PDF
+$doc.Close()
+$Word.Application.Quit()
+}
+# Сжать полученные файлы в архив
+Compress-Archive -Path "D:\temp\to\*.docx" -DestinationPath "D:\temp\to\Бланки ОСС Word.zip" #-WhatIf
+Compress-Archive -Path "D:\temp\to\*.pdf" -DestinationPath "D:\temp\to\Бланки ОСС PDF.zip" #-WhatIf
+</code>
+[[https://devblogs.microsoft.com/scripting/hey-scripting-guy-how-can-i-use-windows-powershell-to-look-for-and-replace-a-word-in-a-microsoft-word-document/|Hey, Scripting Guy! How Can I Use Windows PowerShell to Look for and Replace a Word in a Microsoft Word Document?]]\\
+[[https://stackoverflow.com/questions/16534292/basic-powershell-batch-convert-word-docx-to-pdf|Basic Powershell - batch convert Word Docx to PDF]]
+==== Модуль PSWriteOffice для Powershell ====
+[[https://github.com/EvotecIT/PSWriteOffice/|Модуль PSWriteOffice для Powershell]] создаёт документы без установленного Office.
+<code powershell>
+# Создание документа
+$docFile = "C:\temp\doc.docx"
+rm $docFile
+$doc = New-OfficeWord $docFile
+# Параграф
+$p1 = New-OfficeWordText -Document $doc -Alignment Center -Text "Первая строка параграфа" -ReturnObject
+$p1 = $p1.AddBreak() # Перенос строки в том же параграфе
+New-OfficeWordText -Document $doc -Paragraph $p1 -Text "`t`tПодчёркнуто, а вокруг TABs`t`t", " Не подчёркнуто" -Underline 'Double', $null
+</code>
+Замена текста в документе
+<code powershell>
+$from = "Было"
+$to = "Будет"
+$doc = Get-OfficeWord "C:\temp\doc.docx"
+$doc.Paragraphs |% {
+    if ($_.text -match "$from") {
+        $_.text = $_.text -replace "$from","$to"
+    }
+}
+Save-OfficeWord -Document $doc -FilePath "C:\temp\docChanged.docx" #-Show
+</code>
+===== Альтернативные офисные приложения =====
+[[https://www.abisource.com/|Abiword]] is a free word processing program similar to Microsoft® Word. It is suitable for a wide variety of word processing tasks.\\
+[[http://www.gnumeric.org/|Gnumeric]] is an open-source spreadsheet program.\\
+[[https://ru.libreoffice.org/|Libreoffice]] - офисный пакет.\\
+[[https://www.onlyoffice.com/|Onlyoffice]] - офисный пакет.\\
+[[https://pandoc.org|pandoc]] - не совсем офисное приложение, но мощный конвертер между текстовыми форматами, включая pdf и docx.\\
+[[https://app.diagrams.net/|app.diagrams.net (draw.io)]] - онлайн-диаграммы, схема сети. [[https://github.com/jgraph/drawio-desktop/releases|Скачать приложение]].