Меню

Как doc конвертировать в docx

Как конвертировать старые документы, где найти DOC в DOCX конвертер. Более двадцати лет мы сохраняли компьютерные тексты и документы в формате DOC. Но времена меняются и на смену старым форматам приходят новые – DOCX. В этом формате сохраняет документы Microsoft Word, начиная с версии 2007. Формат DOC использовался в версиях Microsoft Word 97-2003.

Существует несколько способов. Выбирайте какой вам понравиться:

  1. Сохранение в новом формате DOCX с помощью Microsoft Word
  2. Сохранение в новом формате DOCX с помощью LibreOffice Writer
  3. Онлайн конвертер DOC в DOCX

Какой способ выбрать, чтобы открыть .docx документы во многом зависит от вашей операционной системы системы – MacOS, Linux или Windows? Какая версия Microsoft Office установлена у вас? Какова цель открытия DOCX документа – хотите его прочитать или отредактировать?

DOC (аббревиатура от «документ») является расширением файла текстовых документов; оно связано в основном с Microsoft и их программой Microsoft Word. Исторически сложилось так, что оно было использовано для документации в текстовом формате, в частности в программах или на компьютерной технике, в широком диапазоне операционных систем. Почти все использовали формат файла DOC каждый раз, при написании письма, при работе или вообще при написании чего-либо на компьютере вы бы использовали формат файла DOC. В 1990-х годах Microsoft выбрала расширение DOC для обработки своих файлов программы Microsoft Word. По мере развития и роста технологий ПК, первоначальное использование расширения стало менее важным и в значительной степени исчезло из мира ПК.

DOCX был введен с программой Microsoft Word 2007, он основан на Open XML и использует сжатие ZIP для уменьшения размера файла. Выгода от наличия открытого XML в том, что такой файл удобен для обработки документов программам и одновременно удобный для чтения и создания документов человеком, с подчёркиванием нацеленности на использование в Интернете. Однако, чтобы открыть его с помощью любого Microsoft Word,версия которого предшествовала 2007, потребуется преобразовать DOCX в формат DOC.

Лучший способ для пользователей Windows, у которых установлены старые версии Microsoft Office (ниже 2007), это установить пакет совместимости Microsoft для предыдущих версий Office, который добавляет поддержку .docx в Microsoft Word. Кроме того Пакет FileFormatConverters обеспечит совместимость файлов для Excel и PowerPoint. Если вы хотите только просматривать документы DOCX, не изменяя их, то можно установить приложение wordview_ru-ru от Microsoft

Если у вас установлена версия Microsoft Word 2007 или выше, открыв документ пересохраните его в новом формате.

Выбираем команду из Главного меню Файл – Сохранить как.. и указываем тип файла Документ Word вместо Документ Word 97-2003.

Выбираем команду из Главного меню Файл – Сохранить как.. и указываем тип файла Документ Word 2007-2013 XML(.docx) вместо Документ Word 97-2003 (.doc)

Установка LibreOffice описана в этой статье

Для пользователей, которые не используют Microsoft Office, можно воспользоваться одним из нескольких онлайн-конвертеров, которые преобразуют DOCX файлы в формат DOC. Чтобы преобразовать DOCX в DOC или DOC в DOCX, вы просто скопируйте без минусов ссылку на сайт конвертера– http://document.online-convert.com/ru — и нажмите на кнопку Обзор, чтобы выбрать документ на вашем компьютере. После этого нажмите кнопку Преобразовать файл. Через некоторое время вам будет предложено сохранить сконвертированный файл.

Интерфейс он-лайн конвертера

Он-лайн конвертер может преобразовывать не только текстовые форматы, но и аудио, видео, конвертировать электронные книги, изображения, архивы.

Дорогой читатель! Вы посмотрели статью до конца. Получили вы ответ на свой вопрос? Напишите в комментариях пару слов. Если ответа не нашли, укажите что искали.

источник

Предназначение текстовых файлов формата DOCX и DOC практически идентично, но, тем не менее, далеко не все программы, которые умеют работать с DOC, открывают более современный формат – DOCX. Давайте разберемся, как произвести преобразование файлов из одного вордовского формата в другой.

Несмотря на то, что оба формата являются разработкой компании Microsoft, с DOCX умеет работать только Ворд, начиная с версии Word 2007, не говоря уже о приложениях других разработчиков. Поэтому вопрос конвертирования DOCX в DOC стоит довольно остро. Все пути решения данной проблемы можно разбить на три группы:

  • Использование онлайн-конвертеров;
  • Применение программ для конвертирования;
  • Использование текстовых процессоров, поддерживающих оба эти формата.

Две последние группы способов мы и обсудим в данной статье.

