Комментарии 24
Перегонять скриптом в пдф это, конечно, хорошо. Но зачем в цикле открывать приложение, если можно его открыть один раз и только открывать/закрывать документ?
Плохо знаком с VBA. Если поможете с таким скриптом то с удовольствием добавлю. Для многих такой подход куда проще будет
Sub main()
where = ThisDocument.Path + "\"
'where = "e:\Download\разобрать же 8\разобрать же 7\разобрать же 6\Аниме\Разобрать (4)\"
what = Dir(where + "*.doc*")
Do While what <> ""
If Not (what = ThisDocument.Name And where = ThisDocument.Path) Then
Documents.Open (where + what)
Documents(what).ExportAsFixedFormat where + what + ".pdf", wdExportFormatPDF, False
Documents(what).Close False
End If
what = Dir()
Loop
End Sub
А нельзя ли поставить pdf принтер по умолчанию и распечатать нужные файлы?
Тогда даже VBA не потребуется )
Все это конечно здорово. На самом деле без сарказма. Пакет офисных программ MS Office довольно мощный в умелых руках. Но скоро нас всех пересадят на какой нибудь "Мой офис" и будем мы как с чистого листа.
Пакет офисных программ MS Office довольно мощный в умелых руках.
С ним бывают приколы на ровном месте, от которых прям болит в одном месте. Особенно, если нужно сдавать документы еще вчера, что бывает очень часто.
Писали мы как-то ПЗ на изделие, состоящее из 750 страниц. По ГОСТу, с рамочками, все как положено. Рамочки были засунуты в колонтитулы (не знаю, насколько это правильно с точки зрения вордоводства, но работало прям зачётно), автоматом появлялись на новых листах, все шикарно. И вот прибегают ко мне товарищи, на тот момент оформляющие часть документации, с криками «ВСЁ ПРОПАЛО!». А причина была банально — до 500какой-то страница ворд нормально ставил везде рамки в колонтитулах, а на следующей (разделы и прочее не менялось, просто текст) внезапно перестал, оставив только полторы линии слева и чуть сверху. Болячку пытались побороть всей толпой, но так и не смогли.
Как сдавали это мракобесие потом я уже не помню, к сожалению.
В либре при установке перекресной ссылки просто выбираешь "только номер". И все. И так было всегда, сколько я помню. Неужели в ms word все еще нужны какие-то танцы с бубном?
Ну и если в настройках указать "автоназвание" для рисунков, то слово "Рисунок" и номер появляются автоматом при вставке рисунка. Остается дописать только название. Что, в ms word и такой простой вещи нет?
Поражает, как MS нашпиговывает свои продукты функиями, нужнымы едва ли 0.1% пользователей, лепит красивые интерфейсы, но нумерация у них все еще из прошлого века.
Угу, либра зато начинает вытворять чудеса с полусотни страниц в документе, а ворд и с пятью сотнями как-то справляется. А ещё в либре какой-то недоязык формул, и что мешало реализовать поддержку нормального латеха — поди пойми. Всё бы ничего, пока формулы простые и их мало, но бывают ведь сложные и много.
Перешел для доков на LaTeX, там оно все само просто работает без плясок с бубном и каких-то лишних телодвижений =)
Бывает что заказчики и нормоконтроль требуют документ в редактируемом формате doc
Ой, нормоконтроль... Вспомнилось, как я с ними работал. Пусть и немного не в тему основной статьи :)
Были у нас изделия, по сути одинаковые, ибо серийное производство. И на каждое нужен паспорт. Были шаблоны паспортов, согласованные со всеми, кем только можно, утвержденные и так далее. Чтобы было понятнее — это такой доковский документ страниц на 10-15 с шаблонными фразами, где нужно поменять только номер изделия и еще пару тройку слов.
Каждый раз, когда я отправлял на нормоконтроль очередной паспорт, практически всегда мне его возвращали с нормоконтроля почирканный красной ручкой почти везде. Особенно радовало, когда ты только все исправил (там мелочи вроде переносов строк и так далее, но тем не менее), утвердил и сдал, делаешь на следующее изделие следующий паспорт из этого, поменяв только одну цифру, и получаешь снова почирканный везде красной ручкой обратно.
Помню, я тогда мечтал написать им генератор паспортов, чтобы все нужные циферки можно было вставить в поля в софтине, а на выходе получать ОДИНАКОВЫЕ доки, сгенеренные в латехе. Но так и не написал, уволился раньше, чем руки дошли.
Есть одна существенная и пока не решенная проблема при ссылках на страницы и рисунки. Это склонение ссылок.
Если https://habr.com/ru/post/651801/#4 (Изменение формата перекрестной ссылки на рисунок (таблицу, раздел, пункт)) не об этом, то опишите пожалуйста проблему подробнее. Самому интересно.
Плохо читал статью. Спасибо! Это может помочь!
"На рисунке 3.4 изображено ... " (обновить) "На Рисунок 3.5 изображено ..."
Изучил latex. Матерился, пока ставил. Но *ля: какая же простота! То, что в ворде выдается за космическое превосходство, в латехе оно как база. Со ссылками на рисунки в разы легче. Конечно, компилятор бьет по пальцам, если что-то не так.
Решением с кооперативным доступом у нас выступает браузерный olnyoffice в nexcloud, но там бывают проблемы + нет огромных возможностей, либо я времени не так много на разбор потратил.
Начал считать ворд/поверпоинт раковой опухолью документооборота. Ибо оно сжирает время людей. Excel пока что остается незаменимым подручным инструментом для всяких мелких сравнений и подсчетов.
Как вариант, я вместо "Рисунок №" писал "Рис.№", и проблема исчезает
Вставляете перекрёстную ссылку вида "Постоянная часть и номер" (вставится "Рисунок 4"), затем постоянную часть (слово "Рисунок") выделяете и нажимаете ctrl+shift+H. Остаётся только "4".
Итог: фраза "... на рисунке Рисунок 4 изображено..." превратится в "...на рисунке 4 изображено..."
А все скрытые куски полей можно всегда посмотреть и поправить через отображение непечатаемых символов (ну или по хоткею ctrl+shift+8 для вордоводов со звёздочкой).
Отличная статья, которая еще долго не потеряет своей актуальности
Повышаем эффективность работы с Word