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

¦p¦ó§Q¥Îexcel ±±¨î word©O?

Dim Wordapp As Word.Application
    Set Wordapp = New Word.Application      '·s«ØWordª«¥ó
    Wordapp.Visible = True                    '¥i¨£

    Dim WordD As Word.Document      '©w¸qwordÃþ
    Set WordD = Wordapp.Documents.Add       '·s«Ø¤å¥ó

    Wordapp.Selection.WholeStory  '¥þ¿ï
    Wordapp.Selection.Font.Name = "¦rÅé¦W
    Wordapp.Selection.Font.Size = 16   '¦r¤Ø¤o

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD