let mySlide = ActivePresentation.Slides

for(let i = 1; i <= mySlide.Count; i++){
    let sh = mySlide.Item(i).Shapes

    for(let j = 1; j <= sh.Count; j++){
        if(sh.Item(j).Type == msoLinkedOLEObject){
            if(sh.Item(j).OLEFormat.ProgID == "Word.Document"){
                sh.Item(j).LinkFormat.AutoUpdate = ppUpdateOptionManual
            }
        }
    }
}