�����[�h�����P�ŃV���[�e�B���O�Q�[���͍쐬�\����
VBA�A�N�V�����Q�[���H |
�����͐V���IVBA�̏I���`Word�œ�������!�ւ悤�����I���[�h�̓A�N�V�����Q�[���쐬�ɕs�����H�E�E�E�����炭�B �J�[�\���������e�L�X�g�\���A�}���폜�ŏ����ւ���B�J����VBA������Ȃ����Ă郏�[�h�����ǁA Word��œ��������ƂɈӋ`������Ƃ͌�����Ȃ��B |
���cVBA�A�N�V�����Q�[���HExcel�œ��������I�͂�����
since�@2004/6/12�@�����N�t���[ ���v |
�}�C�N���\�t�g�Ђ̃��[�v���\�t�g�uWord�v�̕������VBA�}�N�����g�p���A�N�V�����Q�[��������Ă݂܂��B�肵�� |
�@ |
���[�h�����P�ŃV���[�e�B���O�Q�[���͍쐬�\�� |
�P�@���āA�ǂ������𒅂��悤�� �@Word�}�N���Ȃg�������ƂȂ����A�ł����v�B�}�N���L�^�����邩��˂��B���̂ւ�VBA�̑f���炵���Ƃ���ł����āA�Ƃɂ���������L�^�ł���������Ώ����Ƃ����B�����}�j���A���ǂޕK�v���Ȃ�����B�����Ō��߂��B���ȏ��̓}�N���L�^�̂݁BVBA�̑f���炵����̊����邽�߂ɂ��w���v����،���Word�ŃA�N�V�����Q�[�������A���Ƃɂ��܂��B �Q�@�ǂ�ȃQ�[���ɂ���H �ŏ����猃�����͖̂����ł��傤�˂��B�����Word�炵���e�L�X�g�x�[�X�̊ȒP�ȃV���[�e�B���O�Q�[������낤�B���@���G���e���e�L�X�g�ŁB����Excel�e�L�X�g�Q�[������u�����C���x�[�_�[�v�̊ȈՔł̃C���[�W�B�����^�C�s���O�Q�[���z�z�ŗL���ȔL�G�N�J������I���W�i��Excel�ł͂������B �@�@�@�@�� �@�@�@�@�� �@�@�@�@�@�@�� �R�@�����A���n�߂悤 �e�ɂ��p�ɂ��}�N���L�^���B�ǂ��������e�L�X�g��\�������邱�Ƃ��ł���̂��z��������B�܂��̓}�N���L�^�̊J�n���A �ȏ�A�K�v�R�[�h�܂Ƃ� �I���ړ��i���������j �L�����N�^�[�i�����j�\���E�폜 �S�@�Q�[���̎d�l�����߂Ă݂� �Q�[���̃t�B�[���h�͔��p�R�O�����~�P�P�s �T�@�Q�[���̃R�[�h�I������@ ���ꂪ��ԑ厖�ȂƂ���B�g����X�e�[�g�����g���Q�[��������@���l���Ă݂�B���@�̈ړ��́A�E�ړ������@�̍��ɋ}���A���ړ������@�̍��ŋ폜�A�łǂ����B�G�����E�ړ��͂���ł��������B�e�͏������Ȃ��Ⴞ�߂��������A���������炷���ɋ�}�����Ƃ����炢�������B���炩���ߔ��p�X�y�[�X���R�O�����~�P�P�s�~���l�߂Ă�������A���W�w����ȒP�������B���̒��ŃC���[�W���Ă݂�B����A���������B �U�@�L�[���͎擾�́H �����ŁA�ӂ��ƕs�����悬��B���@�̑���ɕK�v�ȃL�[���͂́B�`�o�h��GetAsyncKeyState���g���邾�낤���E�E�E�B�g�����B���������S�z�������̖�����u�ʼn����B���Ⴀ�����A���x�����ɕK�v�Ȃ`�o�hGetTickCount�����v�ł��傤�B �V�@�ł́A�R�[�f�B���O�̑O�ɁA�v���O�����̗���� �����͂��̉ߒ����R�[�f�B���O�Ȃ̂ł����A����͊���Ȃ�Word�}�N���Ƃ������ƂŁB ��GAMESTART �W�@���悢��R�[�f�B���O �����ƁA���̑O�Ƀ}�N���L�^������Ȃ������B �Q�[���J�n���̏����A�S�I���A�S���� HOME�|�W�V�����ֈړ� �Ƃ������Ƃʼn��߂ăR�[�f�B���O�J�n�E�E�E�E �X�@�����āA���� �����P�V���[�e�B���OVer�P�D�O�O�̃_�E�����[�h VBA�R�[�h��HTML���ɂ́ABykin������uVBA�R�[�hHTML�ϊ��v���g�p�����Ă��������Ă܂��B |
'************************************************************ '�����P�V���[�e�B���O�@Ver1.00 '�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@2004/6/12 By�@N.Chikada 'http://www1.plala.or.jp/chikada/ '************************************************************ OptionExplicit DeclareFunctionGetTickCount</font>Lib"kernel32"()</font>AsLong </font>'Windows�N����o�ߎ��Ԏ擾API DeclareFunctionGetAsyncKeyState</font>Lib"User32.dll"(ByValvKey</font>AsInteger)</font>AsLong DeclareFunctionPlaySound</font>Lib"winmm.dll"</font>Alias"PlaySoundA"_ (ByVallpszName</font>AsString,</font>ByValhModule</font>AsLong,</font>ByValdwFlags</font>AsLong)</font>AsLong ConstVK_LEFT</font>AsLong=&H25 ConstVK_RIGHT</font>AsLong=&H27 ConstVK_Z</font>AsLong=&H90
|
�P�O�@����Ă݂Ċ��z �R�[�h�ASelection���炯�ł��ˁB�J�[�\���������ɕ������������������@����̂ł��傤���B�x�ɓ����J�[�\���Ń`�J�`�J�����Ⴄ���B ����A�uWord�̕\�ŃZ���x�[�_�[�v�ɂ������҉������i�R�j |