' Dana.das 中の Proc OnAfterOpen() に追加 if UCase(.FileType)="RUP" then FindFor("【書式】", "GMN")