[한글/워드] 파일 내 여러 위치에 자동 날인하기

워드에서 Alt + F11 누르고 삽입 - 모듈 클릭하고 아래 소스를 사용하면 됩니다.
날인이라면 GIF나 PNG로 된 투명이미지를 사용해야 할 것이고
그림파일, 위치, 크기, 페이지를 수정하여 사용하세요.

Sub Demo()
Dim Rng As Range, i As Long, Shp As Shape, ImageName As String
ImageName = "M:\1.png"  ' 그림파일명
With ActiveDocument
    Set Rng = .Range(0, 0)
    For i = 1 To .ComputeStatistics(wdStatisticPages) ' 1 페이지부터 끝까지
        Set Rng = Rng.GoTo(What:=wdGoToPage, Name:=i)
        Rng.Collapse wdCollapseStart
        Set Shp = .InlineShapes.AddPicture(FileName:=ImageName, SaveWithDocument:=True, Range:=Rng).ConvertToShape
        With Shp
            .Left = 0 ' 가로 위치
            .Top = 0 ' 세로 위치
            .Width = 100 ' 가로 크기
            .Height = 100 ' 세로 크기
        End With
    Next
End With
End Sub

워드는 잘 안써봐서 말씀하신 방법을 활용하긴 어려울듯합니다.

금일저녁 11시까지 한글 프로그램에서 더 이상의 답글이 �戮만� 답변채택 드리겠습니다.

정성껏 답변주셔서 정말 감사합니다.

한글 2010 이상에서는 아래의 코드를 사용하고 반복 횟수를 페이지 수만큼 하면 됩니다.
우선 첫페이지에서 복사할 그림을 위치, 크기, 서식(위치를 쪽, 또는 종이) 등을 잘 조절하고
그 그림을 클릭하고 Ctrl + C 로 복사하고
위 그림의 빨간 화살표 부분, 실행을 클릭하면 됩니다.

function OnScriptMacro_script111()
{
    HAction.Run("MovePageDown");
    HAction.Run("Paste");
}

이 코드의 사용법은
"한글 매크로 정의" 또는
"한글 매크로 편집" 등으로 검색해 보세요.

훌륭하십니다!