Es sólo cuestión de pasarlo como parámetro al método Open:
Código Delphi
[-]
var
Word: OleVariant;
Document: OleVariant;
begin
Word := ComObj.CreateOleObject('Word.Application');
try
Document := Word.Documents.Open(
'c:\ruta\al\archivo.doc', null, null, null, 'elsantoyseña' );
Word.Visible := true;
except
Word.Quit;
end;
end;
Otras contraseñas, como la de guardar cambios (si está establecida) se pone en otros parámetros más adelante. Consulta la ayuda de
Visual Basic para
Word.
// Saludos