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

Страницы: 1
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) нигде не нашел.
Скрытый текст
 
Перейти    
Убрать кавычки из названия организации, Убрать лишние кавычки при открытии формы
 
#
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
 
Перейти    
Страницы: 1
Наверх