Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Игоr'
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
переменная в колонтитуле для шаблона ворд, не происходит замена переменной в колонтитуле шаблона ворд
 
#
14.03.2021 14:38:18
файл приложил выше
Изменено: Игоr' - 14.03.2021 15:58:27
 
Перейти    
переменная в колонтитуле для шаблона ворд, не происходит замена переменной в колонтитуле шаблона ворд
 
#
14.03.2021 14:32:15
Прилагаю шаблон ворд, котором должны заменяться переменные
Изменено: Игоr' - 14.03.2021 14:37:01
 
Перейти    
переменная в колонтитуле для шаблона ворд, не происходит замена переменной в колонтитуле шаблона ворд
 
#
14.03.2021 13:29:17
Всем доброго дня! У меня проблема с подстановкой данных из Эксель в шаблон Ворд: не происходит замещение переменной (&датаотб2) в колонтитуле. Ввиду полного отсутствия знаний в этом вопросе не могу понять как решить эту проблему. Огромная просьба, если кто-то знает как решить эту задачку, подскажите, пожалуйста, начинающему
Код
Sub ХВС_Акт_отбора()
Dim wdApp As Object
Dim wdDoc As Object

HomeDir$ = ThisWorkbook.Path
Set wdApp = CreateObject("Word.Application")
i% = 2
Do
If Cells(i%, 1).Value = "" Then Exit Do
If Cells(i%, 1).Value <> "" Then

NPP$ = Cells(i%, 1).Text
наименованиезаказчика$ = Cells(i%, 2).Text
юрадресзаказчика$ = Cells(i%, 3).Text
наименованиелицафактотб$ = Cells(i%, 4).Text
фактичадресотбора$ = Cells(i%, 5).Text
контактызаказчика$ = Cells(i%, 6).Text
датаотб$ = Cells(i%, 7).Text
датадоставки$ = Cells(i%, 8).Text
цельотбора$ = Cells(i%, 9).Text
методотбора$ = Cells(i%, 10).Text
основаниедляотбора$ = Cells(i%, 11).Text
хвскодпробы$ = Cells(i%, 12).Text


