>・入力フォーム<INPUT>タグだけでなく<TEXTAREA>タグでも > 除外させることは可能でしょうか 下記のように書き替えればOKです。 vbscript:if (ActiveDocWin.ActiveFrameDocument.activeElement.tagName <> "INPUT") and (ActiveDocWin.ActiveFrameDocument.activeElement.tagName <> "TEXTAREA") then ActiveDocWin.ScrollPageDown() end if