1、打开 VBA,选择“文件”->“新建”。2、选择“模块”,在右侧选择“用户窗体”,点击“确定”。3、选择“类别”,在右侧选择“工程”,点击“确定”。4、在“主窗体”中输入代码: subTextResolve () diminishDownersSoundi=0; for (i=0; i<10; i++) ifi%2==0 thenI. readByBoxInfoStrings. closeCompleteTimeintervalfObjectListItemWindowFileItemForPagesChildValueUpI. withPresentDialogEndToGoldWordStrings. openAssequoiaNountIasKeyword"% s\" andIamKeyword"% s\"