FileCopy HomeDir$ + "\аошаблон2.dotx", HomeDir$ + "\" + NPP$ + "_" + наименованиезаказчика$ + "_" + датаотб$ + ".doc"
Set wdDoc = wdApp.Documents.Open(HomeDir$ + "\" + NPP$ + "_" + наименованиезаказчика$ + "_" + датаотб$ + ".doc")

wdDoc.Range.Find.Execute FindText:="&date", ReplaceWith:=DataC$

wdDoc.Range.Find.Execute FindText:="&наименованиезаказчика", ReplaceWith:=наименованиезаказчика$
wdDoc.Range.Find.Execute FindText:="&юрадресзаказчика", ReplaceWith:=юрадресзаказчика$
wdDoc.Range.Find.Execute FindText:="&наименованиелицафактотб", ReplaceWith:=наименованиелицафактотб$
wdDoc.Range.Find.Execute FindText:="&фактичадресотбора", ReplaceWith:=фактичадресотбора$
wdDoc.Range.Find.Execute FindText:="&контактызаказчика", ReplaceWith:=контактызаказчика$
wdDoc.Range.Find.Execute FindText:="&датаотб", ReplaceWith:=датаотб$
wdDoc.Range.Find.Execute FindText:="&датаотб1", ReplaceWith:=датаотб$
wdDoc.Range.Find.Execute FindText:="&датаотб2", ReplaceWith:=датаотб$
wdDoc.Range.Find.Execute FindText:="&датадоставки", ReplaceWith:=датадоставки$
wdDoc.Range.Find.Execute FindText:="&цельотбора", ReplaceWith:=цельотбора$
wdDoc.Range.Find.Execute FindText:="&методотбора", ReplaceWith:=методотбора$
wdDoc.Range.Find.Execute FindText:="&основаниедляотбора", ReplaceWith:=основаниедляотбора$
wdDoc.Range.Find.Execute FindText:="&хвскодпробы", ReplaceWith:=хвскодпробы$

wdDoc.Save
wdDoc.Close
End If

i% = i% + 1
Loop
wdApp.Quit
MsgBox "Готово!"

End Sub
Изменено: Игоr' - 14.03.2021 13:38:20
 
Перейти    
ошибка при запуске макроса: заполнение файла ворд из таблицы эксель.
 
#
14.03.2021 12:59:17
Спасибо, поменял формат на dotx и всё получилось
 
Перейти    
ошибка при запуске макроса: заполнение файла ворд из таблицы эксель.
 
#
13.03.2021 19:12:53
Уважаемые форумчане , прошу помощи , ибо в этом деле ничего не понимаю. При запуске макроса выдаёт ошибку 53. подскажите, пожалуйста, как это можно исправить?
Код
Sub ХВС_Акт_отбора()
Dim wdApp As Object
Dim wdDoc As Object

HomeDir$ = ThisWorkbook.Path
Set wdApp = CreateObject("Word.Application")
i% = 2
Do
If Cells(i%, 1).Value = "" Then Exit Do
If Cells(i%, 1).Value <> "" Then

NPP$ = Cells(i%, 1).Text
наименованиезаказчика$ = Cells(i%, 2).Text
юрадресзаказчика$ = Cells(i%, 3).Text
наименованиелицафактотб$ = Cells(i%, 4).Text
фактичадресотбора$ = Cells(i%, 5).Text
контактызаказчика$ = Cells(i%, 6).Text
датаотб$ = Cells(i%, 7).Text
датадоставки$ = Cells(i%, 8).Text
цельотбора$ = Cells(i%, 9).Text
методотбора$ = Cells(i%, 10).Text
основаниедляотбора$ = Cells(i%, 11).Text
хвскодпробы$ = Cells(i%, 12).Text


FileCopy HomeDir$ + "\акт_отбора_шаблон1.doc", HomeDir$ + "\" + NPP$ + "_" + наименованиезаказчика$ + "_" + датаотб$ + ".doc"
Set wdDoc = wdApp.Documents.Open(HomeDir$ + "\" + NPP$ + "_" + наименованиезаказчика$ + "_" + датаотб$ + ".doc")

wdDoc.Range.Find.Execute FindText:="&date", ReplaceWith:=DataC$

wdDoc.Range.Find.Execute FindText:="&наименованиезаказчика", ReplaceWith:=наименованиезаказчика$
wdDoc.Range.Find.Execute FindText:="&юрадресзаказчика", ReplaceWith:=юрадресзаказчика$
wdDoc.Range.Find.Execute FindText:="&наименованиелицафактотб", ReplaceWith:=наименованиелицафактотб$
wdDoc.Range.Find.Execute FindText:="&фактичадресотбора", ReplaceWith:=фактичадресотбора$
wdDoc.Range.Find.Execute FindText:="&контактызаказчика", ReplaceWith:=контактызаказчика$
wdDoc.Range.Find.Execute FindText:="&датаотб", ReplaceWith:=датаотб$
wdDoc.Range.Find.Execute FindText:="&датадоставки", ReplaceWith:=датадоставки$
wdDoc.Range.Find.Execute FindText:="&цельотбора", ReplaceWith:=цельотбора$
wdDoc.Range.Find.Execute FindText:="&методотбора", ReplaceWith:=методотбора$
wdDoc.Range.Find.Execute FindText:="&основаниедляотбора", ReplaceWith:=основаниедляотбора$
wdDoc.Range.Find.Execute FindText:="&хвскодпробы", ReplaceWith:=хвскодпробы$

wdDoc.Save
wdDoc.Close
End If

i% = i% + 1
Loop
wdApp.Quit
MsgBox "Готово!"

End Sub
Изменено: ИгоR' - 13.03.2021 19:30:46
 
Перейти    
Кнопки на ленте с макросом перекидывают на другую книгу
 
#
08.03.2021 21:19:41
Буду пробовать, спасибо)
 
Перейти    
Кнопки на ленте с макросом перекидывают на другую книгу
 
#
08.03.2021 20:49:49
Хм... ясно, что ничего не ясно

Цитата
ГоSть написал: На основании чего вы утверждаете, что эта вкладка создана в какой-то конкретной книге?
Я не совсем понимаю вопроса
Я создал файл первоисточник , там создал эту вкладку на ленте, затем внёс изменения в этот файл -первоисточник и сохранил под другим именем
 
Перейти    
Кнопки на ленте с макросом перекидывают на другую книгу
 
#
08.03.2021 20:37:12
Цитата
ГоSть написал:
Вполне естественно, Excel не умеет выполнять код макросов, если книга, их содержащая, не открыта.
А какой выход?
 
Перейти    
Кнопки на ленте с макросом перекидывают на другую книгу
 
#
08.03.2021 20:32:30
Цитата
ГоSть написал:
Скорее всего как-то так это создавалось. Не думаю, что через RibbonXMLEditor. Правда, не понятно, на основании чего
 
Перейти    
Кнопки на ленте с макросом перекидывают на другую книгу
 
#
08.03.2021 20:21:52
На вкладке &quot;Работа с документами&quot; создано четыре кнопки. Создавал через настройки ленты (перетаскивал макросы слева на право во вкладки). Сама макросы работают нормально, а вот кнопки на ленте включают документ- первоисточник
 
Перейти    
Кнопки на ленте с макросом перекидывают на другую книгу
 
#
08.03.2021 19:33:46
Файл прилагаю
 
Перейти    
Кнопки на ленте с макросом перекидывают на другую книгу
 
#
08.03.2021 18:54:07
Всем доброго времени суток! У меня такая проблема: в книге эксель 2016 создал пользовательскую вкладку на ленте с кнопками, которые включают макросы. Проблема в том, что сохраняя документ или копируя его, при нажатии на эти кнопки на ленте инструментов (в сохранённом с изменениями под другим файле или скопированном файле) открывается файл- первоисточник, в котором изначально эти кнопки созданы.
Подскажите, пожалуйста как купировать этот переход на  файл- первоисточник? Если эта проблема решаема
 
 
Перейти    
Страницы: 1
Наверх