2012-10-24 MicrosoftWordの両面印刷に挑戦中(未完成) sub ryomen() Set myRtn = application.dialogs(88) sendkeys("%P") application.dialogs(88).show end sub