Я работаю над проектом, целью которого является показать, как запустить макрос в Microsoft Office с помощью внешнего файла vbscript. Я пробовал отдельно и не смог в нем найти несколько сообщений здесь, все склонялись к Excel, чем Office. Имею трудности с тем, чтобы эти примеры работали над Office.Запуск макроса Microsoft VBA с VB-скриптом
Это относится к Excel - но этапы и процедуры идентичны в Word. Я бы поискал и заменил Word for Excel, но образцы кода не имели бы смысла.
Запишите шаги в макрорекордере excel. Вы должны переписать его немного, потому что он использует тип синтаксиса, который нет в vbs.
Это применимо (у меня нет medium9) xlRangeAutoFormatAccounting4 в vba.
Selection.AutoFormat Format:=xlRangeAutoFormatAccounting4, Number:=True, _
Font:=True, Alignment:=True, Border:=True, Pattern:=True, Width:=True
Итак, сначала найдите константы в браузере объектов vba. xlRangeAutoFormatAccounting4 = 17
Затем посмотрите функцию в браузере объектов и посмотрите на нижнюю часть определения функции.
Function AutoFormat([Format As XlRangeAutoFormat = xlRangeAutoFormatClassic1], [Number], [Font], [Alignment], [Border], [Pattern], [Width])
Так УВА становится в VBS (и VBS работает в VBA) (и, как вы можете видеть, вы можете работать правильный путь без необходимости искать функцию вверх обычно)
Selection.AutoFormat 17, True, True, True,True, True, True
Так ваш код будет
objXLWs.Range("A3").CurrentRegion.Select.AutoFormat 17, True, True, True,True, True, True
Вы используете Excel, и вы можете записать его в Excel и написать в Excel свой код.
Alt + T, M, R
затем домашний ключ, то стрелка вверх. Остановите запись.
Посмотрите, что Excel написал
Selection.End(xlUp).Select
или если вы имели записанных Go To диалогового
Application.Goto Reference:="R1C1"
или если вы имели регистрируемого Ctrl + Home
Range("A1").Select