ð» Word ã«ãã¯ãã远å ããæ¹æ³ãVBA ã§èªååã

Wordã«ãã远å ããããšã§ãç¹°ãè¿ãã®äœæ¥ãèªååããå¹ççã«äœæ¥ãè¡ãããšãã§ããŸãããã®èšäºã§ã¯ãVBAïŒVisual Basic for ApplicationsïŒã䜿çšããŠWordã«ãã远å ããæ¹æ³ã詳ãã解説ããŸãããã®èšé²æ¹æ³ãããVBAãšãã£ã¿ã§ã®ã³ãŒãç·šéããããŠäœæãããã®å®è¡æ¹æ³ãŸã§ãã¹ããããã€ã¹ãããã§èª¬æããŸãããŸãããã䜿çšããäžã§æ³šæãã¹ãç¹ãã䟿å©ãªãµã³ãã«ã³ãŒãã玹ä»ããŸãã®ã§ãåå¿è ã®æ¹ã§ãå®å¿ããŠåãçµãããšãã§ããŸããWordã®æ©èœãæå€§éã«æŽ»çšããäœæ¥å¹çãåäžãããããã«ããã®èšäºãåèã«ããŠã¿ãŠãã ããã
- ãã¯ããèªåå®è¡ããã«ã¯ã©ããããããã§ããïŒ
- Excel2010ã§VBAãèµ·åããã«ã¯ã©ãããã°ããã§ããïŒ
- Wordã«ãã远å ããæ¹æ³ãVBAã§èªååã
- VBAã§ãã¯ããèªåå®è¡ããã«ã¯ã©ããããããã§ããïŒ
- Wordã®ãã¯ãã®è¿œå æ¹æ³ã¯ïŒ
- Wordã§ãã¯ããå®è¡ããã«ã¯ã©ãããã°ããã§ããïŒ
- ãã¯ããã¡ã€ã«ãèªåã§éãã«ã¯ïŒ
-
ãããã質å
- Wordã«ãã远å ããã«ã¯ã©ãããã°ããã§ããïŒ
- VBAãšãã£ã¿ã§Wordã®ããç·šéããã«ã¯ã©ãããã°ããã§ããïŒ
- Wordã®ãã§ææžã®èªåååŠçãè¡ãã«ã¯ã©ã®ãããªVBAã³ãŒããæžãã°ããã§ããïŒ
- Wordã®ãã§ãŠãŒã¶ãŒãã©ãŒã ãäœæããã«ã¯ã©ãããã°ããã§ããïŒ
ãã¯ããèªåå®è¡ããã«ã¯ã©ããããããã§ããïŒ

