Два способа вставить изображение (штрих-код) в документ Word.Application

7 0

Столкнулся с необходимостью вставить штрих-код в документ Word на все страницы. Решение не очень изящное, но в некоторых случаях пойдёт.

Word = CreateObject("Word.Application")
Doc = Word.Documents.Open(Pach)
//определяем колонт
oRng = Doc.Sections(1).Headers(1)
InlineShape = oRng.Range.InlineShapes.AddPicture(Pach2; FALSE; TRUE)
  Shape = InlineShape.ConvertToShape
  Shape.ZOrder(5)
  Shape.LockAspectRatio = TRUE
  Shape.Width = 75
  Shape.IncrementTop(-35)
  Shape.IncrementLeft(430)
Doc.SaveAs(Pach)    // куда сейвим
Doc.Close(false)    // закрываем док
Word.Quit()                                                                                                       

Pach - локальный путь к документу

Pach2 - локальный путь с изображению

Данным способом добавляем изображение в колонтитул.

Word = CreateObject("Word.Application")
Doc = Word.Documents.Open(Pach)
//определяем количество страниц в документе
Count = Doc.Range.ComputeStatistics(2)
i = 1
while i < (Count + 1)
  StrDoc = Word.Selection.GoTo(1; 1; i)
  InlineShape = Doc.Range.InlineShapes.AddPicture(Pach2; FALSE; TRUE; StrDoc)
  Shape = InlineShape.ConvertToShape
  Shape.ZOrder(5)
  Shape.LockAspectRatio = TRUE
  Shape.Width = 75
  Shape.IncrementTop(-40)
  Shape.IncrementLeft(430)
  i = i + 1  
endwhile 
Doc.SaveAs(Pach)    // куда сейвим
Doc.Close(false)    // закрываем док
Word.Quit()

Pach - локальный путь к документу

Pach2 - локальный путь с изображению

Данным способом добавляем изображение в цикле на каждую страницу в документе.

Пока комментариев нет.

Авторизуйтесь, чтобы написать комментарий