c_c_lai

¦^´_ 1# 198188
¦^´_ 2# stillfish00
®M¥Î stillfish00 ¤j¤jªºµ{¦¡½X¡G

1. Dim wrdApp As Object
   
2. 
   
3. Sub Test()
   
4.     Dim s1 As String, s2 As String
   
5.   
   
6.     Set wrdApp = CreateObject("Word.Document")
   
7.     Application.ScreenUpdating = False
   
8.    
   
9.     s1 = "µo²¼ª÷ÃB¡GUSD" & Worksheets("Oracle").Cells(i, 18).Value
   
10.     s2 = "               ¥Øªº´ä¡G" & Worksheets("Oracle").Cells(i, 26).Value
    
11.     s = s1 & "          ½c¼Æ:" & Worksheets("Oracle").Cells(i, 41).Value & "               Âd¸¹:" & Split(Worksheets("Oracle").Cells(i, 42).Value, "/")(0) & s2
    
12.   
    
13.     With Worksheets(customer).Cells(cnt, 10)
    
14.         .Value = s
    
15.         .Characters(InStr(s, s1), Len(s1)).Font.Color = vbRed
    
16.         .Characters(InStr(s, s2), Len(s2)).Font.Color = vbBlue
    
17.    
    
18.         ' 1 ÁcÂಠ 0 ²ÂàÁc
    
19.         .Value = T_S_Cvt(.Value, 1)
    
20.     End With
    
21.    
    
22.     Application.ScreenUpdating = True
    
23.     wrdApp.Close False
    
24. End Sub
    
25. 
    
26. Public Function T_S_Cvt(strData, bytOption) As String
    
27.     With wrdApp
    
28.         .Content = strData
    
29.         ' ½Õ¥Î Word TCSCConverter ¤èªk¨ÓÂà´«Ác²Åé
    
30.         .Range.TCSCConverter bytOption, True, True
    
31.         T_S_Cvt = .Content
    
32.     End With
    
33. End Function

½Æ»s¥N½X

c_c_lai

¦^´_ 4# 198188
¦b§A¥Ø«eªºµ{¦¡½X¬Ý¨Ó¡A¤£¥X¿ù¤~©Ç¡I
½Ð¥J²Ó¬Ý¬Ý½d¨Ò¡A°ÝÃD¥X¦b­þ¸Ì¡H
§A©I¥sªºª«¥ó®Ú¥»¤£¦s¦b°Ú¡C

c_c_lai

¦^´_ 4# 198188
·Q·QÁÙ¬Oª½±µµ¹§Aµª®×§a¡I
¬°¤F­n³B²z¡yÂà²Åé¦r©ÎªÌÁcÅé¦r¡z¡A§Ú­Ì¤Þ¥Î¤F
Word ªºª«¥ó¡G

1. Set wrdApp = CreateObject("Word.Document")

½Æ»s¥N½X

¦ý¦b³]©w¤§«e¡A¥²¶·­n¹w¥ý«Å§i¤@­Ó wrdApp ª«¥ó (Object)¡A
¦b§A¥Ø«eªºµ{¦¡½XÁöµM¦³«Å§i¦¹ÅܼơG

1.     Dim wrdApp As Object

½Æ»s¥N½X

¦ý«o©¿²¤¤F .Value = T_S_Cvt(.Value, 1) ªº Function Call ¤ºªº¤º®e¤Þ¥Î¡A

1. Public Function T_S_Cvt(strData, bytOption) As String
   
2.     With wrdApp
   
3.         .Content = strData
   
4.         ' ½Õ¥Î Word TCSCConverter ¤èªk¨ÓÂà´«Ác²Åé
   
5.         .Range.TCSCConverter bytOption, True, True
   
6.         T_S_Cvt = .Content
   
7.     End With
   
8. End Function

½Æ»s¥N½X

µ²ªG°£¤F SCHPN() ¥~«o§ä¤£µÛ wrdApp ªºª«¥ó¡A
¨ì¦¹§A¤w¸g¤F¸Ñ°ÝÃD¤§©Ò¦b¤F¶Ü¡H

¦pªGÁÙ¤£©úÁA¡A½Ðª`·N§A¬O¦b¦ó³B«Å§i wrdApp ªº¡C
¥Ø«e wrdApp ¥u¯à¦b  SCHPN() ùØÀY¥i³QÃѧO¡A¥X¤F SCHPN()
¥~«K·|²£¥Í¡G

1. RUN-TIME ERROR '424': Object required

½Æ»s¥N½X

¦]¬° T_S_Cvt() ¤ºµLªkÃѧO wrdApp¡A ©Ò¥H¥¦¤~§i¶D§A
¡y¦¹³B»Ý­nª«¥ó¡z¡C
Á`µ²¡A§A¥²¶·¦b SCHPN() ¤WÀY»Ý§i¡G

1. Dim wrdApp As Object
   
2. Sub SCHPN()

½Æ»s¥N½X

¦Ó«D¦b SCHPN() ùØÀY«Å§i¡F¦p¦¹ wrdApp ¤~¯à¦¨¬°¡y¥~°ìÅܼơz¡C
T_S_Cvt() ¤~±o¥H¥¿½T°õ¦æ¡C

c_c_lai

¦^´_ 4# 198188
¦A¸É¥R»¡©ú¡G

¤U¸ü (39.11 KB)

2014-7-7 20:55

c_c_lai

¦^´_ 8# 198188
¦pªG§Aı±o wrdApp µL¥²­n«Å§i¬°¡y¥~°ìÅܼơz(Global Variable)
¨º¥ç¥i­×¥¿¦¨¬°¡y°Ï°ìÅܼơz(Local Variable)¡A¦ý¬O¤Þ¥Î¤§¥\¯à¨ç¦¡
«h¥²¶·¥[¥H­×§ï¦¨¡A§Y¥²¶·¦P®É±a¤J wrdApp ª«¥ó (¤Þ¤J°Ñ¼Æ)¡G

1. Public Function T_S_Cvt(wrdApp, strData, bytOption) As String
   
2.     With wrdApp
   
3.         .Content = strData
   
4.         ' ½Õ¥Î Word TCSCConverter ¤èªk¨ÓÂà´«Ác²Åé
   
5.         .Range.TCSCConverter bytOption, True, True
   
6.         T_S_Cvt = .Content
   
7.     End With
   
8. End Function

½Æ»s¥N½X

¦p¦¹¡A«K¯àª½±µ¦b©I¥s¥¦ªº¨ç¦¡¤º¥hª½±µ¨Ï¥Î¥¦¤F¡C

1. Sub Test()
   
2.     Dim wrdApp As Object
   
3.     Dim s1 As String, s2 As String
   
4.   
   
5.     Set wrdApp = CreateObject("Word.Document")
   
6.     Application.ScreenUpdating = False
   
7.    
   
8.     s1 = "µo²¼ª÷ÃB¡GUSD350.00"
   
9.     s2 = "               ¥Øªº´ä¡G¥xÆW°ò¶©´ä"
   
10.     s = s1 & "          ½c¼Æ:120½c" & "               Âd¸¹:LSK122345P78" & s2
    
11.   
    
12.     With Worksheets("¤u§@ªí1").Cells(1, 1)
    
13.         .Value = s
    
14.         ' 1 ÁcÂಠ 0 ²ÂàÁc
    
15.         .Value = T_S_Cvt(wrdApp, .Value, 1)
    
16.         ' .Value = T_S_Cvt(wrdApp, .Value, 0)
    
17.         
    
18.         .Characters(InStr(s, s1), Len(s1)).Font.Color = vbRed
    
19.         .Characters(InStr(s, s2), Len(s2)).Font.Color = vbBlue
    
20.     End With
    
21.    
    
22.     Application.ScreenUpdating = True
    
23.     wrdApp.Close False
    
24. End Sub

½Æ»s¥N½X

¯¬§A¶¶·N¡I