ããèªåå®è¡ããã«ã¯ãVisual Basic for ApplicationsïŒVBAïŒã®æ©èœã䜿çšããŸããå ·äœçã«ã¯ãã€ãã³ã ãã³ãã©ãŒãèšå®ããå¿ èŠããããŸããã€ãã³ã ãã³ãã©ãŒãšã¯ãç¹å®ã®ã€ãã³ããçºçãããšãã«èªåçã«å®è¡ããããã®ããšã§ãã
ã€ãã³ã ãã³ãã©ãŒã®èšå®æ¹æ³
ã€ãã³ã ãã³ãã©ãŒãèšå®ããã«ã¯ã以äžã®æé ã«åŸããŸãã
- Visual Basic EditorãéããŸããVisual Basic Editorã¯ãExcelã®ã¡ãã¥ãŒãããéçºãâãVisual BasicããŸãã¯ãAlt + F11ãããŒã§éãããšãã§ããŸãã
- ã¢ãžã¥ãŒã«ãäœæããŸããã¢ãžã¥ãŒã«ã¯ãVBAã®ã³ãŒããèšè¿°ããå Žæã§ããã¢ãžã¥ãŒã«ãäœæããã«ã¯ãVisual Basic Editorã®ãæ¿å ¥ãã¡ãã¥ãŒãããã¢ãžã¥ãŒã«ããéžæããŸãã
- ã€ãã³ã ãã³ãã©ãŒãèšè¿°ããŸããã€ãã³ã ãã³ãã©ãŒãèšè¿°ããã«ã¯ãã¢ãžã¥ãŒã«ã«ä»¥äžã®ãããªã³ãŒããèšè¿°ããŸãã
vb
Private Sub Workbook_Open() ' ããå®è¡ããã³ãŒããèšè¿°ããŸãã
End Sub
ãã®å®è¡æ¡ä»¶ã®èšå®
ãã®å®è¡æ¡ä»¶ãèšå®ããã«ã¯ã以äžã®æé ã«åŸããŸãã
- æ¡ä»¶ãèšå®ããŸããæ¡ä»¶ãèšå®ããã«ã¯ãã€ãã³ã ãã³ãã©ãŒã®ã³ãŒãå
ã«ä»¥äžã®ãããªã³ãŒããèšè¿°ããŸãã
vb
If æ¡ä»¶ Then ' ããå®è¡ããã³ãŒããèšè¿°ããŸãã
End If - æ¡ä»¶ã®çš®é¡ãéžæããŸããæ¡ä»¶ã®çš®é¡ã«ã¯ãå€ã®æ¯èŒãåŒã®è©äŸ¡ãªã©ããããŸããæ¡ä»¶ã®çš®é¡ãéžæããã«ã¯ãæ¡ä»¶ã®ã³ãŒãå
ã«ä»¥äžã®ãããªã³ãŒããèšè¿°ããŸãã
vb
If Range(A1).Value = æ¡ä»¶å€ Then ' ããå®è¡ããã³ãŒããèšè¿°ããŸãã
End If - æ¡ä»¶ã®çµã¿åãããèšå®ããŸããæ¡ä»¶ã®çµã¿åãããèšå®ããã«ã¯ãæ¡ä»¶ã®ã³ãŒãå
ã«ä»¥äžã®ãããªã³ãŒããèšè¿°ããŸãã
vb
If Range(A1).Value = æ¡ä»¶å€ And Range(B1).Value = æ¡ä»¶å€ Then ' ããå®è¡ããã³ãŒããèšè¿°ããŸãã
End If
ãã®å®è¡ãšã©ãŒã®ãã³ããªã³ã°
ãã®å®è¡ãšã©ãŒã®ãã³ããªã³ã°ãèšå®ããã«ã¯ã以äžã®æé ã«åŸããŸãã
- ãšã©ãŒ ãã³ãã©ãŒãèšå®ããŸãããšã©ãŒ ãã³ãã©ãŒãèšå®ããã«ã¯ãã€ãã³ã ãã³ãã©ãŒã®ã³ãŒãå
ã«ä»¥äžã®ãããªã³ãŒããèšè¿°ããŸãã
vb
On Error GoTo ãšã©ãŒåŠç - ãšã©ãŒåŠçãèšè¿°ããŸãããšã©ãŒåŠçãèšè¿°ããã«ã¯ããšã©ãŒ ãã³ãã©ãŒã®ã³ãŒãå
ã«ä»¥äžã®ãããªã³ãŒããèšè¿°ããŸãã
vb
ãšã©ãŒåŠç: ' ãšã©ãŒãåŠçããã³ãŒããèšè¿°ããŸãã - ãšã©ãŒã®çš®é¡ãéžæããŸãããšã©ãŒã®çš®é¡ã«ã¯ãå®è¡æãšã©ãŒãã·ã³ã¿ãã¯ã¹ ãšã©ãŒãªã©ããããŸãããšã©ãŒã®çš®é¡ãéžæããã«ã¯ããšã©ãŒ ãã³ãã©ãŒã®ã³ãŒãå
ã«ä»¥äžã®ãããªã³ãŒããèšè¿°ããŸãã
vb
On Error GoTo ãšã©ãŒåŠç ' å®è¡æãšã©ãŒãåŠçããã³ãŒããèšè¿°ããŸãã
Excel2010ã§VBAãèµ·åããã«ã¯ã©ãããã°ããã§ããïŒ

