как из Autoit передать VBA в word

#include <Word.au3>
#include <Array.au3>
#include <File.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>
#include <Excel.au3>


$sDocument = "C:\Users\Worldshade\Desktop\Autoit\Pechatb\WOR.doc"
$oWord = _Word_Create(True)
$oDocument = $oWord.Documents.Open($sDocument)

With $oWord
	       .Selection.WholeStory
		   .Selection.Font.Size = 4.5
EndWith

#include <Word.au3>
#include <Array.au3>
#include <File.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>
#include <Excel.au3>


$sDocument = "C:\Users\Worldshade\Desktop\Autoit\Pechatb\WOR.doc"
$oWord = _Word_Create(True)
$oDocument = $oWord.Documents.Open($sDocument)








 With $oWord.PageSetup
		.ActiveDocument
        .LineNumbering.Active = False
        .Orientation = wdOrientLandscape
 EndWith

Func wdOrientLandscape()
return 1
EndFunc

.Orientation = wdOrientLandscape()

func CentimetersToPoints($x)
Return $x*1; Узнайте формулу перерасчета
EndFunc

Local $par, $dl = False
Local $ActiveDocument = $oWord.ActiveDocument ;Тут я хз как получить, пробуй сам

For $prg In $ActiveDocument.Paragraphs
   If StringInStr($prg.Range.Text, 'Глава Б.') Then
	  $dl = True
   EndIf

   If StringInStr($prg.Range.Text, 'Глава В.') Then
	  $par = $prg.Previous
	  $par.Range.Delete
	  $dl = False
   EndIf

   If StringInStr($prg.Range.Text, 'Глава Г.') Then
	  $dl = True
   EndIf

   If $dl = True Then
	  $prg.Range.Delete
   EndIf
Next

$par = $ActiveDocument.Paragraphs($ActiveDocument.Paragraphs.Count).Previous
$par.Range.Select
$oWord.Selection.TypeBackspace