Sub DOI_MACRO()

'

' DOI_MACRO Macro

' e-abap.net이(가) 만든 매크로 2008-12-01

'

    Dim R3Table As Object

    Dim WordTbl As Table

    Set R3Table = ThisDocument.Container.LinkServer.Items("GT_SFLIGHT").Table

    Set WordTbl = ThisDocument.Tables(1)

    WordTbl.Cell(1, 2).Range.InsertAfter Text:=CVar(R3Table.Value(1, 1))

    WordTbl.Cell(2, 2).Range.InsertAfter Text:=CVar(R3Table.Value(1, 2))

    WordTbl.Cell(3, 2).Range.InsertAfter Text:=CVar(R3Table.Value(1, 3))

    WordTbl.Cell(4, 2).Range.InsertAfter Text:=CVar(R3Table.Value(1, 4))

    WordTbl.Cell(5, 2).Range.InsertAfter Text:=CVar(R3Table.Value(1, 5))

    WordTbl.Cell(6, 2).Range.InsertAfter Text:=CVar(R3Table.Value(1, 6))

    WordTbl.Cell(7, 2).Range.InsertAfter Text:=CVar(R3Table.Value(1, 7))