ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°Ý¦p¦ó§Ö³t±N¨C¤@µ§¸ê®Æ¦ê°_¨Ó

[µo°Ý] ½Ð°Ý¦p¦ó§Ö³t±N¨C¤@µ§¸ê®Æ¦ê°_¨Ó

¥»©«³Ì«á¥Ñ °¶ÔÐ ©ó 2018-6-12 23:54 ½s¿è

¦P¨Æ»¡¦o¦b[google¤é¾ä]¤¤¿é¤J¤F¤@¨Ç¸ê®Æ«á¡A·Q±N¸ê®Æ¶×¥X¨Ó¦bWord¤¤¦A°µ³B²z¡A¥i¬Oµo²{¸ê®Æªø«×¦n¹³¦³­­¨î¡A¦³¨Ç¸ûªøªº¸ê®Æ³£·|³QºI¦¨¨â¦æ¡A­n«ç»ò§Ö³t±N¨C¤@µ§¸ê®Æ¦ê¦b¤@°_¡H

§Ú¸ÕµÛ©ó[´M§ä¥Ø¼Ð]¤¤¿é¤J(^13)([!^1-^127])(*)(^13)
¦Ó[¨ú¥N¬°]¤¤¿é¤J\2\3\4
¬O¥i¥H±N¤j³¡¤Àªº¸ê®Æ¨C¤@µ§³£¦ê°_¨Ó¡A¥i¬O¦pªG¹J¨ìºIÂ_ªº¦a¤è¬O¼Æ¦rªº¸Ü´N¥¢®Ä¤F

«á¨Ó§Ú¸ÕµÛ±N©Ò¦³^p¨ú¥N±¼¡A±N©Ò¦³¸ê®Æ¥þ³¡¦ê¦b¤@°_¡A¦A©î¸ê®Æ
¥i¬O¦]¬°¦o¤@¦¸³£¶×«Ü¦h¤Ñªº¸ê®Æ¡A©Ò¥H´N·|§â[2018-XX-XX(¶gX)]¤]¦ê¦b¤@°_¡A¦]¦¹­n±Ð¦o«Ü¦h´M§ä¨ú¥Nªº¨BÆJ¡A¥Ñ©ó¦o¹ï³o¤è­±¾Þ§@¸û¤£¼ô
©Ò¥H·Q°Ý°Ý¤j®a¦³¨S¦³¨ä¥L¸Ñªk¡A¥ýÁÂÁ¤j®a¤F

==========================================

¨Ò¤l¡G
2018-06-12(¶g¤G)
07:00 - 07:30 Ãö©ó«O¯d­^¤å¦r³¡¤À,¥i¥H§Q¥Î´M§ä¥\¯àÃö©ó«O¯d­^¤å¦r³¡¤À,¥i¥H§Q¥Î´M§ä¥\
¯àÃö©ó«O¯d­^¤å¦r³¡¤À,¥i¥H§Q¥Î´M§ä¥\¯à
08:00 - 09:00 Ãö©ó«O¯d¤¤¤å¦r³¡¤À,¥i¥H§Q¥Î¨ú¥N¥\¯à
09:00 - 10:00 Ãö©ó«O¯d¤¤¤å¦r³¡¤À,¥i¥H§Q¥Î¨ú¥N¥\¯àÃö©ó«O¯d¤¤¤å¦r³¡¤À,¥i¥H§Q¥Î0927-
123456
10:00 - 10:30 Ãö©ó«O¯d¤¤¤å¦r³¡¤À,¥i¥H§Q¥Î¨ú¥N¥\¯àÃö©ó«O¯d¤¤¤å¦r³¡¤À,¥i¥H§Q¥Î´M§ä
1¸¹

---------------------------------
¨Ò¤l³Ì«á§Æ±æ§e²{µ²ªG¡G
2018-06-12(¶g¤G)
07:00 - 07:30 Ãö©ó«O¯d­^¤å¦r³¡¤À,¥i¥H§Q¥Î´M§ä¥\¯àÃö©ó«O¯d­^¤å¦r³¡¤À,¥i¥H§Q¥Î´M§ä¥\¯àÃö©ó«O¯d­^¤å¦r³¡¤À,¥i¥H§Q¥Î´M§ä¥\¯à
08:00 - 09:00 Ãö©ó«O¯d¤¤¤å¦r³¡¤À,¥i¥H§Q¥Î¨ú¥N¥\¯à
09:00 - 10:00 Ãö©ó«O¯d¤¤¤å¦r³¡¤À,¥i¥H§Q¥Î¨ú¥N¥\¯àÃö©ó«O¯d¤¤¤å¦r³¡¤À,¥i¥H§Q¥Î0927-123456
10:00 - 10:30 Ãö©ó«O¯d¤¤¤å¦r³¡¤À,¥i¥H§Q¥Î¨ú¥N¥\¯àÃö©ó«O¯d¤¤¤å¦r³¡¤À,¥i¥H§Q¥Î´M§ä1¸¹
°¶Ôйq¤l®Ñ,Åwªï§K¶O¤U¸ü°Ñ¦Ò
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
°¶ÔÐÂîѮw---https://www.facebook.com/groups/669579416484096/
¦³¤@®a¬a¥J©±---https://www.facebook.com/sadodona

¥»©«³Ì«á¥Ñ linyancheng ©ó 2018-6-17 19:40 ½s¿è

¸Õ¸Õ³o­ÓVBA¥N½X¡A
¥i³B²zºIÂ_¦¨¨â¦æ©Î¤T¦æ¥H¤Wªº¸ê®Æ¦ê¡A
¦ý¤é´Á¤Î®É¶¡®æ¦¡¥²¶·¦³¦¹³W«ß©Ê¡C

Sub ¸ê®Æ¦ê³s()

    Dim P As Paragraph
    Dim timeP As Paragraph
   
    For Each P In ActiveDocument.Paragraphs
        If Left(P.Range.Text, 13) Like "??:?? - ??:??" Then
            Set timeP = P
        ElseIf Left(P.Range.Text, 10) Like "????-??-??" Then
            '¤£³B²z
        Else
            If Not timeP Is Nothing Then
                timeP.Range.Text = Replace(timeP.Range.Text, vbCr, "")
            End If
        End If
    Next P

End Sub

TOP

VBA¥N½X¤å¥ó

¸ê®Æ¦ê³s.zip (6.74 KB)

TOP

¦^´_ 3# linyancheng

·PÁª©¥DªºÀ°¦£¡A¸Ñ¨M§Ú¦P¨Æ¤Î§Úªº°ÝÃD¤F¡A¦A¦¸·PÁ¡I
°¶Ôйq¤l®Ñ,Åwªï§K¶O¤U¸ü°Ñ¦Ò
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
°¶ÔÐÂîѮw---https://www.facebook.com/groups/669579416484096/
¦³¤@®a¬a¥J©±---https://www.facebook.com/sadodona

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD