µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excelµ{¦¡°Ï
» Ū¨úªí®æ
 
1
2
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[µo°Ý]
Ū¨úªí®æ
kannas
µoµu®ø®§
¥[¬°¦n¤Í
kannas
·í«eÂ÷½u
UID
2451
©«¤l
6
¥DÃD
1
ºëµØ
0
¿n¤À
16
ª÷¿ú
16
ÂI¦W
0
§@·~¨t²Î
xp
³nÅ骩¥»
2003
¾\ŪÅv
10
¦b½u®É¶¡
2 ¤p®É
µù¥U®É¶¡
2010-11-28
³Ì«áµn¿ý
2011-1-1
¤p¾Ç¥Í
©«¤l
6
¥DÃD
1
ºëµØ
0
¿n¤À
16
ÂI¦W
0
§@·~¨t²Î
xp
³nÅ骩¥»
2003
¾\ŪÅv
10
µù¥U®É¶¡
2010-11-28
³Ì«áµn¿ý
2011-1-1
11
#
¸õÂà¨ì
»
µoªí©ó 2010-12-23 01:33
|
¥u¬Ý¸Ó§@ªÌ
¦^´_
10#
Hsieh
½Ð°ÝJoinªºµ{¦¡¦³¿ìªk¥ÎAnd¨Ó¼g¶Ü?
§ÚÅ¥¤H»¡³oÓ¤ñ¸û²³æ¡AJoin¬O¤ñ¸û°ª¶¥ªº¥Îªk
§Ú¤£©ú¥Õ¥ÎAnd¼gªº¸Ü¡A¬Onþ¨Ç±ø¥ó³sµ²þ¨Ç±ø¥ó??
¡¯ReDim Preserve Ar(s)
¡¯Ar(s) = Tb.Cell(i, j).Range.Sentences(s + 1)
Next
¡¯mystr = Join(Ar, Chr(10))
¡¯.Value = mystr
¡¯.WrapText = True
End With
Erase Ar
ÁÙ¦³¥i¥H¸ÑÄÀ¤W±¦³¡¯ªºµ{¦¡·N«ä¶Ü?
§ÚÁöµM¤j·§ª¾¹D·N«ä¡A¦ý¦³¤H°Ý§Ú®É¡A§Ú¯uªºµLªk¹F¥X¨Ó¡C
³Â·Ð±z¤F ÁÂÁÂ!
TOP
¦Ñ®L
µoµu®ø®§
¥[¬°¦n¤Í
¦Ñ®L
·í«eÂ÷½u
UID
6
©«¤l
109
¥DÃD
22
ºëµØ
0
¿n¤À
134
ª÷¿ú
134
ÂI¦W
0
§@·~¨t²Î
Win7
³nÅ骩¥»
Office 2000
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
¥x¥_¥«
¦b½u®É¶¡
529 ¤p®É
µù¥U®É¶¡
2010-5-1
³Ì«áµn¿ý
2023-3-5
¤¤¾Ç¥Í
©«¤l
109
¥DÃD
22
ºëµØ
0
¿n¤À
134
ÂI¦W
0
§@·~¨t²Î
Win7
³nÅ骩¥»
Office 2000
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
¥x¥_¥«
µù¥U®É¶¡
2010-5-1
³Ì«áµn¿ý
2023-3-5
12
#
µoªí©ó 2010-12-23 11:19
|
¥u¬Ý¸Ó§@ªÌ
±Ë²¦Ó´NÁc
¤U¸ü
(24.89 KB)
2010-12-23 11:20
TOP
Hsieh
µoµu®ø®§
¥[¬°¦n¤Í
Hsieh
·í«eÂ÷½u
UID
3
©«¤l
4901
¥DÃD
44
ºëµØ
24
¿n¤À
4916
ª÷¿ú
4916
ÂI¦W
277
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Office 20xx
¾\ŪÅv
150
©Ê§O
¨k
¨Ó¦Û
¥x¥_
¦b½u®É¶¡
4109 ¤p®É
µù¥U®É¶¡
2010-4-30
³Ì«áµn¿ý
2024-12-23
¶W¯Åª©¥D
©«¤l
4901
¥DÃD
44
ºëµØ
24
¿n¤À
4916
ÂI¦W
277
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Office 20xx
¾\ŪÅv
150
©Ê§O
¨k
¨Ó¦Û
¥x¥_
µù¥U®É¶¡
2010-4-30
³Ì«áµn¿ý
2024-12-23
13
#
µoªí©ó 2010-12-23 14:29
|
¥u¬Ý¸Ó§@ªÌ
¦^´_
11#
kannas
¦Ñ®L«e½úªºª«¥ó¥]¸Ë¤èªk¬O©p¸Ó¾Ç²ß¤è¦V
http://forum.twbts.com/viewthread.php?tid=782&extra=&highlight=word&page=1
°Ñ¦Ò¤§«eªº°Q½×¡A§A¹ïª«¥óÁpµ²ªº¤èªk·|¦³¸û¦hªº»{ÃÑ
³æ´NVBA»yªk°Q½×¡A§A©Ò´£¨ìªºjoin¤èªk
³o¬O¦r¦êªº³sµ²¨ç¼Æ¡A§A¥i°Ñ¦ÒVBA»¡©ú
´N¯àª¾¹D¦¹¨ç¼Æ¥Îªk¤Î¥Î³~
§An¥Î&¥N´ÀJOIN¨ç¼Æ·íµM¤]¦æ
¨º´N¬O¦b¨ú±oªí®æ¤ºªº¨C¤@¥y¦r¦ê¡A
¥Îmystr=mystr & chr(10) & Tb.Cell(i, j).Range.Sentences(s + 1)
Sub WriteWordTb()
Dim Tb As Table, Ar()
Set Wd = CreateObject("Word.Application") '³Ð«ØWORDµ{¦¡ª«¥ó
Cells.Clear '²MªÅ¤u§@ªí¤º®e
With Wd 'Ãö©óWORDµ{¦¡ª«¥ó
With .Documents.Open(ThisWorkbook.Path & "\1.doc") '¶}±Ò«ü©wªºÀÉ®×
For Each Tb In .tables 'doc¤å¥ó¤¤ªº¨CÓTable
For i = 1 To Tb.Rows.Count
For j = 1 To Tb.Columns.Count
For s = 0 To Tb.Cell(i, j).Range.Sentences.Count - 1
If mystr="" Then
mystr=Tb.Cell(i, j).Range.Sentences(s + 1)
Else
mystr= mystr & chr(10) & Tb.Cell(i, j).Range.Sentences(s + 1) '³s±µ¨C¥y
End If
Next
With Cells(i, j)
.Value = mystr 'Àx¦s®æªºÈ
mystr="" '§âÅܼÆÂk¹s
.WrapText = True 'Àx¦s®æ³]©w¦¨¦Û°Ê´«¦æ
End With
Next
Next
Next
End With
.Quit 'Ãö³¬µ{¦¡
End With
End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý
TOP
FAlonso
µoµu®ø®§
¥[¬°¦n¤Í
FAlonso
·í«eÂ÷½u
UID
2608
©«¤l
135
¥DÃD
19
ºëµØ
0
¿n¤À
165
ª÷¿ú
165
ÂI¦W
0
§@·~¨t²Î
XP
³nÅ骩¥»
2003
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
»´ä
¦b½u®É¶¡
67 ¤p®É
µù¥U®É¶¡
2010-12-9
³Ì«áµn¿ý
2012-8-27
¤¤¾Ç¥Í
©«¤l
135
¥DÃD
19
ºëµØ
0
¿n¤À
165
ÂI¦W
0
§@·~¨t²Î
XP
³nÅ骩¥»
2003
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
»´ä
µù¥U®É¶¡
2010-12-9
³Ì«áµn¿ý
2012-8-27
14
#
µoªí©ó 2010-12-25 19:14
|
¥u¬Ý¸Ó§@ªÌ
¬°¤°»òH¤j¥i¥H¦³³o¨Ç«ü¥O,¦ý§Ú¨S¦³?
Uploaded with ImageShack.us
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
TOP
ÀR«ä¦Û¦b :
¥ÌÄ@°µ¡BÅw³ß¨ü¡C
 
1
2
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
EXCEL±MÄÝ°Q½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·