[Kazun]

Заменить места, куда должно подставляться на значения [[Number]],[[RollN]],[[VCode]],[[RLength]]
Формат: wdFormatDocument97
Название файла: Номер рулона.doc

Наличие Word,Excel, PowerShell 2+:

Код:

# Входные файлы
$fWord = "C:\Doc\MyTemplate.doc"
$tmpPath = "C:\Doc\"
$fExcel = "C:\Doc\File.xls"

# Параметры замены
$ReplaceAll = 2 
$FindContinue = 1 
$MatchCase = $False 
$MatchWholeWord = $True 
$MatchWildcards = $False 
$MatchSoundsLike = $False 
$MatchAllWordForms = $False 
$Forward = $True 
$Wrap = $FindContinue 
$Format = $False 


$MSWord = New-Object -ComObject Word.Application 
$MSExcel = New-Object -ComObject Excel.Application
$MSExcel.DisplayAlerts = $False
$wb = $MSExcel.Workbooks.Open($fExcel)
$ws = $wb.Worksheets.Item(1)

#Количество строк
$mainRng = $ws.UsedRange.Cells 
$xRow = $mainRng.Rows.Count  

for($i=2; $i -le $xRow; $i++) 
{
	$MSWord.Documents.Open($fWord) 
		 
	#[[Number]] 
	$FindText = "[[Number]]" 
	$ReplaceText = $ws.Cells.Item($i,4).Value2 
	$MSWord.Selection.Find.Execute($FindText, $MatchCase, $MatchWholeWord, $MatchWildcards, $MatchSoundsLike, $MatchAllWordForms, $Forward, $Wrap, $Format, $ReplaceText, $ReplaceAll) 
	 
	#[[RollN]] 
	$FindText = "[[RollN]]" 
	$ReplaceText = $ws.Cells.Item($i,1).Value2  
	$MSWord.Selection.Find.Execute($FindText, $MatchCase, $MatchWholeWord, $MatchWildcards, $MatchSoundsLike, $MatchAllWordForms, $Forward, $Wrap, $Format, $ReplaceText, $ReplaceAll) 

	#[[VCode]] 
	$FindText = "[[VCode]]" 
	$ReplaceText = $ws.Cells.Item($i,3).Value2  
	$MSWord.Selection.Find.Execute($FindText, $MatchCase, $MatchWholeWord, $MatchWildcards, $MatchSoundsLike, $MatchAllWordForms, $Forward, $Wrap, $Format, $ReplaceText, $ReplaceAll) 
	 
	#[[RLength]] 
	$FindText = "[[RLength]]" 
	$ReplaceText = $ws.Cells.Item($i,2).Value2 
	$MSWord.Selection.Find.Execute($FindText, $MatchCase, $MatchWholeWord, $MatchWildcards, $MatchSoundsLike, $MatchAllWordForms, $Forward, $Wrap, $Format, $ReplaceText, $ReplaceAll) 
	 

	$saveFormat = [Microsoft.Office.Interop.Word.WdSaveFormat]::wdFormatDocument97
	$path = Join-Path $tmpPath "$($ws.Cells.Item($i,1).Value2).doc"
	$MSWord.ActiveDocument.SaveAs([ref]$path, [ref]$saveFormat) 

	$MSWord.Documents.Close()
}   

$MSWord.Quit() 
$MSExcel.Quit()

[System.Runtime.InteropServices.Marshal]::ReleaseComObject($MSExcel)
[System.Runtime.InteropServices.Marshal]::ReleaseComObject($MSWord)

[Iska]

zhuk09, Ваша задача, в принципе, решается и без программирования, обычным слиянием.

[zhuk09]

Заменить места, куда должно подставляться на значения [[Number]],[[RollN]],[[VCode]],[[RLength]] Формат: wdFormatDocument97 Название файла: Номер рулона.doc »

Завтра буду пробовать!
Спасибо огромное за оперативный ответ)! Если что-то не получится, обязательно напишу)

Ваша задача, в принципе, решается и без программирования, обычным слиянием. »

Можно об этом по подробней?!

[Iska]

Модно об этом по подробней?! »

Модно у меня навряд ли получится, тут талант нужо́́н .

В принципе, тут ничего особо не изменилось за последние четверть века: готовится источник данных (другой документ Word с таблицей, таблица Excel, база данных Access, SQL, текстовый файл и т.п.), готовится основной документ слияния Word, в нём расставляются поля слияния, затем выполняются определённые действия над ним по слиянию, полученный результат либо сразу распечатывается, либо сохраняется, либо рассылается по почте. Отличия в мелких деталях, да в интерфейсе в зависимости от используемой версии Microsoft Office.

Например: Слияние данных MS Excel и MS Word - Интеграция Excel с другими приложениями - Эффективная работа в Excel - Статьи об Excel - Мир MS Excel — только в Вашем случае, возможно, выбор наклеек вместо писем будет лучшим вариантом. Принципиальной разницы нет, но наклеек на одном листе сразу может быть несколько — скажем, если Вы их печатаете.

Создание и печать наклеек с помощью слияния - Word
Слияние с использованием таблицы Excel - Word
и т.п.

[zhuk09]

Модно у меня навряд ли получится, тут талант нужо́́н . »

У Вас получилось очень круто)))

Принципиальной разницы нет, но наклеек на одном листе сразу может быть несколько — скажем, если Вы их печатаете. »

Тут все дело в том, что наклеек действительно можно сделать несколько на одном листе, НО проблема в том, что наклейки эти все одинаковые.
Меняются наклейки только на следующем листе))

[Iska]

zhuk09, тогда Вы явно выбирали не наклейки, потому как при выборе варианта «Наклейки» в каждую запись макета кроме последней добавляется поле Word «NEXT», вызывающее переход к новой записи источника данных:

Скрытый текст

Скрытый текст

В принципе, и сейчас ничто не мешает Вам добавить поля NEXT в макет в конец каждой наклейки (кроме последней) «ручками».

[zhuk09]

В принципе, и сейчас ничто не мешает Вам добавить поля NEXT в макет в конец каждой наклейки (кроме последней) «ручками». »

На первой странице получилось добиться 3-х (трех разных) наклеек на одном листе. Но на 2-м листе происходит какой-то "ШВАХХХХ"
Вот так выглядит структура этикетки

Скрытый текст

Так Выглядит структура данных. В частности интересуют номера от 1 до 4

Скрытый текст

Теперь переходим к этикеткам. Стр.№1

Скрытый текст

И самая ВАЖНАЯ стр.№2

Скрытый текст

Вот такую неразбериху мы получаем на 2-ой и последующих страницах. Т.е по этой логике получается, что команда NEXT на следующей странице работает от данных, которые были в первой этикетке)!

[Iska]

zhuk09, тогда попробуйте заново с начала, выбрав типом документа именно Наклейки:

Скрытый текст

В крайнем случае, упакуйте образец документа с шаблоном и таблицу в архив, каковой приложите к сообщению, либо выложите на RGhost или Яндекс.Диск.

[zhuk09]

Iska, добрый день!
И так, если в процессе слияния выбирать типом документа наклейка

Скрытый текст

то в дальнейшем возможны 2 варианта событий
1.
а) Изменить макет документа. В процессе этого будет создан новый файл с заданным нами макетом

Скрытый текст

б) заполнить поля слияния

Скрытый текст

Файл во вложении 111111.docx

2.
а)В выборе документа указать "Существующий документ".

Скрытый текст

б) заполнить поля слияния

Скрытый текст

Файл во вложении 222222.docx