Excel 2010 ã§ VBA ãèµ·åããã«ã¯ã以äžã®æé ãå®è¡ããŸãã éçºã¿ãã衚瀺ããã«ã¯ããã¡ã€ã«ã¡ãã¥ãŒã®ããªãã·ã§ã³ããã¯ãªãã¯ããããªãã³ãã«ã¹ã¿ãã€ãºããããéžæããŸããæ¬¡ã«ããéçºããã§ãã¯ããã¯ã¹ããªã³ã«ããŠããOKããã¯ãªãã¯ããŸãã ããã§ãéçºã¿ãã衚瀺ãããŸãããã®ã¿ãã®ãVisual Basicããã¯ãªãã¯ãããšãVBA ãšãã£ã¿ãŒãèµ·åããŸãã
éçºã¿ãã衚瀺ããæ¹æ³
éçºã¿ãã衚瀺ããã«ã¯ã以äžã®æé ãå®è¡ããŸãã
- ãã¡ã€ã«ã¡ãã¥ãŒã®ããªãã·ã§ã³ããã¯ãªãã¯ããŸãã
- ããªãã³ãã«ã¹ã¿ãã€ãºããããéžæããŸãã
- ãéçºããã§ãã¯ããã¯ã¹ããªã³ã«ããŠããOKããã¯ãªãã¯ããŸãã
VBA ãšãã£ã¿ãŒãèµ·åããæ¹æ³
VBA ãšãã£ã¿ãŒãèµ·åããã«ã¯ã以äžã®æé ãå®è¡ããŸãã
- éçºã¿ãã®ãVisual Basicããã¯ãªãã¯ããŸãã
- VBA ãããžã§ã¯ããšã¯ã¹ãããŒã©ãŒã衚瀺ãããŸãã
- ã¢ãžã¥ãŒã«ããã©ãŒã ã远å ããŠãVBA ã³ãŒããèšè¿°ã§ããŸãã
VBA ã®ã»ãã¥ãªãã£èšå®ã倿Žããæ¹æ³
VBA ã®ã»ãã¥ãªãã£èšå®ã倿Žããã«ã¯ã以äžã®æé ãå®è¡ããŸãã
- ãã¡ã€ã«ã¡ãã¥ãŒã®ããªãã·ã§ã³ããã¯ãªãã¯ããŸãã
- ãã»ãã¥ãªãã£ã»ã³ã¿ãŒããéžæããŸãã
- ããã®èšå®ããã¯ãªãã¯ããã»ãã¥ãªãã£ã¬ãã«ã倿ŽããŸãã
Wordã«ãã远å ããæ¹æ³ãVBAã§èªååã
ãã䜿çšãããšãMicrosoft Wordã§ç¹°ãè¿ãè¡ãäœæ¥ãèªååã§ããŸããVBAïŒVisual Basic for ApplicationsïŒã䜿çšããŠç¬èªã®ããäœæããäœæ¥ãå¹çåããããšãã§ããŸããããã§ã¯ãWordã«ãã远å ããæ¹æ³ã詳ãã説æããŸãã
ãã®èšé²æ¹æ³
Wordã§ã¯ããã®èšé²ãéå§ããŠãæäœãå®è¡ããèšé²ã忢ããããšã§ãããäœæã§ããŸãã
- éçºã¿ãããããã®èšé²ããã¯ãªãã¯ããŸãã
- ãã®ååãä»ããä¿åå ãéžæããŠãOKããã¯ãªãã¯ããŸãã
- èšé²ãéå§ããèªååãããæäœãè¡ããŸãã
- æäœãçµãã£ãããããã®èšé²çµäºããã¯ãªãã¯ããŸãã
VBAãšãã£ã¿ãŒã§ããç·šéããæ¹æ³
èšé²ããããVBAãšãã£ã¿ãŒã§ç·šéããããè€éãªåŠçã远å ã§ããŸãã
- éçºã¿ããããVBAãšãã£ã¿ãŒããéããŸãã
- Normalãããžã§ã¯ãã®Modulesãã©ã«ãã«ããããæ¢ããŠããã«ã¯ãªãã¯ããŸãã
- VBAã³ãŒããç·šéãã倿Žãä¿åããŸãã
ãã®å®è¡æ¹æ³
äœæãããã¯ã以äžã®æ¹æ³ã§å®è¡ã§ããŸãã
- éçºã¿ãããããããã¯ãªãã¯ããŸãã
- å®è¡ãããããéžæããŠãå®è¡ããã¯ãªãã¯ããŸãã
ãã®å²ãåœãŠæ¹æ³
ãããªãã³ãã·ã§ãŒãã«ããããŒã«å²ãåœãŠãããšã§ãããæè»œã«å®è¡ã§ããããã«ãªããŸãã
- ãªãã·ã§ã³ã®ããªãã³ã®ã«ã¹ã¿ãã€ãºãããããéžæãããªãã³ã«è¿œå ããŸãã
- ã·ã§ãŒãã«ããããŒã®å²ãåœãŠãè¡ãã«ã¯ããããŒããŒãã®ã«ã¹ã¿ãã€ãºãããããéžæããããŒãå²ãåœãŠãŸãã
ãã®ã»ãã¥ãªãã£èšå®
ãã¯åŒ·åãªæ©èœã§ãããæªæã®ããã³ãŒããå®è¡ããããªã¹ã¯ããããŸããWordã®ãã»ãã¥ãªãã£èšå®ãé©åã«èšå®ããŠããããšãéèŠã§ãã
- ã»ãã¥ãªãã£ã»ã³ã¿ãŒã®ããã®èšå®ããããé©åãªã»ãã¥ãªãã£ã¬ãã«ãéžæããŸãã
- ä¿¡é Œã§ãããã®ã¿ãå®è¡ããããã«èšå®ããŸãã
| é ç® | 説æ |
|---|---|
| ãã®èšé² | æäœãèšé²ããããäœæããŸãã |
| VBAãšãã£ã¿ãŒ | ãã®ã³ãŒããç·šéããè€éãªåŠçã远å ããŸãã |
| ãã®å®è¡ | äœæããããå®è¡ããŸãã |
| ãã®å²ãåœãŠ | ãªãã³ãã·ã§ãŒãã«ããããŒã«ããå²ãåœãŠãŸãã |
| ãã®ã»ãã¥ãªãã£èšå® | ãã®ã»ãã¥ãªãã£ã¬ãã«ãèšå®ããå®å šã«äœ¿çšããŸãã |
VBAã§ãã¯ããèªåå®è¡ããã«ã¯ã©ããããããã§ããïŒ

