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

Страницы: 1
Сохранение связанного файла в формате pdf используя данные из поля слияния MERGEFIELD в имени файла, слияние, сохранение в pdf, макрос, MERGEFIELD
 
#
23.08.2024 11:01:03
решил проблему заключив поле в "Элемент управления форматированный текст" с тегом "список"
 
Перейти    
VBA Word cохранение связанного файла в формате pdf используя данные из поля слияния MERGEFIELD в имени файла
 
#
23.08.2024 11:00:56
решил проблему заключив поле в "Элемент управления форматированный текст" с тегом "список"
 
Перейти    
VBA Word cохранение связанного файла в формате pdf используя данные из поля слияния MERGEFIELD в имени файла
 
#
23.08.2024 09:45:22
Есть таблица с данными Excel "export (19)" и связанный файл Word "Ответ об отказе срок_"  который автоматически заполняется через поле слияния (MERGEFIELD)
  • Задача с помощью макроса сохранить Word файл в формате .pdf с определённым именем (добавить к имени файла № претензии который подгружается в поле слияния { MERGEFIELD Номер_претензии })
  • Нашел макрос похожего действия, но он добавляет текст к названию из поля со списком.
  • Как сделать ссылку на поле слияния (MERGEFIELD) нигде не нашел.
Скрытый текст

Или хотя бы напишите как присвоить переменную полю слияния { MERGEFIELD Номер_претензии }
 
Перейти    
Сохранение связанного файла в формате pdf используя данные из поля слияния MERGEFIELD в имени файла, слияние, сохранение в pdf, макрос, MERGEFIELD
 
#
22.08.2024 14:27:00
Есть таблица с данными Excel "export (19)" и связанный файл Word "Ответ об отказе срок_"  который автоматически заполняется через поле слияния (MERGEFIELD)
  • Задача с помощью макроса сохранить Word файл в формате .pdf с определённым именем (добавить к имени файла № претензии который подгружается в поле слияния { MERGEFIELD Номер_претензии })
  • Нашел макрос похожего действия, но он добавляет текст к названию из поля со списком.
  • Как сделать ссылку на поле слияния (MERGEFIELD) нигде не нашел.
Скрытый текст
 
Перейти    
Убрать кавычки из названия организации, Убрать лишние кавычки при открытии формы
 
#
31.05.2024 11:12:32
Kuzmich

Благодарю добрый человек, все работает!
 
Перейти    
Убрать кавычки из названия организации, Убрать лишние кавычки при открытии формы
 
#
30.05.2024 13:14:00
Результат в ячейке W да выводится без кавычек, но надо чтобы и в исходной строе L с исходными данными исправлялась ошибка и менялась запись с ИП "Иванов И.И." на ИП Иванов И.И. нудно проверить каждую ячейку строки L и если она содержит "ИП " то убрать оттуда кавычки, если там ООО или АО не убирать кавычки.

Цитата
А может Ctrl+h Найти и Заменить
Как? какие условия замены если ИПшники разные? Если заменить "ИП "" на "ИП " то все равно в конце остается кавычка.
Изменено: afonason - 30.05.2024 13:20:40
 
Перейти    
Убрать кавычки из названия организации, Убрать лишние кавычки при открытии формы
 
#
30.05.2024 10:18:43
Цитата
написал:
А может формулой?=ПОДСТАВИТЬ(L4;"""";)
За формулу спасибо. Теперь осталось убрать кавычки из колонки L где есть ИПшники (Колонка L является исходными данными, вставка туда формулы не представляется возможной).

я это вижу что-то вроде
Код
Private Sub UserForm_Activate()    Columns("L:L").Select
   if (в ячейке столбца L значение содержит "ИП "") then (преобразовать в ИП Иванов Иван Иванович (без кавычек) к примеру) 
End Sub
как это записать кодом я понятия не имею. Вроде как-то через Replace(Name, """", "")
Изменено: afonason - 30.05.2024 12:53:46
 
Перейти    
Убрать кавычки из названия организации, Убрать лишние кавычки при открытии формы
 
#
30.05.2024 10:15:37
Цитата
написал:
копирует, без кавычек, не тормозит
В исходном файле больше данных вбить и есть дополнительные макросы

нашел информацию что можно записать
Код
Columns"L:L").Select
Selection.Copy
Columns("W:W").Select
ActiveSheet.Paste

таким образом
Columns("L:L").Copy Columns("W:W")
но как убрать кавычки при такой записи непонятно
 
Перейти    
Убрать кавычки из названия организации, Убрать лишние кавычки при открытии формы
 
#
30.05.2024 10:00:48
Помогите с макросом. Нужно чтобы названия организация из колонки L копировалось в колонку W, но без кавычек. А также если в ячейке колонки L ИПшник также убрать кавычки.
Скрытый текст

Через запись макроса сделал вот это, но мне кажется файл из-за этого тормозит. И не убирает кавычки с ИПшников.
Код
Private Sub UserForm_Activate()
    Columns("L:L").Select
    Application.CutCopyMode = False
    Selection.Copy
    Columns("W:W").Select
    ActiveSheet.Paste
    Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Application.CutCopyMode = False
End Sub
Изменено: afonason - 30.05.2024 13:22:28
 
Перейти    
Удаление повторяющихся строк по нескольким значениям
 
#
23.05.2024 16:30:06
Данный вариант работает в моём случае, но нужна модернизация. Необходимо чтобы последней из удаляемых строк оставалась та у которой более свежая дата по столбцу E (дата).
Код
Sub Button2_Click()
    Application.ScreenUpdating = False
        arr = Range("B2:B" & Cells(Rows.Count, 1).End(xlUp).Row).Value
        Set slov = CreateObject("scripting.dictionary")
        For i = UBound(arr) To 1 Step -1
            If Not slov.exists(arr(i, 1)) Then
                slov.Item(arr(i, 1)) = i
            Else
                Rows(i + 1).Delete
            End If
        Next
    Application.ScreenUpdating = True
End Sub
Скрытый текст
Изменено: afonason - 24.05.2024 09:08:21
 
Перейти    
Отправка почтового сообщения, используя CDO, макрос работает только для почтового сервера
 
#
22.05.2024 15:07:04
Хотел уточнить, как добавить в макрос копию и скрытую копию письма (нужна поскольку письмо не отображается в моем ящике как отправленное).
 
Перейти    
Как из excel открыть файл word и сохранить его в формате pdf
 
#
14.05.2024 13:42:33
Пришлось поменять порядок строк, но сработало. Спасибо!
Скрытый текст
 
Перейти    
Как из excel открыть файл word и сохранить его в формате pdf
 
#
14.05.2024 12:52:04
Есть макрос использующий данные из Эксель для заполнения шаблона Ворд. Я никак не могу понять как их поженить чтобы конечный документ сохранялся в PDF. Не очень удобно фиксированное значение константы DocFileName. Хотелось бы использовать имя созданного моим макросом файла. Все мои поиски не увенчались успехом. Попытка приравнять DocFileName и wdDoc тоже ничего не дала.
Код
Sub main3()
Dim wdApp As Object
Dim wdDoc As Object

HomeDir$ = ThisWorkbook.Path
Set wdApp = CreateObject("Word.Application")

i% = 13

DataC$ = Date
UB$ = Cells(i%, 1).Text
PR$ = Cells(i%, 3).Text

FileCopy HomeDir$ + "\SHudovl.docx", HomeDir$ + "\" + "уведомление о выплате" + "_" + PR$ + ".docx"
Set wdDoc = wdApp.Documents.Open(HomeDir$ + "\" + "уведомление о выплате" + "_" + PR$ + ".docx")

wdDoc.Range.Find.Execute FindText:="&date", ReplaceWith:=DataC$
wdDoc.Range.Find.Execute FindText:="&ub", ReplaceWith:=UB$
wdDoc.Range.Find.Execute FindText:="&pr", ReplaceWith:=PR$

wdDoc.Save
wdDoc.Close
wdApp.Quit
MsgBox "Готово!"

End Sub
 
Перейти    
Страницы: 1
Наверх