Я делаю коммерческие предложения для сотрудников организации. (изначально делаю в MS PowerPoint) потом пересохраняю в PDF в конце каждого коммерческого есть телефон сотрудника. (у нас их 8)
получается что когда я сделаю 1 КП приходится пересохранять его 8 раз. потом вдруг нашлась опечатка или произошло изменение цен приходится все начинать сначала.
так никакого времени не хватит.
вот и возникла у меня идея:
Написать такой макрос чтобы ввести список номеров телефонов
и макрос брал эти номера менял их в определенном месте документа и сохранял в папкуспод именем этого номера
сам программировал совсем давно поэтому нужна ваша помощь!
грубо говоря получается такой макрос:
Sub Макрос()
'
'
Selection.TypeText Text:="8-928-361-58-34"
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"C:\Users\Eugeny\Documents\8.pdf", ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
True, UseISO19005_1:=False
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeText Text:="928-341-95-75"
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"C:\Users\Eugeny\Documents\9.pdf", ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
True, UseISO19005_1:=False
End Sub
Как мне забить список переменных с номерами телефонов? (например есть какой файл куда я могу все это записать, или в начале кода макроса прописать вручную)
как обозначить то место в котором должен меняться телефон? (может я могу какой то флаг на то место установить)
Можно ли в пусть сохранения вставить переменную с номером телефона чтобы каждый раз файл сохранялся под новым именем
понимаю что вопросы совсем от чайника. честно совсем забыл уже операторы...
Буду очень признателен такой помощи!
получается что когда я сделаю 1 КП приходится пересохранять его 8 раз. потом вдруг нашлась опечатка или произошло изменение цен приходится все начинать сначала.
так никакого времени не хватит.
вот и возникла у меня идея:
Написать такой макрос чтобы ввести список номеров телефонов
и макрос брал эти номера менял их в определенном месте документа и сохранял в папкуспод именем этого номера
сам программировал совсем давно поэтому нужна ваша помощь!
грубо говоря получается такой макрос:
Sub Макрос()
'
'
Selection.TypeText Text:="8-928-361-58-34"
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"C:\Users\Eugeny\Documents\8.pdf", ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
True, UseISO19005_1:=False
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeText Text:="928-341-95-75"
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"C:\Users\Eugeny\Documents\9.pdf", ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
True, UseISO19005_1:=False
End Sub
Как мне забить список переменных с номерами телефонов? (например есть какой файл куда я могу все это записать, или в начале кода макроса прописать вручную)
как обозначить то место в котором должен меняться телефон? (может я могу какой то флаг на то место установить)
Можно ли в пусть сохранения вставить переменную с номером телефона чтобы каждый раз файл сохранялся под новым именем
понимаю что вопросы совсем от чайника. честно совсем забыл уже операторы...
Буду очень признателен такой помощи!
