From 993f498c51b89b8a0ad5e43f4737076c51c36dd5 Mon Sep 17 00:00:00 2001 From: Gabe Date: Tue, 5 Aug 2025 14:48:38 +0000 Subject: [PATCH] Upload files to "Utility Scripts" --- Utility Scripts/Convert doc to docx.ps1 | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 Utility Scripts/Convert doc to docx.ps1 diff --git a/Utility Scripts/Convert doc to docx.ps1 b/Utility Scripts/Convert doc to docx.ps1 new file mode 100644 index 0000000..37e87b0 --- /dev/null +++ b/Utility Scripts/Convert doc to docx.ps1 @@ -0,0 +1,16 @@ +$Path = "C:\Temp\" +$Word_App = New-Object -ComObject Word.Application + +$Format = [Microsoft.Office.Interop.Word.WdSaveFormat]::wdFormatXMLDocument + +$List = Get-ChildItem -Path $Path -Recurse -File -Filter '*.doc' | Where-Object { $_.Name -match '.+\.doc$' } +Foreach ($Item in $List) { + if ($Item.Name -match '.+.doc$') { + $Document = $Word_App.Documents.Open($Item.FullName) + $Docx_Filename = "$($Item.DirectoryName)\$($Item.BaseName).docx" + $Document.SaveAs([ref]$docx_filename, [ref]$Format) + $Document.Close() + #Remove-Item -Path $Item.FullName -Force + } +} +$word_app.Quit() \ No newline at end of file