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

¨C¤@¦æÀY§À¥[¦r°ÝÃD?

¨C¤@¦æÀY§À¥[¦r°ÝÃD?

¦bºô¸ô¤W¬d¨ì¥H¤U¥i¦b¨C¤@¦æÀY§À¥[¦rªºµ{¦¡
Sub kk()
Set doc1 = Documents(1)
For i = 1 To doc1.Paragraphs.Count
strtemp = ThisDocument.Paragraphs(i).Range
ThisDocument.Paragraphs(i).Range = "Start " & Left(strtemp, Len(strtemp) - 1) & "End " + Right(strtemp, 1)
Next
End Sub

¨ä¤¤­Ë¼Æ²Ä3¦æ¬°¤°»ò­n¥Î Left(strtemp, Len(strtemp) - 1) ¦Ó¤£¬Oª½±µ¥Î strtemp
                                                    ¥t¥~³Ì«á¥[ + Right(strtemp, 1) ªº¥Î·N¬O???
ªì¾ÇªÌcolor

«ç»ò¨S¤H¦^µª¡K¡K   =_=]]]
ªì¾ÇªÌcolor

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD