//=============================================================================
//  保護されているワード文書の操作
//  一度解除してから操作コードを実行する
//=============================================================================
procedure TplWordFormEx2.Button2Click(Sender: TObject);
var
  NoReset  : OleVariant;
  PassWord : OleVariant;
begin
  NoReset  := False;
  PassWord := '';

  //文書が保護されていたら解除
  if wdfWordDoc.ProtectionType <> wdNoProtection then begin
    wdfWordDoc.Unprotect(PassWord);
  end;

  //文書に対する各種操作;
  DratText;

  //操作が終了したらまた保護してしまう
  wdfWordDoc.Protect(wdAllowOnlyFormFields, NoReset, PassWord);
end;