VBAã§ããèªåå®è¡ããæ¹æ³ã¯ä»¥äžã®éãã§ãã
ã¯ãŒã¯ã·ãŒãã€ãã³ãã䜿çšãã
ã¯ãŒã¯ã·ãŒãã€ãã³ããå©çšããŠãç¹å®ã®ã€ãã³ããçºçãããšãã«ããèªåå®è¡ããããšãã§ããŸããããšãã°ãã»ã«ã«å€ãå ¥åããããšãããã¯ãŒã¯ã·ãŒããã¢ã¯ãã£ãã«ãªã£ããšããªã©ã«ããå®è¡ã§ããŸãã
- ã³ãŒãã远å ããã¯ãŒã¯ã·ãŒããå³ã¯ãªãã¯ããã³ãŒãã®è¡šç€ºãéžæããŸãã
- ã³ãŒããŠã£ã³ããŠã«ãã€ãã³ãåãšãåãå ¥åããŸããäŸ: Private Sub Worksheet_Change(ByVal Target As Range)
- ãã®åŠçå 容ãèšè¿°ããŸãã
ã¿ã€ããŒã䜿çšãã
Application.OnTimeã¡ãœããã䜿çšããŠãæå®ããæéã«ããèªåå®è¡ããããšãã§ããŸããäžå®ééã§ç¹°ãè¿ãå®è¡ãããããšãå¯èœã§ãã
- ãã®æåã«ã次åã®å®è¡æå»ãæå®ããŠApplication.OnTimeãåŒã³åºããŸããäŸ: Application.OnTime Now + TimeValue(00:01:00), ãå
- ãã®åŠçå 容ãèšè¿°ããŸãã
- ãã®æåŸã«ã次åã®å®è¡ãã¹ã±ãžã¥ãŒã«ããŸãã
ã¯ãŒã¯ããã¯ã®ééæã«å®è¡ãã
ã¯ãŒã¯ããã¯ã®ã€ãã³ããå©çšããŠãã¯ãŒã¯ããã¯ãéãããšããéãããšãã«ããèªåå®è¡ã§ããŸãã
- ã¯ãŒã¯ããã¯å šäœã«é©çšãããããThisWorkbookã³ãŒããŠã£ã³ããŠãéããŸãã
- ã€ãã³ãåãšãåãå ¥åããŸããäŸ: Private Sub Workbook_Open() ãŸã㯠Private Sub Workbook_BeforeClose(Cancel As Boolean)
- ãã®åŠçå 容ãèšè¿°ããŸãã
Wordã®ãã¯ãã®è¿œå æ¹æ³ã¯ïŒ

