½Ð±Ð¦p¦óCLOSE WORD

198188

1. Public Function T_S_Cvt(strData, bytOption) As String
   
2. With wrdApp
   
3. .Content = strData
   
4.   .Range.TCSCConverter bytOption, True, True
   
5. T_S_Cvt = .Content
   
6. End With
   
7. End Function

½Æ»s¥N½X

³o­ÓVBA·|²£¥Í¤@­ÓWORDÀÉ¡A½Ð°Ý¦p¦ó§¹¦¨«á¦Û°Êclose word ÀÉ¡A¥H¤Î¦Û¤v¿ï¾Ü¤£Àx¦s

GBKEE

¦^´_ 1# 198188

1. With CreateObject("Word.Application")
   
2.     .Visible = True
   
3.     .Quit  
   
4. End With

½Æ»s¥N½X