let sld = ActivePresentation.Slides
for(let i = 1; i <= sld.Count; i++){
    let sh = sld.Item(i).Shapes
    for(let x = 1; x <= sh.Count; x++){
        if(sh.Item(x).Type == msoLinkedOLEObject){
            if(sh.Item(x).OLEFormat.ProgID == "Word.Document"){
                sh.Item(x).LinkFormat.AutoUpdate = ppUpdateOptionManual
            }
        }
    }
}