Начнем с разбора действий по переформатированию с использованием универсального текстового конвертера AVS Документ Конвертер.

    Запустив Документ Конвертер, в группе «Выходной формат» нажимайте по «В DOC». Кликайте «Добавить файлы» в центре интерфейса приложения.

Есть вариант сделать щелчок по надписи с таким же наименованием рядом с пиктограммой в форме знака «+» на панели.

Также можете задействовать Ctrl+O или перейти по «Файл» и «Добавить файлы…».

Открывается окошко добавления исходника. Перейдите туда, где помещен DOCX, и обозначьте этот текстовый объект. Жмите «Открыть».

Также добавить исходник для обработки юзер может, перетащив из «Проводника» в Document Converter.

Содержимое объекта отобразится через интерфейс программы. Чтобы указать, в какую именно папку будут отправлены преобразованные данные, нажимайте «Обзор…».

Открывается оболочка выбора каталогов, отметьте ту папку, где будет базироваться трансформированный документ DOC, после чего нажмите «OK».

Теперь, когда в области «Выходная папка» появился адрес хранения преобразованного документа, можете запускать процесс конвертирования, нажав «Старт!».

Выполняется преобразование. Его прогресс отображается в процентном отношении.

После окончания процедуры появляется диалоговое окошко, где отображается информация об успешном выполнении задачи. Также появляется предложение переместиться в каталог размещения полученного объекта. Нажимайте «Откр. папку».

  • Запустится «Проводник» там, где помещен объект ДОК. Юзер может выполнять над ним любые стандартные действия.
  • Главным недостатком этого метода является то, что Документ Конвертер – это не бесплатный инструмент.

    Конвертер Convert Docx to Doc специализируется исключительно на переформатировании документов в обсуждаемом в этой статье направлении.

      Запустите приложение. В появившемся окошке, если вы используете пробную версию программы, то просто жмите «Try». Если же вы приобрели платную версию, то введите код в поле «License Code» и нажимайте «Register».

    В открывшейся оболочке программы нажимайте «Add Word».

    Также можете использовать другой метод перехода к добавлению исходника. В меню жмите «File», а затем «Add Word File».

    Запускается окошко «Select Word File». Перейдите в область нахождения объекта, обозначьте и нажимайте «Открыть». Можете выбрать сразу несколько объектов.

    После этого наименование выбранного объекта отобразится в основном окне Convert Docx to Doc в блоке «Word File Name». Обязательно проследите, чтобы напротив наименования документа была поставлена галочка. В случае отсутствия установите её. Для выбора, куда будет отправлен конвертированный документ, нажимайте «Browse…».

    Открывается «Обзор папок». Перейдите в область нахождения каталога, куда будет отправлен документ ДОК, отметьте его и кликайте «OK».

    После отображения выбранного адреса в поле «Output Folder» можете переходить к запуску процесса конвертирования. Указывать направление преобразования в изучаемом приложении не нужно, так как оно поддерживает только одно направление. Итак, для запуска процедуры конвертирования нажимайте «Convert».

    Читайте также:  Как называется мой телефон самсунг
  • После выполнения процедуры конвертирования появится окошко с сообщением «Conversion Complete!». Это означает то, что задача успешно выполнена. Остается нажать только на кнопку «OK». Отыскать новый объект DOC можно там, куда ссылается ранее прописанный пользователем адрес в поле «Output Folder».
  • Несмотря на то, что этот метод, как и предыдущий, предполагает использование платной программы, но, тем не менее, Convert Docx to Doc можно использовать бесплатно на протяжении тестового периода.

    Как уже было сказано выше, выполнять преобразование в указанном направлении могут не только конвертеры, но и текстовые процессоры, в частности Writer, входящий в пакет LibreOffice.

      Запустите LibreOffice. Нажмите «Открыть файл» или задействуйте Ctrl+O.

    Кроме того, можете воспользоваться меню, переместившись по «Файл» и «Открыть».

    Активируется оболочка выбора. Там требуется переместиться в ту файловую область винчестера, где располагается документ DOCX. Отметив элемент, кликайте «Открыть».

    Кроме того, если вы не хотите запускать окно выбора документа, то можно выполнить перетягивание DOCX из окна «Проводника» в стартовую оболочку LibreOffice.

    Каким бы образом вы не действовали (путем перетягивания или открытия окна), запустится приложение Writer, в котором отобразится содержимое выбранного документа DOCX. Теперь нам нужно будет преобразовать его в формат DOC.

    Жмите по позиции меню «Файл» и далее выбирайте «Сохранить как…». Вы также можете задействовать Ctrl+Shift+S.

    Активируется окошко сохранения. Перейдите туда, где собираетесь разместить преобразованный документ. В поле «Тип файла» выберите значение «Microsoft Word 97-2003». В области «Имя файла» при необходимости можно сменить наименование документа, но делать это не обязательно. Нажимайте «Сохранить».

    Отобразится окошко, где говорится о том, что выбранный формат может не поддерживать некоторые стандарты текущего документа. Это действительно так. Некоторые технологии доступные в «родном» формате Либре Офис Райтер, формат DOC не поддерживает. Но в подавляющем большинстве случаев на содержимом преобразовываемого объекта это мало отражается. К тому же, исходник все равно останется в прежнем формате. Так что смело жмите «Использовать формат Microsoft Word 97 – 2003».

  • После этого содержимое преобразовано в ДОК. Сам объект помещен там, куда ссылается адрес, заданный пользователем ранее.
  • В отличие от ранее описанных способов, данный вариант переформатирования DOCX в DOC бесплатный, но, к сожалению, с его помощью выполнить групповое конвертирование не получится, так как придется преобразовывать каждый элемент отдельно.

    Следующим текстовым процессором, который умеет преобразовывать DOCX в DOC, является приложение, тоже именующееся Writer, но входящее в OpenOffice.

      Запустите начальную оболочку Оупен Офис. Нажмите по надписи «Открыть…» или задействуйте Ctrl+O.

    Можете задействовать меню, нажав «Файл» и «Открыть».

    Запускается окно выбора. Перейдите к целевому DOCX, отметьте и жмите «Открыть».

    Как и при использовании предыдущей программы, тут также выполнимо перетягивание объектов в оболочку приложения из файлового диспетчера.

    Указанные выше действия приводят к открытию содержимого документа ДОК в оболочке Оупен Офис Райтер.

    Теперь переходим к процедуре преобразования. Жмите «Файл» и переходите по «Сохранить как…». Можно задействовать Ctrl+Shift+S.

    Открывается оболочка сохранения файла. Переместитесь в место, где желаете хранить DOC. В поле «Тип файла» обязательно выберите позицию «Microsoft Word 97/2000/XP». При необходимости можно сменить название документа в области «Имя файла». Теперь жмите «Сохранить».

    Появляется предупреждение о возможной несовместимости некоторых элементов форматирования с выбранным форматом, аналогичное тому, которое мы видели при работе с LibreOffice. Жмите «Использовать текущий формат».

  • Файл преобразуется в DOC и будет храниться в директории, которую указал юзер в окошке сохранения.
  • Естественно, что преобразовывать DOCX в DOC умеет и текстовый процессор, для которого оба эти формата являются «родными» – Microsoft Word. Но стандартным способом он может это делать, только начиная с версии Word 2007, а для более ранних версий нужно применять специальный патч, о котором мы поговорим в конце описания данного способа преобразования.

      Запустите Майкрософт Ворд. Для открытия DOCX жмите по вкладке «Файл».

    После перехода нажимайте «Открыть» в левой области оболочки программы.

    Активируется окошко открытия. Необходимо перейти в место расположения целевого DOCX и после того, как он будет отмечен, нажать «Открыть».

    Содержимое DOCX откроется в Ворде.

    Чтобы преобразовать открытый объект в DOC, опять перемещаемся в раздел «Файл».

    На этот раз, перейдя в названный раздел, нажимайте в левом меню по пункту «Сохранить как».

    Будет активирована оболочка «Сохранение документа». Перейдите в ту область файловой системы, где вы хотите хранить конвертированный материал после завершения процедуры. В области «Тип файла» выберите позицию «Документ Word 97 – 2003». Наименование объекта в области «Имя файла» пользователь может изменять исключительно по своему желанию. После выполнения указанных манипуляций для реализации процесса сохранения объекта нажимайте кнопку «Сохранить».

    Документ сохранится в формате DOC и расположится там, где вы указали до этого в окошке сохранения. При этом, его содержимое будет отображено через интерфейс Ворд в режиме ограниченной функциональности, так как формат DOC считается компанией Microsoft устаревшим.

    Теперь, как и обещали, поговорим о том, что делать пользователям, использующим Word 2003 или более ранних версий, которые не поддерживают работу с DOCX. Чтобы решить вопрос совместимости, достаточно скачать и установить специальный патч в виде пакета совместимости на официальном веб-ресурсе компании Microsoft. Более подробно об этом вы можете узнать из отдельной статьи.

    Проделав описанные в статье манипуляции, вы сможете запускать DOCX в Word 2003 и более ранних версиях стандартным способом. Чтобы преобразовать предварительно запущенный DOCX в DOC, достаточно будет провести ту процедуру, которую мы описывали выше для Word 2007 и более новых версий. То есть, перейдя по пункту меню «Сохранить как…», нужно будет открыть оболочку сохранения документа и, выбрав в данном окне тип файла «Документ Word», нажать на кнопку «Сохранить».

    Как видим, если пользователь не желает использовать онлайн-сервисы для конвертирования DOCX в DOC, а совершать данную процедуру на компьютере, не применяя интернет, то можно воспользоваться либо программами-конвертерами, либо текстовыми редакторами, работающими с обоими типами объектов. Безусловно, для одиночного преобразования, если у вас есть под рукой Microsoft Word, лучше использовать именно эту программу, для которой оба формата являются «родными». Но программа Ворд является платной, поэтому те пользователи, которые не желают её приобретать, могут воспользоваться бесплатными аналогами, в частности входящими в офисные пакеты LibreOffice и OpenOffice. Они мало в чем уступают в данном аспекте Ворду.

    Но, если нужно произвести массовое конвертирование файлов, то использование текстовых процессоров покажется очень неудобным, так как они позволяют преобразовать только один объект за раз. В этом случае рациональным будет применение специальных программ-конвертеров, поддерживающих указанное направление преобразования и позволяющих обрабатывать одновременно большое количество объектов. Но, к сожалению, конвертеры, которые работают по данному направлению конвертирования, практически все без исключения платные, хотя некоторые из них и можно использовать бесплатно ограниченный пробный период.

    Отблагодарите автора, поделитесь статьей в социальных сетях.

    источник

    Читайте также:  Как можно положить деньги на яндекс кошелек

    Естественно, продукты программного обеспечения не стоят на месте, они постоянно дорабатываются и совершенствуются. С появлением более удобных информативных комплексов старые версии отходят на задний план. Однако сейчас складывается такая ситуация, когда в организациях и фирмах далеко не сразу спешат устанавливать новые программы и системы, ввиду чего иногда появляется необходимость конвертировать файл в формате docx в предыдущую версию.

    Каждому пользователю, которому придётся справляться с этой несложной задачей, предстоит выбрать более оптимальный для него вариант — способ, которым будет происходить преобразование форматов. Конвертировать docx в doc можно несколькими различными методами.

    Ситуация, которая предшествует замене расширения, происходит после попытки открыть документ docx в Microsoft Office, который предшествует версии 2007 года. До сих пор не все активные пользователи текстовых редакторов знают, что в новой версии Ворда есть возможность просматривать, сохранять и редактировать файлы двух расширений. Следует учесть одно условие — во время сохранения файла, который позже придётся открывать, например, в версии Microsoft Office 2003, необходимо заблаговременно выбрать doc, в противном случае во время закрытия созданного документа он сохранится с расширением docx. Несмотря на то, что многие пользователи сталкиваются с этим существенным, на первый взгляд, недоразумением, создатели программного продукта не спешат избавиться от проблемы. Скорее всего, в этом есть своя экономическая выгода, которая подтолкнёт организации быстрее перейти на новую версию продукта, а не пытаться постоянно конвертировать docx в doc.

    Тем, кто столкнулся с необходимостью преобразовать docx в doc, поможет любой из нижеописанных методов. Важно только пошагово сделать все указанные действия.

    При наличии постоянного доступа к Интернету можно воспользоваться специализированными сайтами-конверторами. Важно отметить, что среди многообразия представленных платформ для конвертации встречаются как бесплатные, так и платные сайты. Чтобы из docx сделать doc, можно прибегнуть, например, к помощи сайта doc.investintech.com, работающего в постоянном онлайн-режиме. Сайт поможет легко и быстро изменить расширение. После перехода на соответствующую страницу пользователь должен найти кликабельную кнопку «Browse», после нажатия на которую следует выбрать тот документ, который нуждается в дальнейшей конвертации. В течение нескольких секунд происходит загрузка на сайт, при этом автоматически меняется формат. Чтобы получить обратно свой изменённый файл, нужно его скачать посредством активной кнопки Download.

    Иными словами, сайты-конвертёры работают всего в два клика, чем существенно экономят время на дополнительное открытие/закрытие документов и их загрузку в кэш. Конвертация состоит из загрузки файла docx и скачивания изменённого файла doc.

    Если на компьютере пользователя установлены программные продукты компании Microsoft, выпущенные в 2003 и 2007 годах соответственно, то изменить формат будет достаточно просто. После открытия файла в версии 2007, в одном из пунктов ниспадающего меню («Сохранить как») следует указать на желание пользователя сохранить документ doc, в результате сохранённый с другим форматом файл можно будет открывать и редактировать в Office версий 1997–2003 годов.

    Следует отметить, что преобразовать docx в doc можно даже без специализированного программного продукта, например, в том случае, если принципиально лишь наличие текста, присутствующего в документе, то можно посредством такого текстового редактора, как Wordpad, открыть файл, скопировать его содержание и в дальнейшем сохранить его в формате doc.

    Чтобы документ в формате docx сделать с расширением doc, необязательно прибегать к помощи сторонних сайтов-конверторов. Официальный сайт-создатель помогает конвертировать форматы посредством специального пакета, предназначенного для совместимости двух разных версий текстового редактора. Пользователю нужно зайти на сайт microsoft.com и скачать нужный пакет (microsoft.com/ru-ru/download/details.aspx? >

    После загрузки и последующей установки дополнения можно запустить программу Word 2003, в открывшемся диалоговом окне указать местоположение документа с расширением docx и открыть его. Преобразование займёт меньше минуты, а перед пользователем откроется нужный текст. Важно отметить, что дополнение от производителя позволяет открывать и сохранять документы в том формате, который необходим пользователю.

    Из всего вышесказанного следует отметить, что преобразовать один формат документа в другой не так уж и сложно, надо лишь несколько минут свободного времени и минимальные навыки работы с компьютером.

    источник

    Задача: Имеется папка с белее чем 10000 подпапок и файлов разнообразных форматов. Требуется найти в этой куче файлы *.doc и конвертировать их в *.docx с сохранением атрибутов (дата/время последнего изменения файла) и последующим удалением исходных *.doc файлов. Новые *.docx файлы должны быть сохранены в тех же папках, что и их исходные *.doc файлы.

    Прошу помощи в решении задачи. Пытался использовать программы конвертеры, но они не удовлетворяют всем указанным условиям задачи

    Задача: Имеется папка с белее чем 10000 подпапок и файлов разнообразных форматов. Требуется найти в этой куче файлы *.doc и конвертировать их в *.docx с сохранением атрибутов (дата/время последнего изменения файла) и последующим удалением исходных *.doc файлов. Новые *.docx файлы должны быть сохранены в тех же папках, что и их исходные *.doc файлы.

    Прошу помощи в решении задачи. Пытался использовать программы конвертеры, но они не удовлетворяют всем указанным условиям задачи Didrou

    Сообщение Доброе время суток!

    Задача: Имеется папка с белее чем 10000 подпапок и файлов разнообразных форматов. Требуется найти в этой куче файлы *.doc и конвертировать их в *.docx с сохранением атрибутов (дата/время последнего изменения файла) и последующим удалением исходных *.doc файлов. Новые *.docx файлы должны быть сохранены в тех же папках, что и их исходные *.doc файлы.

    Прошу помощи в решении задачи. Пытался использовать программы конвертеры, но они не удовлетворяют всем указанным условиям задачи Автор – Didrou
    Дата добавления – 08.02.2016 в 11:37

    код функции FilenamesCollection взял тут

    код функции FilenamesCollection взял тут krosav4ig

    код функции FilenamesCollection взял тут Автор – krosav4ig
    Дата добавления – 09.02.2016 в 21:10

    email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

    в общем, понагородил все подряд .

    200?’200px’:”+(this.scrollHeight+5)+’px’);”> Option Explicit

    Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
    End Type

    Private Declare Function CreateFile Lib “kernel32” Alias “CreateFileA” ( _
    ByVal lpFileName As String, _
    ByVal dwDesiredAccess As Long, _
    ByVal dwShareMode As Long, _
    ByVal lpSecurityAttributes As Long, _
    ByVal dwCreationDisposition As Long, _
    ByVal dwFlagsAndAttributes As Long, _
    ByVal hTemplateFile As Long _
    ) As Long
    Private Declare Function GetFileTime Lib “kernel32” ( _
    ByVal hFile As Long, _
    lpCreationTime As FILETIME, _
    lpLastAccessTime As FILETIME, _
    lpLastWriteTime As FILETIME _
    ) As Long
    Private Declare Function SetFileTime Lib “kernel32” ( _
    ByVal hFile As Long, _
    lpCreationTime As FILETIME, _
    lpLastAccessTime As FILETIME, _
    lpLastWriteTime As FILETIME _
    ) As Long
    Private Declare Function GetFileAttributes Lib “kernel32.dll” Alias “GetFileAttributesA” ( _
    ByVal lpFileName As String _
    ) As Long
    Private Declare Function SetFileAttributes Lib “kernel32.dll” Alias “SetFileAttributesA” ( _
    ByVal lpFileName As String, _
    ByVal dwFileAttributes As Long _
    ) As Long
    Private Declare Function CloseHandle Lib “kernel32” ( _
    ByVal hObject As Long _
    ) As Long

    Private Const _
    GENERIC_WRITE& = &H40000000, _
    GENERIC_READ = &H80000000, _
    OPEN_EXISTING& = 3

    Private Sub CommandButton1_Click()
    Dim strFolder$
    Dim CreationTime As FILETIME, _
    LastAccessTime As FILETIME, _
    LastWriteTime As FILETIME
    With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
    If .Show Then strFolder = .SelectedItems(1) Else Exit Sub
    End With
    Dim coll As Collection, strFilePath, strNewFilePath$, hFile&, hFileAttr&
    Dim DocProp(1 To 6) As Variant, objTimeZone As Object, zip$, TZOffset#
    Set coll = FilenamesCollection(strFolder, “.doc”)
    Application.ScreenUpdating = False
    For Each strFilePath In coll
    ‘создаем файловый дескриптор, указывающий на исходный файл
    hFile = CreateFile(strFilePath, GENERIC_READ, 0&, 0&, OPEN_EXISTING, 0&, 0&)
    ‘читаем датувремя создания, открытия, сохранения файла
    GetFileTime hFile, CreationTime, LastAccessTime, LastWriteTime
    hFileAttr = GetFileAttributes(strFilePath)
    ‘закрываем дескриптор
    CloseHandle hFile
    With Documents.Open(strFilePath)
    strNewFilePath = Left(.FullName, InStrRev(.FullName, “.”)) & “docx”
    ‘этот блок нужен для переноса встроенных свойств файла
    ‘7-last author,8=revision number,9-application name,11-creation date
    ’12-last save time,13-total editing time
    With .BuiltInDocumentProperties
    DocProp(1) = .Item(7): DocProp(2) = .Item(8)
    DocProp(3) = .Item(9): DocProp(4) = .Item(11)
    DocProp(5) = .Item(12): DocProp(6) = .Item(13)
    End With
    .SaveAs strNewFilePath, 12: .Convert: .Save
    .Close: ‘Kill strFilePath ‘удаление исходного файла
    End With
    ‘определяем часовой пояс
    With GetObject(“winmgmts:” & “!\\.\root\cimv2″)
    For Each objTimeZone In .ExecQuery(“Select * from Win32_TimeZone”)
    TZOffset = objTimeZone.Bias / 1440
    Next
    End With
    ‘заменяем встроенные свойства скопированного файла
    zip = “%ProgramFiles(x86)%\7-Zip\7z.exe”
    With CreateObject(“wscript.shell”)
    .Run “%comspec% /c “”cd “”” & Environ(“tmp”) & “””&&””” & zip & _
    “”” x “”” & strNewFilePath & “”” docProps\app.xml -y”””, 0, 1
    .Run “%comspec% /c “”cd “”” & Environ(“tmp”) & “””&&””” & zip & _
    “”” x “”” & strNewFilePath & “”” docProps\core.xml -y”””, 0, 1
    With CreateObject(“MSXML2.DOMDocument.4.0”)
    .async = False: .val > .Load Environ(“tmp”) & “\docProps\core.xml”
    .setProperty “SelectionLanguage”, “XPath”
    .setProperty “SelectionNamespaces”, _
    “xmlns:cp=’http://schemas.openxmlformats.org/package/2006/metadata/core-properties’ ” & _
    “xmlns:dc=’http://purl.org/dc/elements/1.1/’ ” & _
    “xmlns:dcterms=’http://purl.org/dc/terms/’ ” & _
    “xmlns:dcmitype=’http://purl.org/dc/dcmitype/’ ” & _
    “xmlns:xsi=’http://www.w3.org/2001/XMLSchema-instance'”
    .SelectSingleNode(“//cp:lastModifiedBy”).Text = DocProp(1)
    .SelectSingleNode(“//cp:revision”).Text = DocProp(2)
    .SelectSingleNode(“//dcterms:created”).Text = _
    Format(DocProp(4) – TZOffset, “yyyy-mm-ddTHH:MM:SSZ”)
    .SelectSingleNode(“//dcterms:modified”).Text = _
    Format(DocProp(5) – TZOffset, “yyyy-mm-ddTHH:MM:SSZ”)
    .Save Environ(“tmp”) & “\docProps\core.xml”
    End With
    With CreateObject(“MSXML2.DOMDocument.3.0”)
    .async = False: .val > .Load Environ(“tmp”) & “\docProps\app.xml”
    .SelectSingleNode(“//Application”).Text = DocProp(3)
    .SelectSingleNode(“//TotalTime”).Text = DocProp(6)
    .Save Environ(“tmp”) & “\docProps\app.xml”
    End With
    .Run “%comspec% /c “”cd “”” & Environ(“tmp”) & “””&&””” & zip & _
    “”” u “”” & strNewFilePath & “”” docProps\app.xml -y”””, 0, 1
    .Run “%comspec% /c “”cd “”” & Environ(“tmp”) & “””&&””” & zip & _
    “”” u “”” & strNewFilePath & “”” docProps\core.xml -y”””, 0, 1
    Kill Environ(“tmp”) & “\docProps\*.*”
    RmDir Environ(“tmp”) & “\docProps”
    End With
    ‘создаем файловый дескриптор, указывающий на конвертированный файл
    hFile = CreateFile(strNewFilePath, GENERIC_WRITE, 0&, 0&, OPEN_EXISTING, 0&, 0&)
    ‘заменяем датувремя создания, открытия, сохранения файла
    SetFileTime hFile, CreationTime, LastAccessTime, LastWriteTime
    SetFileAttributes strNewFilePath, hFileAttr
    ‘закрываем дескриптор
    CloseHandle hFile
    Next
    Application.ScreenUpdating = True
    End Sub

    Читайте также:  Как есть цветную капусту сырой или вареной

    в общем, понагородил все подряд .

    200?’200px’:”+(this.scrollHeight+5)+’px’);”> Option Explicit

    Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
    End Type

    Private Declare Function CreateFile Lib “kernel32” Alias “CreateFileA” ( _
    ByVal lpFileName As String, _
    ByVal dwDesiredAccess As Long, _
    ByVal dwShareMode As Long, _
    ByVal lpSecurityAttributes As Long, _
    ByVal dwCreationDisposition As Long, _
    ByVal dwFlagsAndAttributes As Long, _
    ByVal hTemplateFile As Long _
    ) As Long
    Private Declare Function GetFileTime Lib “kernel32” ( _
    ByVal hFile As Long, _
    lpCreationTime As FILETIME, _
    lpLastAccessTime As FILETIME, _
    lpLastWriteTime As FILETIME _
    ) As Long
    Private Declare Function SetFileTime Lib “kernel32” ( _
    ByVal hFile As Long, _
    lpCreationTime As FILETIME, _
    lpLastAccessTime As FILETIME, _
    lpLastWriteTime As FILETIME _
    ) As Long
    Private Declare Function GetFileAttributes Lib “kernel32.dll” Alias “GetFileAttributesA” ( _
    ByVal lpFileName As String _
    ) As Long
    Private Declare Function SetFileAttributes Lib “kernel32.dll” Alias “SetFileAttributesA” ( _
    ByVal lpFileName As String, _
    ByVal dwFileAttributes As Long _
    ) As Long
    Private Declare Function CloseHandle Lib “kernel32” ( _
    ByVal hObject As Long _
    ) As Long

    Private Const _
    GENERIC_WRITE& = &H40000000, _
    GENERIC_READ = &H80000000, _
    OPEN_EXISTING& = 3

    Private Sub CommandButton1_Click()
    Dim strFolder$
    Dim CreationTime As FILETIME, _
    LastAccessTime As FILETIME, _
    LastWriteTime As FILETIME
    With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
    If .Show Then strFolder = .SelectedItems(1) Else Exit Sub
    End With
    Dim coll As Collection, strFilePath, strNewFilePath$, hFile&, hFileAttr&
    Dim DocProp(1 To 6) As Variant, objTimeZone As Object, zip$, TZOffset#
    Set coll = FilenamesCollection(strFolder, “.doc”)
    Application.ScreenUpdating = False
    For Each strFilePath In coll
    ‘создаем файловый дескриптор, указывающий на исходный файл
    hFile = CreateFile(strFilePath, GENERIC_READ, 0&, 0&, OPEN_EXISTING, 0&, 0&)
    ‘читаем датувремя создания, открытия, сохранения файла
    GetFileTime hFile, CreationTime, LastAccessTime, LastWriteTime
    hFileAttr = GetFileAttributes(strFilePath)
    ‘закрываем дескриптор
    CloseHandle hFile
    With Documents.Open(strFilePath)
    strNewFilePath = Left(.FullName, InStrRev(.FullName, “.”)) & “docx”
    ‘этот блок нужен для переноса встроенных свойств файла
    ‘7-last author,8=revision number,9-application name,11-creation date
    ’12-last save time,13-total editing time
    With .BuiltInDocumentProperties
    DocProp(1) = .Item(7): DocProp(2) = .Item(8)
    DocProp(3) = .Item(9): DocProp(4) = .Item(11)
    DocProp(5) = .Item(12): DocProp(6) = .Item(13)
    End With
    .SaveAs strNewFilePath, 12: .Convert: .Save
    .Close: ‘Kill strFilePath ‘удаление исходного файла
    End With
    ‘определяем часовой пояс
    With GetObject(“winmgmts:” & “!\\.\root\cimv2″)
    For Each objTimeZone In .ExecQuery(“Select * from Win32_TimeZone”)
    TZOffset = objTimeZone.Bias / 1440
    Next
    End With
    ‘заменяем встроенные свойства скопированного файла
    zip = “%ProgramFiles(x86)%\7-Zip\7z.exe”
    With CreateObject(“wscript.shell”)
    .Run “%comspec% /c “”cd “”” & Environ(“tmp”) & “””&&””” & zip & _
    “”” x “”” & strNewFilePath & “”” docProps\app.xml -y”””, 0, 1
    .Run “%comspec% /c “”cd “”” & Environ(“tmp”) & “””&&””” & zip & _
    “”” x “”” & strNewFilePath & “”” docProps\core.xml -y”””, 0, 1
    With CreateObject(“MSXML2.DOMDocument.4.0”)
    .async = False: .val > .Load Environ(“tmp”) & “\docProps\core.xml”
    .setProperty “SelectionLanguage”, “XPath”
    .setProperty “SelectionNamespaces”, _
    “xmlns:cp=’http://schemas.openxmlformats.org/package/2006/metadata/core-properties’ ” & _
    “xmlns:dc=’http://purl.org/dc/elements/1.1/’ ” & _
    “xmlns:dcterms=’http://purl.org/dc/terms/’ ” & _
    “xmlns:dcmitype=’http://purl.org/dc/dcmitype/’ ” & _
    “xmlns:xsi=’http://www.w3.org/2001/XMLSchema-instance'”
    .SelectSingleNode(“//cp:lastModifiedBy”).Text = DocProp(1)
    .SelectSingleNode(“//cp:revision”).Text = DocProp(2)
    .SelectSingleNode(“//dcterms:created”).Text = _
    Format(DocProp(4) – TZOffset, “yyyy-mm-ddTHH:MM:SSZ”)
    .SelectSingleNode(“//dcterms:modified”).Text = _
    Format(DocProp(5) – TZOffset, “yyyy-mm-ddTHH:MM:SSZ”)
    .Save Environ(“tmp”) & “\docProps\core.xml”
    End With
    With CreateObject(“MSXML2.DOMDocument.3.0”)
    .async = False: .val > .Load Environ(“tmp”) & “\docProps\app.xml”
    .SelectSingleNode(“//Application”).Text = DocProp(3)
    .SelectSingleNode(“//TotalTime”).Text = DocProp(6)
    .Save Environ(“tmp”) & “\docProps\app.xml”
    End With
    .Run “%comspec% /c “”cd “”” & Environ(“tmp”) & “””&&””” & zip & _
    “”” u “”” & strNewFilePath & “”” docProps\app.xml -y”””, 0, 1
    .Run “%comspec% /c “”cd “”” & Environ(“tmp”) & “””&&””” & zip & _
    “”” u “”” & strNewFilePath & “”” docProps\core.xml -y”””, 0, 1
    Kill Environ(“tmp”) & “\docProps\*.*”
    RmDir Environ(“tmp”) & “\docProps”
    End With
    ‘создаем файловый дескриптор, указывающий на конвертированный файл
    hFile = CreateFile(strNewFilePath, GENERIC_WRITE, 0&, 0&, OPEN_EXISTING, 0&, 0&)
    ‘заменяем датувремя создания, открытия, сохранения файла
    SetFileTime hFile, CreationTime, LastAccessTime, LastWriteTime
    SetFileAttributes strNewFilePath, hFileAttr
    ‘закрываем дескриптор
    CloseHandle hFile
    Next
    Application.ScreenUpdating = True
    End Sub

    email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

    Сообщение в общем, понагородил все подряд .

    200?’200px’:”+(this.scrollHeight+5)+’px’);”> Option Explicit

    Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
    End Type

    Private Declare Function CreateFile Lib “kernel32” Alias “CreateFileA” ( _
    ByVal lpFileName As String, _
    ByVal dwDesiredAccess As Long, _
    ByVal dwShareMode As Long, _
    ByVal lpSecurityAttributes As Long, _
    ByVal dwCreationDisposition As Long, _
    ByVal dwFlagsAndAttributes As Long, _
    ByVal hTemplateFile As Long _
    ) As Long
    Private Declare Function GetFileTime Lib “kernel32” ( _
    ByVal hFile As Long, _
    lpCreationTime As FILETIME, _
    lpLastAccessTime As FILETIME, _
    lpLastWriteTime As FILETIME _
    ) As Long
    Private Declare Function SetFileTime Lib “kernel32” ( _
    ByVal hFile As Long, _
    lpCreationTime As FILETIME, _
    lpLastAccessTime As FILETIME, _
    lpLastWriteTime As FILETIME _
    ) As Long
    Private Declare Function GetFileAttributes Lib “kernel32.dll” Alias “GetFileAttributesA” ( _
    ByVal lpFileName As String _
    ) As Long
    Private Declare Function SetFileAttributes Lib “kernel32.dll” Alias “SetFileAttributesA” ( _
    ByVal lpFileName As String, _
    ByVal dwFileAttributes As Long _
    ) As Long
    Private Declare Function CloseHandle Lib “kernel32” ( _
    ByVal hObject As Long _
    ) As Long

    Private Const _
    GENERIC_WRITE& = &H40000000, _
    GENERIC_READ = &H80000000, _
    OPEN_EXISTING& = 3

    источник

    Adblock
    detector