Код VBA для преобразования .jpg в .pdf и других преобразований
Николь Мари
Новый член
- #1
Нам требуется много времени, чтобы вручную преобразовать различные типы файлов в формат PDF для загрузки в систему обработки изображений. У меня есть этот код для преобразования .doc в .pdf, и он работает:
Код:
[FONT=courier new]Sub WordtoPDF()[/FONT] [FONT=courier new]Application.ScreenUpdating = False[/FONT] [FONT=новый курьер] [/ШРИФТ] [FONT=courier new]Тусклый файл[/FONT] [FONT=courier new]Тусклый путь как строка[/FONT] [FONT=новый курьер] [/ШРИФТ] [FONT=courier new]path = "U:\Documents\File Conversion Test"[/FONT] [FONT=новый курьер] [/ШРИФТ] [FONT=courier new]file = Dir(path & "*.doc") 'Dir означает каталог[/FONT] [FONT=courier new]Do While file <> "" '<> означает не равно, поэтому это означает, что имя файла не является пустым[/FONT] [FONT=courier new]Documents.Open FileName:=путь и файл 'Открыть файлы, расположенные в этом каталоге, заканчивающиеся на .doc[/FONT] [FONT=новый курьер] [/ШРИФТ] [FONT=новый курьер] ActiveDocument.ExportAsFixedFormat OutputFileName:= _[/FONT] [FONT=courier new] файл и ".pdf", _[/FONT] [FONT=courier new] ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _[/FONT] [FONT=courier new] wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _[/FONT] [FONT=новый курьер] Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _[/FONT] [FONT=новый курьер] CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _[/FONT] [FONT=новый курьер] BitmapMissingFonts:=True, UseISO19005_1:=Ложь[/FONT] [FONT=courier new] ChangeFileOpenDirectory "U:\Documents\File Conversion Test"[/FONT] [FONT=новый курьер] [/ШРИФТ] [FONT=courier new]ActiveDocument. Save 'Сохранить активный документ[/FONT] [FONT=courier new]ActiveDocument.Close 'Закрыть активный документ[/FONT] [FONT=новый курьер] [/ШРИФТ] [FONT=новый курьер]file = Dir()[/FONT] [FONT=новый курьер] [/ШРИФТ] [FONT=новый курьер]Цикл[/FONT] [FONT=новый курьер] [/ШРИФТ] [FONT=courier new]Application.ScreenUpdating = True[/FONT] [FONT=courier new]End Sub[/FONT]
Кроме того, как изменить этот код для преобразования .JPG в .PDF? Я много искал и нашел пару (где код вставляет изображение в документ Excel, а затем сохраняет его в формате PDF), но мне нужно, чтобы он зашел и нашел все .jpg в заданной папке , как показано выше, и конвертировать. Наконец, могу ли я включить это в существующий код (который сейчас у меня есть в Word VBA) или мне придется создать новый? Будет ли он существовать в Word, или мне придется поместить его в Excel? Я очень новичок в VBA и пытаюсь учиться (я искал форумы и даже проверил книгу в библиотеке, чтобы помочь мне понять / помочь мне прочитать кодирование), поэтому любая помощь для этого новичка действительно приветствуется!
Спасибо.
Последнее редактирование модератором:
Как суммировать видимые ячейки?
Нажмите здесь, чтобы открыть ответ
В первой пустой ячейке под отфильтрованным набором данных нажмите Alt+=. Вместо СУММ вы получите ПРОМЕЖУТОЧНЫЙ ИТОГ (9,)
Сортировать по дате Сортировать по голосам
Макропод
Модератор в отставке
- #2
Код:
ПоддоктоPDF()
Application.ScreenUpdating = Ложь
Dim strFolder как строка, strFile как строка, strDocNm как строка, wdDoc как документ
strDocNm = АктивДокумент.ПолноеИмя
стрфолдер = получить папку
Если strFolder = "", то выйдите из Sub
strFile = Dir(strFolder & "\*.doc", vbNormal)
Пока strFile <> ""
Если strFolder & "\" & strFile <> strDocNm Тогда
Установите wdDoc = Documents.Open(FileName:=strFolder & "\" & strFile, AddToRecentFiles:=False, Visible:=False)
С wdDoc
.SaveAs FileName:=strFolder & Split(strFile, ".doc")(0) & ".pdf", FileFormat:=wdFormatPDF, AddToRecentFiles:=False
.Закрыть SaveChanges:=Истина
Конец с
Конец, если
стрФайл = Каталог()
Венд
Установите wdDoc = Ничего
Application.ScreenUpdating = Истина
Конец сабвуфера
Функция GetFolder() как строка
Dim oFolder как объект
ПолучитьПапку = ""
Set oFolder = CreateObject("Shell.
Application").BrowseForFolder(0, "Выберите папку", 0)
Если (Not oFolder равно Nothing) Then GetFolder = oFolder.Items.Item.Path
Установить папку = Ничего
Завершить функцию 
Голосовать за 0
Николь Мари
Новый член
- #3
Спасибо за полезную информацию! Я предполагаю, что нет никаких программ (между Word, Excel и Access), которые могут читать .
jpg, верно? Если бы я хотел вставить их в файлы Word или Excel и сохранить в формате PDF, как бы я написал этот код? Я могу записать себя, добавив .jpg в программу и сохранив его как PDF, но мне больше всего интересно, как написать цикл для захвата нескольких файлов .jpg по одному из одного каталога?
Голосовать за 0
Николь Мари
Новый член
- #4
Sub JPG_PDF()
‘
‘ Макрос JPG_PDF
‘
Application.
ScreenUpdating = False
‘Объявить переменные
Dim file
Dim path As String
path = «C :\Documents\File Conversion Test»
файл = Dir(path & «*.jpg»)
Sheet1.Activate
‘Начать цикл
Do While file <> «»
‘Вставить изображение в Excel
Sheet1.Pictures.Insert (путь и файл)
ActiveSheet.Pictures (ActiveSheet.Pictures.Count).name = «Изображение»
ChDir «C:\Documents\File Conversion Test»
ActiveSheet.ExportAsFixedFormat Тип:=xlTypePDF, Имя файла:=файл, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
ActiveSheet.Shapes.Range(Array(«A Picture»)).delete
file = Dir()
Loop
Sheet2.Activate
Application.ScreenUpdating = True
900 22 Конец Sub
Голосовать за 0
Николь Мари
Новый член
- #5
РЕКЛАМА
Привет еще раз,Возвращаясь к первому сообщению — кто-нибудь знает, почему код может пропускать первый документ в папке?
Голосовать за 0
Макропод
Модератор в отставке
- #6
Сомневаюсь, что в коде чего-то не хватает. Скорее всего, у вас есть два или более документа с одинаковым именем (но разными расширениями), и при обработке одного документа он перезаписывает любой документ с таким же именем уже существующим расширением PDF.
Голосовать за 0
Николь Мари
Новый член
- #7
РЕКЛАМА
Привет Пол,Спасибо за идею. Я попробовал это с несколькими разными образцами, и похоже, что у меня нет документов с таким же именем. У вас есть другие мысли?
Еще раз спасибо!
Голосовать за 0
Макропод
Модератор в отставке
- #8
Возможно, соответствующий файл имеет некоторую форму защиты (например, пароль для открытия) или имеет нечитаемое содержимое. В опубликованном мной коде нет ничего, что позволило бы пропустить файл, если только это не файл, из которого запускается макрос — ваш собственный код даже не имеет такого ограничения, — но также завершится, как только он обработает себя.
Голосовать за 0
Николь Мари
Новый член
- #9
Еще раз спасибо!
Голосовать за 0
биматммет
Новый член
- #10
KIndle требует загрузить обложку в формате PDF. Я определенно получил правильные размеры JPG, потому что Kindle предоставляет шаблон для обложки.
Решение?
Спасибо
Голосовать за 0
Вы должны войти или зарегистрироваться, чтобы ответить здесь.
Преобразование Word в PDF, а затем объединение файлов PDF
- jpsimmon
- Общее обсуждение и другие приложения
- Ответы
- 5
- просмотров
- 303
Macropod
Странный результат кода
- Chris_010101
- Общее обсуждение и другие приложения
- Ответы
- 2
- просмотров
- 342
Chris_010101
Word VBA Сохранить как, закрыть текущую работу и автоматически открыть сохраненную версию
- Tayl4n
- Общее обсуждение и другие приложения
- Ответы
- 6
- просмотров
- 690
Макропод
Ошибка выполнения при слиянии с Microsoft Word
- theatl96
- Общее обсуждение и другие приложения
- Ответы
- 0
- просмотров
- 685
theatl96
Строка VBA для автоматического нажатия клавиши ВВОД в сценарии
- поркамолли
- Общее обсуждение и другие приложения
- Ответы
- 1
- просмотров
- 3К
Крис Фостер
Делиться:Фейсбук Твиттер Реддит Пинтерест Тамблер WhatsApp Электронная почта Делиться Связь
JPG в Word — конвертируйте JPG в DOC бесплатно онлайн
Преобразование JPG в DOC онлайн и бесплатно
Шаг 1. Выберите файлы для преобразования
Перетащите файлы Как мои файлы защищены?
Шаг 2. Конвертируйте файлы в формат
Преобразуйте в форматИли выберите другой формат
Шаг 3. Начните преобразование
(и примите наши Условия)
Электронная почта, когда закончите? Вы пытаетесь загрузить файл, размер которого превышает наш лимит в 50 МБ.
Вам нужно будет создать платную учетную запись Zamzar, чтобы иметь возможность загрузить преобразованный файл. Хотите продолжить загрузку файла для конвертации?
* Ссылки должны иметь префикс http или https , например. http://48ers.com/magnacarta.pdf
Частные лица и компании доверяют Zamzar с 2006 года. Мы обеспечиваем безопасность ваших файлов и данных и предлагаем выбор и контроль над удалением файлов.
- Бесплатные преобразованные файлы надежно хранятся не более 24 часов
- Файлы платных пользователей хранятся до тех пор, пока они не решат их удалить
- Все пользователи могут удалять файлы до истечения срока их действия
4,5 из 5 на основании 270 отзывов
Trustpilot
Нам доверяют сотрудники этих брендов
Сотрудники некоторых из самых известных мировых брендов полагаются на Zamzar для безопасного и эффективного преобразования своих файлов, гарантируя, что у них есть форматы, необходимые для работы.
Сотрудники этих организаций, от глобальных корпораций и медиа-компаний до уважаемых учебных заведений и газетных изданий, доверяют Zamzar предоставление точных и надежных услуг по конвертации, в которых они нуждаются.
Ваши файлы в надежных руках
От вашего личного рабочего стола до ваших бизнес-файлов — мы обеспечим вас
Мы предлагаем ряд инструментов, которые помогут вам конвертировать ваши файлы наиболее удобным для вас способом. Помимо нашей онлайн-службы преобразования файлов, мы также предлагаем настольное приложение для преобразования файлов прямо с вашего рабочего стола и API для автоматического преобразования файлов для разработчиков. Какой инструмент вы используете, зависит от вас!
Хотите конвертировать файлы прямо с рабочего стола?
Получить приложениеПолностью интегрирован в ваш рабочий стол
Преобразование более 150 различных форматов файлов
Преобразование документов, видео, аудио файлов в один клик
Нужна функциональность преобразования в вашем приложении?
Изучите APIОдин простой API для преобразования файлов
100 форматов на ваш выбор
Документы, видео, аудио, изображения и многое другое.
..
Почему выбирают Замзар?
С Zamzar конвертация файлов проста, надежна и удобна, поэтому вы можете быстро конвертировать документы, изображения, видео и многое другое в нужные вам форматы. Благодаря более быстрой загрузке преобразованных файлов и дружелюбной и полезной поддержке, когда вам это нужно, у вас будет все необходимое для работы с вашими файлами.
Quick
Добавление на сайт функции преобразования в реальном времени означает, что ваши файлы будут преобразованы намного быстрее.
Облачная версия
Благодаря тому, что наш онлайн-инструмент поддерживает более 1100 типов преобразования файлов, вам больше не потребуется загружать программное обеспечение для преобразования файла.
Быстрые загрузки
Мы не размещаем никакой внешней рекламы, а это означает, что мы сосредоточены исключительно на быстром и точном преобразовании ваших файлов.
Новые типы преобразования
Примеры некоторых новых типов преобразования, которые мы недавно добавили, включают преобразование отсканированного PDF в TXT и преобразование GIF в MP4!
Инструменты для преобразования файлов и сжатия файлов
Вы найдете все необходимые инструменты для преобразования и сжатия в одном месте на Zamzar.
С поддержкой более 1100 типов преобразования файлов, независимо от того, нужно ли вам конвертировать видео, аудио, документы или изображения, вы легко найдете то, что вам нужно, и вскоре ваши файлы будут в форматах и размерах, которые вам подходят.
Формат изображения JPG Конвертер JPG
JPG, или JPEG, является одним из наиболее широко используемых форматов цифровых изображений. JPG — это универсальный формат, который можно открыть почти во всех программах просмотра или редактирования изображений, в веб-браузерах и некоторых других приложениях, и они поддерживаются большинством устройств. JPG — это 2D-пиксельные «растровые» изображения, которые лучше подходят для фотографий или сканов, а не для цифровых иллюстраций, которые часто лучше подходят для «векторных» изображений. Многие камеры, смартфоны и базовые программы для работы с фотографиями или рисованием автоматически сохраняют изображения в формате JPG.
Однако обычно вы можете настроить параметры для сохранения в других форматах, если это необходимо.
JPEG расшифровывается как Joint Photographic Experts Group, название комитета, который стандартизировал формат. JPG — это формат с потерями, что означает, что он сжат для экономии места на диске и упрощения обмена. Это сжатие может повлиять на качество, но эта потеря качества не заметна для большинства пользователей.
Связанные инструменты
- Преобразователи изображений
- Конвертер JPG
- Сжимайте JPG-файлы
Формат документа DOC DOC-конвертер
DOC и DOCX являются наиболее распространенными форматами файлов для обработки текстов.
DOC в основном использовался Microsoft для своей программы Word до 2003 года. С 2007 года Word использует DOCX в качестве стандарта, хотя вы по-прежнему можете открывать файлы DOC и сохранять их в более старом формате. DOC и DOCX используются для форматированных текстовых документов, таких как отчеты, письма или резюме. Они могут включать изображения, диаграммы и графики, а также обычный или форматированный текст, а также могут содержать редактируемый шаблон.
Word является частью Microsoft Office, который доступен в виде платного программного приложения или доступен в Интернете по подписке Microsoft 365. Microsoft Office был разработан для операционной системы Windows, но вы также можете установить приложения Office в других операционных системах, таких как macOS от Apple и ChromeOS от Google. Базовая бесплатная программа «Word для Интернета» также доступна в Интернете для владельцев учетных записей Microsoft. Файлы DOC легко передавать и распечатывать, и их можно открыть в большинстве программ обработки текстов, включая LibreOffice, Apple Pages и Google Docs, а также в Microsoft Word.
Связанные инструменты
- Конвертеры документов
- DOC-конвертер
- Сжать файлы DOC
Как преобразовать JPG в файл DOC?
- 1. Выберите файл JPG, который вы хотите преобразовать.
- 2. Выберите DOC в качестве формата, в который вы хотите преобразовать файл JPG.
- 3. Нажмите «Преобразовать», чтобы преобразовать файл JPG.
Конвертировать из JPG
Используя Zamzar, можно конвертировать файлы JPG во множество других форматов:
JPG в AVIF JPG в BMP JPG в DOC JPG в DOCX JPG в GIF JPG в ICO JPG в PCX JPG в PDF JPG в PNG JPG в PS JPG в SVG JPG в TGA JPG в МИНИАТЮР JPG в TIFF JPG в WBMP JPG в WEBPКонвертировать в JPG
Используя Zamzar, можно конвертировать множество других форматов в файлы JPG:
3FR в JPG ИИ в JPG ARW в JPG AVIF в JPG BMP в JPG CDR в JPG CR2 в JPG CRW в JPG DJVU в JPG DNG в JPG DOC в JPG DOCX в JPG DWG в JPG DXF в JPG EMF в JPG EML в JPG EPS в JPG ERF в JPG GIF в JPG HEIC в JPG JFIF в JPG КЛЮЧ к JPG KEY.
ZIP в JPG
MDI в JPG
MEF в JPG
MPP в JPG
MRW в JPG
MSG в JPG
NEF в JPG
ODG в JPG
ORF в JPG
PCX в JPG
PDF в JPG
PEF в JPG
PNG в JPG
PPM в JPG
PPS в JPG
PPSX в JPG
PPT в JPG
PPTX в JPG
PS в JPG
PSD в JPG
PUB в JPG
RAF в JPG
RAW в JPG
SR2 в JPG
SVG в JPG
TGA в JPG
TIFF в JPG
VSD в JPG
VSDX в JPG
WBMP в JPG
WEBP в JPG
WMF в JPG
X3F в JPG
XCF в JPG
XLS в JPG
XLSX в JPG
XPS в JPGЧасто задаваемые вопросы
Если у вас есть какие-либо вопросы о преобразовании или сжатии файлов с помощью Zamzar, мы будем рады помочь! Ниже мы ответили на несколько часто задаваемых вопросов, чтобы вы могли начать работу, а дополнительную информацию о преобразовании и сжатии файлов с помощью Zamzar вы можете найти в нашем Справочном центре.
Изображение можно преобразовать в Word либо с помощью онлайн-инструмента преобразования, например, на веб-сайте Zamzar, либо с помощью загруженного программного обеспечения. Вы можете вставить файл JPG в новый документ Word с помощью Microsoft Word, используя параметр «Вставить» в строке меню, а затем выбрав «Изображения»; после того, как вы выбрали изображение, вы можете сохранить документ как файл DOC.
В качестве альтернативы, если у вас нет доступа к Microsoft Word, вы можете использовать бесплатный онлайн-инструмент Zamzar для преобразования изображения в Word в три быстрых шага: просто загрузите файл изображения, выберите «DOC» в качестве формата для преобразования в , а затем нажмите «Преобразовать сейчас». Затем вы сможете загрузить файл в виде документа Word.
Вы можете конвертировать JPG в DOC с помощью бесплатного онлайн-конвертера Zamzar. Наш бесплатный инструмент домашней страницы позволяет легко конвертировать файлы с помощью быстрого трехэтапного процесса.
В качестве альтернативы вы можете использовать программный инструмент преобразования, такой как Wondershare PDFelement, или импортировать изображение JPG непосредственно в пустой документ Word и сохранить его в формате DOC на свое устройство. Однако, если вам нужно преобразовать несколько файлов, преобразование с помощью Zamzar, вероятно, будет быстрее.
Вы можете превратить изображение в документ Google, используя онлайн-инструмент преобразования Zamzar. Загрузите изображение на шаге 1, выберите «doc» в раскрывающемся меню «Преобразовать в» шага 2, затем нажмите «Преобразовать сейчас» и загрузите преобразованный документ. После загрузки откройте Google Диск, нажмите «+ Новый» и выберите «Загрузить файл». Найдите загруженный файл и загрузите его на Google Диск. После этого у вас будет новый документ Google, доступный для использования.
Если на ваш компьютер загружен Google Диск, вы также должны иметь возможность щелкнуть правой кнопкой мыши файл изображения, выбрать открытие с помощью Документов Google, и файл изображения должен автоматически преобразоваться в документ Google.