Wordã§ãã远å ããæ¹æ³ã¯ä»¥äžã®éãã§ãã
ãã®é²ç»
Wordã§ã¯ãæäœãèšé²ããŠããäœæããããšãã§ããŸããããã¯ããã®ãé²ç»ããšåŒã°ããŸãã
- ãŸããã衚瀺ãã¿ãã«ããããããã¯ãªãã¯ããŸãã
- 次ã«ãããã®é²ç»ããéžæããŸãã
- ãã®ååãä»ãããOKããã¯ãªãã¯ããŠé²ç»ãéå§ããŸãã
- è¡ãããæäœãè¡ããŸãããããã®æäœãèšé²ãããŸãã
- æäœãçµãã£ãããå床ããããã¯ãªãã¯ãããé²ç»ã®åæ¢ããéžæããŸãã
ãã®å®è¡
é²ç»ãããã¯ã以äžã®æé ã§å®è¡ã§ããŸãã
- ã衚瀺ãã¿ãã®ããããã¯ãªãã¯ããŸãã
- ããã®è¡šç€ºããéžæããŸãã
- å®è¡ãããããéžæãããå®è¡ããã¯ãªãã¯ããŸãã
ãã®ç·šé
ããç·šéããã«ã¯ã以äžã®æé ã«åŸããŸãã
- ã衚瀺ãã¿ãã®ããããã¯ãªãã¯ããŸãã
- ããã®è¡šç€ºããéžæããŸãã
- ç·šéãããããéžæãããç·šéããã¯ãªãã¯ããŸãã
- Visual Basic Editorãéãããã®ã§ãããã§ãã®ã³ãŒããç·šéã§ããŸãã
Wordã§ãã¯ããå®è¡ããã«ã¯ã©ãããã°ããã§ããïŒ

Wordã§ããå®è¡ããã«ã¯ã以äžã®æé ã«åŸã£ãŠãã ããã
ãã®æå¹å
Wordã§ããå®è¡ããåã«ãããæå¹ã«ãªã£ãŠããããšã確èªããŠãã ãããããæå¹ã«ããã«ã¯ã以äžã®æé ãå®è¡ããŸãã
- Wordãéãã[ãã¡ã€ã«]ã¡ãã¥ãŒãéããŸãã
- [ãªãã·ã§ã³]ãã¯ãªãã¯ããŸãã
- [ã»ãã¥ãªãã£ã»ã³ã¿ãŒ]ãã¯ãªãã¯ãã[ã»ãã¥ãªãã£ã»ã³ã¿ãŒã®èšå®]ãã¿ã³ãã¯ãªãã¯ããŸãã
- [ãã®èšå®]ã»ã¯ã·ã§ã³ã§ã[ãã¹ãŠã®ããæå¹ã«ãã]ãéžæããŸãã
ãã®å®è¡
ããå®è¡ããã«ã¯ã以äžã®æé ãå®è¡ããŸãã
- [衚瀺]ã¡ãã¥ãŒãéãã[ã]ãã¯ãªãã¯ããŸãã
- å®è¡ããããéžæãã[å®è¡]ãã¿ã³ãã¯ãªãã¯ããŸãã
ãã®å²ãåœãŠ
ããããŒããŒãã·ã§ãŒãã«ããããªãã³ã«å²ãåœãŠãããšã§ãããå¹ççã«ããå®è¡ã§ããŸãã
- [ãã¡ã€ã«]ã¡ãã¥ãŒãéãã[ãªãã·ã§ã³]ãã¯ãªãã¯ããŸãã
- [ã«ã¹ã¿ãã€ãº]ãã¯ãªãã¯ãã[ããŒããŒãã·ã§ãŒãã«ããã®ã«ã¹ã¿ãã€ãº]ãã¿ã³ãã¯ãªãã¯ããŸãã
- [ã«ããŽãª]ã§[ã]ãéžæããå²ãåœãŠãããéžæããŸãã
- [æ°ããã·ã§ãŒãã«ããããŒ]ããã¯ã¹ã«ã·ã§ãŒãã«ããããŒãå ¥åãã[å²ãåœãŠ]ãã¿ã³ãã¯ãªãã¯ããŸãã
ãã¯ããã¡ã€ã«ãèªåã§éãã«ã¯ïŒ

