С Новым годом! Форум программистов, компьютерный форум, киберфорум
MS Office Word
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/58: Рейтинг темы: голосов - 58, средняя оценка - 4.88
1 / 1 / 0
Регистрация: 02.03.2013
Сообщений: 36

Автоматическое преобразование файла в Word 2013

17.12.2013, 12:41. Показов 11410. Ответов 19
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Кто знает, как в ворде 2013 сделать так, чтобы документы автоматически преобразовывались, чтобы не нужно было каждый раз преобразовывать?
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
17.12.2013, 12:41
Ответы с готовыми решениями:

Автоматическое создание файла в MS Word
Добрый день всем. Есть вопрос по созданию файлов Word(VBS). Возможно ли, чтобы скрипт создал файл Word, пускай под названием Пробник,...

Нарушение форматирования документов word 2010 при открытии в word 2013
Здравия коллеги! Столкнулся с такой проблемой у человека W8+office2013 всё легальное, документы от офиса 2010 криво открываются, все!...

При открытии документа word 2013 в word 2010 меняется структура текста
Здравствуйте. Для вуза сделал в ворд 2013 два реферата. Пошел распечатывать. Оказалось, что в том месте, где я собрался делать распечатку,...

19
Ушел с CyberForum совсем!
874 / 183 / 25
Регистрация: 04.05.2011
Сообщений: 1,020
Записей в блоге: 110
17.12.2013, 13:01
преобразовывались во что ?
0
Ушел с CyberForum совсем!
874 / 183 / 25
Регистрация: 04.05.2011
Сообщений: 1,020
Записей в блоге: 110
17.12.2013, 13:07
Файл -> Параметры -> Сохранение, поставить нужный формат документа например
Миниатюры
Автоматическое преобразование файла в Word 2013  
0
1 / 1 / 0
Регистрация: 02.03.2013
Сообщений: 36
17.12.2013, 13:09  [ТС]
Доки открываются в режиме ограниченной функциональности, а чтобы получить полную функциональность, требуется преобразование в более новый формат. Я не хочу каждый раз кликать по кнопке "преобразовать", которая находится во вкладке файл, сведения.. Как сделать так, чтобы это происходило автоматически?
0
6024 / 3218 / 719
Регистрация: 23.11.2010
Сообщений: 10,758
17.12.2013, 13:34
Может сразу все в .docx перевести
0
Ушел с CyberForum совсем!
874 / 183 / 25
Регистрация: 04.05.2011
Сообщений: 1,020
Записей в блоге: 110
17.12.2013, 13:36
у меня офис 2010, но эти преобразования тоже бесят

создал новый файл.
Файл -> Cведения -> Преобразовать. (см. картинку слева)

поставил галку на картинке слева, вроде не вылезала пока. пробовал на сзаведомо старых документах (в 2003).
вроде больше не вызезает


нет кнопки, а файл ТАК И ОТКРЫВАЕТСЯ в ограниченном режиме
Миниатюры
Автоматическое преобразование файла в Word 2013   Автоматическое преобразование файла в Word 2013  
0
6024 / 3218 / 719
Регистрация: 23.11.2010
Сообщений: 10,758
17.12.2013, 13:47
Если он .doc - он так и будет открываться в ограниченном режиме.
С другой стороны, если преобразовать автоматически все в новый формат, то схемы и формулы будет невозможно редактировать.
0
Ушел с CyberForum совсем!
874 / 183 / 25
Регистрация: 04.05.2011
Сообщений: 1,020
Записей в блоге: 110
17.12.2013, 13:56
на wordexpert нашел макрос пересохраняющий в docx от ViterAlex
0
1 / 1 / 0
Регистрация: 02.03.2013
Сообщений: 36
17.12.2013, 13:59  [ТС]
Значит решения данной проблемы пока нет? Просто надоедает постоянно лезть в сведения и кликать..

Добавлено через 3 минуты
Surrogate, вы попробуйте, потом скажите, работает это или нет) просто я еще с макросами в ворде не работал..
0
Ушел с CyberForum совсем!
874 / 183 / 25
Регистрация: 04.05.2011
Сообщений: 1,020
Записей в блоге: 110
17.12.2013, 14:08
да, что-то не работает например
0
 Аватар для ViterAlex
8951 / 4863 / 1886
Регистрация: 11.02.2013
Сообщений: 10,246
17.12.2013, 14:15
Цитата Сообщение от Surrogate Посмотреть сообщение
Он не совсем корректный . Молод был, горяч

Поместить в шаблон Normal. Будет срабатывать каждый раз при открытии документа:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub AutoOpen()
    With Documents(Documents.Count)
        If .SaveFormat <> WdSaveFormat.wdFormatDocument97 Then Exit Sub
        Dim sOldName As String: sOldName = .FullName
        Dim sNewName As String
        sNewName = Mid(sOldName, 1, Len(sOldName) - 3) & "docx"
        .SaveAs2 sNewName, wdFormatXMLDocument, AddToRecentFiles:=False
        .Close False
    End With
    Documents.Open sNewName
    Kill sOldName
End Sub
2
1 / 1 / 0
Регистрация: 02.03.2013
Сообщений: 36
17.12.2013, 15:19  [ТС]
Объясните новичку, как это делается)

Добавлено через 2 минуты
Макросы-имя-макросы из Normal-создать-копируем код-сохранить?

Добавлено через 19 минут
Сделал, ничего не изменилось...

