Sub DOI_MACRO()
'
' DOI_MACRO Macro
' e-abap.net이(가) 만든 매크로
'
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))
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
370 | REPORT ZSMARTFORMS_03. | sapjoy | 2008.11.28 | 3345 |
369 | REPORT z_userexit_01 | sapjoy | 2008.12.14 | 2655 |
368 | INLUCDE ZXAISU02 | sapjoy | 2008.12.15 | 2961 |
367 | INCLUDE ZXF04U01 | sapjoy | 2008.12.15 | 3695 |
366 | Include ZXCSAU05 | sapjoy | 2008.12.15 | 2587 |
365 | FIELD_EXIT_GSBER_I | sapjoy | 2008.12.16 | 2625 |
364 | FIELD_EXIT_STCD2_0 | sapjoy | 2008.12.16 | 2792 |
363 | Include ZXCSAU05 | sapjoy | 2008.12.17 | 2166 |
362 | Include ZXQEVU10 | sapjoy | 2008.12.17 | 2156 |
361 | REPORT zsapdoi_001. [2] | sapjoy | 2008.12.20 | 3137 |
360 | doi_create [1] | sapjoy | 2008.12.25 | 3040 |
359 | DOI_002.doc [3] | sapjoy | 2008.12.26 | 2233 |
» | Sub DOI_MACRO() | sapjoy | 2008.12.26 | 2842 |
357 | Sub DOI_EXCEL_MACRO() | sapjoy | 2008.12.26 | 3312 |
356 | report zsapdoi_002. | sapjoy | 2008.12.26 | 4405 |
355 | report zsapdoi_003. | sapjoy | 2008.12.26 | 2570 |
354 | report zsapdoi_004. | sapjoy | 2008.12.26 | 2923 |
353 | report zsapdoi_005. | sapjoy | 2008.12.26 | 2978 |
352 | doi_excel.xls | sapjoy | 2008.12.26 | 2177 |
351 | REPORT zbadi_001 | sapjoy | 2009.01.06 | 2527 |