ããã¡ã€ã«ãèªåã§éãæ¹æ³ã«ã¯ä»¥äžã®ãããªãã®ããããŸãã
ããèªåå®è¡ããæ¹æ³
ããã¡ã€ã«ãèªåã§éãããã«ã¯ããŸãããèªåå®è¡ããèšå®ãè¡ãå¿ èŠããããŸããããã¯ãExcelã®ãªãã·ã§ã³èšå®ããè¡ãããšãã§ããŸãã
- Excelãéãããã¡ã€ã«ã¡ãã¥ãŒãããªãã·ã§ã³ãã¯ãªãã¯ããŸãã
- ã»ãã¥ãªãã£ã»ã³ã¿ãŒãã¯ãªãã¯ããã»ãã¥ãªãã£ã»ã³ã¿ãŒã®èšå®ãã¿ã³ãã¯ãªãã¯ããŸãã
- ãã®èšå®ã§ããã¹ãŠã®ããæå¹ã«ãããéžæããŸãã
ã¯ãŒã¯ã·ãŒããéããããšãã«ããå®è¡ãã
ã¯ãŒã¯ã·ãŒããéããããšãã«ããèªåçã«å®è¡ããããã«ã¯ãWorkbook_Openã€ãã³ãã䜿çšããŸããããã¯ãVBAãšãã£ã¿ã§ä»¥äžã®æé ãè¡ããŸãã
- ç®çã®ã¯ãŒã¯ããã¯ãéãã éçºã¿ãããVBAãšãã£ã¿ãéããŸãã
- ThisWorkbookã¢ãžã¥ãŒã«ãéããWorkbook_Openã€ãã³ãã远å ããŸãã
- èªåå®è¡ããããã®ååãWorkbook_Openã€ãã³ãå ã«èšè¿°ããŸãã
ã·ã§ãŒãã«ããããŒã䜿çšããŠããå®è¡ãã
ãã«ã·ã§ãŒãã«ããããŒãå²ãåœãŠããšãããéããã«å®è¡ããããšãã§ããŸãããã®èšå®ã¯ã以äžã®æé ã§è¡ããŸãã
- ããèšé²ãŸãã¯äœæãããã®è¡šç€ºããç®çã®ããéžæããŸãã
- ãªãã·ã§ã³ãã¿ã³ãã¯ãªãã¯ããã·ã§ãŒãã«ããããŒãã£ãŒã«ãã«ä»»æã®ããŒãå ¥åããŸãã
- OKãã¿ã³ãã¯ãªãã¯ããŠèšå®ã確å®ããŸãã
ãããã質å
Wordã«ãã远å ããã«ã¯ã©ãããã°ããã§ããïŒ
Wordã«ãã远å ããã«ã¯ãVisual Basic for ApplicationsïŒVBAïŒã䜿çšããŸãããŸããWordã§ãéçºãã¿ããéããããã®èšé²ããã¿ã³ãã¯ãªãã¯ããŠãä»»æã®ååã§ããæ°èŠäœæããŸãããã®åŸããã®ã³ãŒããç·šéããããã«ãVBAãšãã£ã¿ããéããå¿ èŠãªåŠçãèšè¿°ããŸããäŸãã°ãææžå ã§ç¹å®ã®åèªãèªåçã«çœ®æããããæžãããšãã§ããŸãããã®èšé²ãçµäºããããããã®å®è¡ããã¿ã³ã§äœæããããå®è¡ã§ããŸãã
VBAãšãã£ã¿ã§Wordã®ããç·šéããã«ã¯ã©ãããã°ããã§ããïŒ
VBAãšãã£ã¿ã§Wordã®ããç·šéããã«ã¯ããŸã Word ã§ãéçºãã¿ããéãããVBAãšãã£ã¿ããã¿ã³ãã¯ãªãã¯ããŸããVBAãšãã£ã¿ãéãããããããžã§ã¯ããšã¯ã¹ãããŒã©ã§ç·šéãããããå«ãŸããææžãéžæããã³ãŒããŠã£ã³ããŠã§ãã®ã³ãŒããç·šéããŸããäŸãã°ãæ°ããææžãäœæããŠèªåçã«ç¹å®ã®ããã¹ããæ¿å ¥ããããç·šéããå ŽåãSelection.TypeTextã¡ãœããã䜿çšããŠããã¹ããæ¿å ¥ã§ããŸããç·šéãçµãã£ãããVBAãšãã£ã¿ãéããŠWordã§ããå®è¡ããŸãã
Wordã®ãã§ææžã®èªåååŠçãè¡ãã«ã¯ã©ã®ãããªVBAã³ãŒããæžãã°ããã§ããïŒ
Wordã®ãã§ææžã®èªåååŠçãè¡ãã«ã¯ãVBAã§ä»¥äžã®ãããªã³ãŒããæžããŸããããšãã°ãææžå ã®ç¹å®ã®åèªãå¥ã®åèªã«çœ®æããããæžãå ŽåãWithã¹ããŒãã¡ã³ãã§Selection.Findãªããžã§ã¯ãã䜿çšããŠã眮æåã®åèªãæ€çŽ¢ããReplacement.Textããããã£ã§çœ®æåŸã®åèªãæå®ããŸãããããŠãReplaceã¡ãœãããåŒã³åºããŠçœ®æãå®è¡ããŸãããŸããã«ãŒãåŠçã䜿çšããŠãææžå šäœã§çœ®æãç¹°ãè¿ãããšãã§ããŸãã
Wordã®ãã§ãŠãŒã¶ãŒãã©ãŒã ãäœæããã«ã¯ã©ãããã°ããã§ããïŒ
Wordã®ãã§ãŠãŒã¶ãŒãã©ãŒã ãäœæããã«ã¯ãVBAãšãã£ã¿ã§æ¿å ¥ã¡ãã¥ãŒãããŠãŒã¶ãŒãã©ãŒã ãéžæããŸãããã®åŸãããŒã«ããã¯ã¹ãããã©ãŒã ã«å¿ èŠãªã³ã³ãããŒã«ïŒãã¿ã³ãããã¹ãããã¯ã¹ãã©ãã«ãªã©ïŒããã©ãã°ïŒããããã§è¿œå ããããããã®èšå®ãè¡ããŸãããŸããã³ãŒããŠã£ã³ããŠã§åã³ã³ãããŒã«ã®ã€ãã³ãåŠçãèšè¿°ããŸããäŸãã°ããã¿ã³ã®Clickã€ãã³ãã«ããã©ãŒã ã®å ¥åå€ãå ã«ææžã®å 容ã倿ŽããåŠçãèšè¿°ã§ããŸãããŠãŒã¶ãŒãã©ãŒã ã䜿çšããããšã§ãWordã®ããããã€ã³ã¿ã©ã¯ãã£ãã«ã§ããŸãã
ð» Word ã«ãã¯ãã远å ããæ¹æ³ãVBA ã§èªååã ã«é¡äŒŒããä»ã®èšäºãç¥ãããå Žåã¯ãWord åºæ¬æäœ ã«ããŽãªã«ã¢ã¯ã»ã¹ããŠãã ããã
ã³ã¡ã³ããæ®ã

é¢é£èšäº