Макрос vbs. Метод. Запуск объекта «IWshShell3» завершился неудачно, только захлестывает большие файлы Word.

Я сторонник простоты. И большинство (если не все) ваших проблем возникают из-за того, что не соблюдаете простоты. У вас слишком много движущихся частей, слишком много уровней косвенности. Вы можете попытаться решить эту проблему, поработав над этим еще немного, и вы можете попытаться упростить свой подход.

Все, что вы делаете — создание строки HTML, запись ее в файл, копирование папок — можно выполнить в коде VBA. Я не вижу ничего, что потребовало бы PowerShell.

Для операций с файловой системой Scripting.FileSystemObject очень удобен, и следующий код использует его. Давайте сделаем это доступным, ссылаясь на библиотеку "Microsoft Scripting Runtime" через меню Tools References в VBA IDE.

Теперь у нас есть две основные операции: создание HTML из исходного документа и запись заданного текста в файл.

Dim FSO As New Scripting.FileSystemObject

Function CreateHtml(sourceDoc As Document) As String
    ' Creates HTML from the tables of the given document.
    Dim html As String, text As String

    ' ... build html from sourceDoc
    html = html & text

    CreateHtml = html
End Function

Sub WriteTextToFile(content As String, path As String, Optional fileName As String)
    ' Writes a string to a Unicode file. Target will be overwritten if it exists.
    Dim targetPath As String

    If fileName > "" Then
        targetPath = FSO.BuildPath(path, fileName)
    Else
        targetPath = path
    End If

    With FSO.CreateTextFile(fileName:=targetPath, overwrite:=True, unicode:=True)
        .Write content
    End With
End Sub

И теперь мы можем объединить их в Sub, который я назвал HtmlWorkflow, за неимением лучшего имени:

Sub HtmlWorkflow()
    Dim stringSplits As Variant, html as String

    stringSplits = Split("something", "delimiter")
    html = CreateHtml(sourceDoc:=ActiveDocument)

    WriteTextToFile _
        content:=html, _
        path:="Q:\OIT\Web Sites\This Site\Regulatory\Docketbk\" & stringSplits(1), _
        fileName:=FSO.GetBaseName(ActiveDocument.Name) & ".html" _

    FSO.CopyFolder _
        Source:="Q:\whatever\your\source\folder\path\is", _
        Destination:="\\whatever\your\destination\folder\path\is"
End Sub

Примечания:

• Я использую именованные параметры в своих вызовах функций - это может сохранить некоторые временные переменные и делает вещи в основном самодокументируемыми.
• _ в конце строки является символом продолжения строки VB. Его использование облегчает чтение длинных строк кода.
• Разделение на отдельные функции упрощает отладку и тестирование (теперь вы можете вызывать CreateHtml() для любого открытого документа, независимо от того, активен он или нет) и упрощает повторное использование (WriteTextToFile не важно, какой файл или какое содержимое) .
• Документация для FileSystemObject находится здесь: https://docs.microsoft.com/en-us/office/vba/language/reference/objects-visual-basic-for-applications