Contraseña en word

[roman]

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'); // incluir unidad ComObj

  try
    Document := Word.Documents.Open(
      'c:\ruta\al\archivo.doc', // archivo que se va a abrir
      null,                     // irrelevante, nos lo saltamos
      null,                     // irrelevante, nos lo saltamos
      null,                     // irrelevante, nos lo saltamos
      'elsantoyseña'            // contraseña para abrir el documento
    );

    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