Добавлено через 9 минут
А, все, теперь работает...Но проблему не решает, к сожалению..

Добавлено через 4 минуты
Возможно, это связано с тем, что у меня 2013, а он сохраняет в 2010, поэтому проблема остается...Тогда просьба, не могли бы вы его написать для 2013 версии?
0
 Аватар для ViterAlex
8951 / 4863 / 1886
Регистрация: 11.02.2013
Сообщений: 10,246
17.12.2013, 15:36
Цитата Сообщение от MaX1MuS Посмотреть сообщение
Возможно, это связано с тем, что у меня 2013, а он сохраняет в 2010
Формат документа один и тот же. Может макрос делает не совсем то, что вы от него ожидаете? Поясню его работу.
Макрос вызывается при открытии любого документа. Проверяется формат этого документа. Если формат старый (doc), то макрос пересохраняет открытый документ в новый формат (docx), закрывает старый документ (doc) и открывает пересохранённый (docx). Старый документ (doc) удаляется.
0
1 / 1 / 0
Регистрация: 02.03.2013
Сообщений: 36
17.12.2013, 15:50  [ТС]
Цитата Сообщение от ViterAlex Посмотреть сообщение
Формат документа один и тот же. Может макрос делает не совсем то, что вы от него ожидаете? Поясню его работу.
Макрос вызывается при открытии любого документа. Проверяется формат этого документа. Если формат старый (doc), то макрос пересохраняет открытый документ в новый формат (docx), закрывает старый документ (doc) и открывает пересохранённый (docx). Старый документ (doc) удаляется.
Дело в том, что макрос-то все делает верно, он переводит из док в докх.. Но версии докх 2010 и 2013 офисов разные, так как при сохранении документа в 2013 офисе этот режим исчезает. А этот макрос переводит в докх 2010 версии офиса, для 2013 она является старой, поэтому режим и остается. Вот если бы сделать так, чтобы макрос переводил сразу в 2013 версию .docx, то это было бы прекрасно.

Добавлено через 7 минут
То есть я хочу сделать так, чтобы макрос делал тоже самое, что делает пользователь при сохранении в 2013 ворде, только чтоб это осуществлялось автоматом при запуске.
0
 Аватар для ViterAlex
8951 / 4863 / 1886
Регистрация: 11.02.2013
Сообщений: 10,246
17.12.2013, 16:01
Цитата Сообщение от MaX1MuS Посмотреть сообщение
версии докх 2010 и 2013 офисов разные
нет, оказалось, что дело не в этом, а в другом
Значит весь макрос можно выкинуть переписать так:
Visual Basic
1
2
3
4
5
Sub AutoOpen()
    If InStr(Application.Windows(1).Caption,"[Режим ограниченной функциональности]") <> 0 Then
        Documents(Documents.Count).Convert
    End If
End Sub
1
1 / 1 / 0
Регистрация: 02.03.2013
Сообщений: 36
17.12.2013, 16:08  [ТС]
О, благодарю, помогло)) буду вдвойне благодарен, если выложите макрос на закрытие без запроса на сохранение)
0
 Аватар для ViterAlex
8951 / 4863 / 1886
Регистрация: 11.02.2013
Сообщений: 10,246
17.12.2013, 17:00
Visual Basic
1
ActiveDocument.Close SaveChanges:= True
1
1 / 1 / 0
Регистрация: 02.03.2013
Сообщений: 36
17.12.2013, 17:13  [ТС]
Цитата Сообщение от ViterAlex Посмотреть сообщение
Visual Basic
1
ActiveDocument.Close SaveChanges:= True
Это где должно быть?
0
 Аватар для ViterAlex
8951 / 4863 / 1886
Регистрация: 11.02.2013
Сообщений: 10,246
17.12.2013, 17:14
В макросе, которым ты хочешь закрыть документ без запроса на сохранение
0
1 / 1 / 0
Регистрация: 02.03.2013
Сообщений: 36
17.12.2013, 17:45  [ТС]
Цитата Сообщение от ViterAlex Посмотреть сообщение
В макросе, которым ты хочешь закрыть документ без запроса на сохранение
Я так понимаю, этот код должен срабатывать при нажатии на кнопку "Закрыть", нет? Как это осуществляется? Если можно, дайте ссылку на описание, я в этих делах дилетант)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
17.12.2013, 17:45
Помогаю со студенческими работами здесь

ACCESS 2013. Автоматическое вычисление стажа сотрудника
Работаю над БД сотрудников учреждения. С программой начал работать недавно, поэтому до функций и, тем более, до VB мне далеко, поэтому...

Автоматическое создание резервной копии файлов проекта (visual studio 2013)
Можно ли сделать так, чтобы при сохранении проекта текущие файлы записывались в отдельную папку backup, и только тогда главные файлы...

Преобразование типов данных в Access 2013
Ошибка 13 (преобразование данных). Но только в Access 2013. Сам я работаю в 2010. Работает без проблем. If rst(63) &lt;&gt;...

StyleRef (MS Word 2013)
При помощи StyleRef в колонтитулах у меня выставлено отображение различных стилей (т.е. текста с этими стилями), но отображение их...

2 страницы в Word 2013
Здравствуйте! У меня такая ситуация: нужно сделать книгу чтобы одна её страничка была как пол странички А4, то есть нужно разделить А4 на 2...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Новые блоги и статьи
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока
igorrr37 05.01.2026
/ * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03
palva 04.01.2026
Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход
anaschu 02.01.2026
Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru