макрос сохранения файла с другим расширением (pdf)

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

макрос сохранения файла с другим расширением (pdf) (сохранение файла)

карандаш

Дата: Вторник, 07.07.2015, 08:10 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 329

Репутация: 8 ±

Замечаний: 0% ±

2010

Здравствуйте
Хотел создать макрос (автоматический) для сохранения копии файла в формате PDF
Но в автоматическом макросе прописывается явно имя файла и путь сохранения
Как заменить только расширение в имени файла, а путь и имя оставить те, которые есть?

Есть макрос для Excel на этом сайте. А нужен для Word (2010, если это имеет значение)

спасибо

Сообщение отредактировал карандаш - Вторник, 07.07.2015, 08:12

Ответить

KSV

Дата: Вторник, 07.07.2015, 09:53 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 770

Репутация: 255 ±

Замечаний: 0% ±

Excel 2013

Добрый день!
[vba]

Код

Sub SaveDocumentAsPDF()
      Dim i&, f$
      f = ThisDocument.FullName
      i = InStrRev(f, ".")
      If i Then f = Left$(f, i - 1)
      ThisDocument.SaveAs f & ".pdf", wdFormatPDF
End Sub

[/vba]

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Сообщение отредактировал KSV - Вторник, 07.07.2015, 09:54

Ответить

_Boroda_

Дата: Вторник, 07.07.2015, 10:04 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 16714

Репутация: 6503 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Еще похожий вариантик, более тупой - в лоб всё
[vba]

Код

Sub tt()
p_ = ThisDocument.Path
n0_ = ThisDocument.Name
n1_ = Left(n0_, Len(n0_) - 4 + (Left(Right(n0_, 5), 1) = "."))
ss = p_ & "\" & n1_
ThisDocument.ExportAsFixedFormat OutputFileName:=ss, ExportFormat:=wdExportFormatPDF
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

карандаш

Дата: Вторник, 07.07.2015, 13:28 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 329

Репутация: 8 ±

Замечаний: 0% ±

2010

первый вариант не сработал
заменил This на Active - не помогло

второй вариант сработал с Active (в оригинале не пробовал, т.к. макрос сидит в Normal.dot)

спасибо, Александр

Сообщение отредактировал карандаш - Вторник, 07.07.2015, 13:30

Ответить

карандаш

Дата: Четверг, 09.07.2015, 11:06 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 329

Репутация: 8 ±

Замечаний: 0% ±

2010

однако, не работает в некоторых случаях

если в названии файла присутствуют точки, то при сохранении как pdf расширение отсутствует, хотя файл сохраняется как pdf (потом ему ручками пририсовываешь .pdf и всё нормально)

можно как-то эту беду устранить?

спасибо

Ответить

AndreTM

Дата: Четверг, 09.07.2015, 11:13 | Сообщение № 6

Группа: Друзья

Ранг: Старожил

Сообщений: 1762

Репутация: 501 ±

Замечаний: 0% ±

2003 & 2010

Цитата карандаш, 09.07.2015 в 11:06, в сообщении № 5

можно как-то эту беду устранить?

[vba]

Код

n1_ = Left(n0_, InStrRev(n0_, ".")) & "pdf"

[/vba]

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Ответить

_Boroda_

Дата: Четверг, 09.07.2015, 11:14 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 16714

Репутация: 6503 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Тогда так
[vba]

Код

Sub tt()
p_ = ThisDocument.Path
n0_ = ThisDocument.Name
n1_ = Left(n0_, Len(n0_) - 4 + (Left(Right(n0_, 5), 1) = ".")) & ".pdf"
ss = p_ & "\" & n1_
ThisDocument.ExportAsFixedFormat OutputFileName:=ss, ExportFormat:=wdExportFormatPDF
End Sub

[/vba]

Да, InStrRev луше

Ответить

карандаш

Дата: Четверг, 09.07.2015, 11:37 | Сообщение № 8

Группа: Проверенные

Ранг: Обитатель

Сообщений: 329

Репутация: 8 ±

Замечаний: 0% ±

2010

прошу пардону...

тут ещё такой нюанс:
макрос вылетает с сообщением об ошибке, если пытается сохранить файл, если таковой открыт (т.е. существует)

можно закрыть из ворда файл pdf, открытый для просмотра Акробатом?
или придётся ручками закрывать?

а если ручками, то можно не вылетать в отладчик макросов при ошибке?

p.s. где-то в ворде снял какую-то галочку и теперь при сохранении в pdf файл не открывается в Акробате, а просто рисует "прогресс" сохранения и всё. Приходится ручками открывать для контроля - не могу найти эту галочку. По-моему она была в диалоге - показывать ли сохранённый файл.

Сообщение отредактировал карандаш - Четверг, 09.07.2015, 11:40

Ответить

_Boroda_

Дата: Четверг, 09.07.2015, 11:42 | Сообщение № 9

Группа: Админы

Ранг: Местный житель

Сообщений: 16714

Репутация: 6503 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата карандаш, 09.07.2015 в 11:37, в сообщении № 8

не вылетать в отладчик макросов при ошибке

[vba]

Код

Sub tt()
p_ = ThisDocument.Path
n0_ = ThisDocument.Name
n1_ = Left(n0_, InStrRev(n0_, ".")) & "pdf"
ss = p_ & "\" & n1_
On Error resume next
ThisDocument.ExportAsFixedFormat OutputFileName:=ss, ExportFormat:=wdExportFormatPDF
End Sub

[/vba]

Цитата карандаш, 09.07.2015 в 11:37, в сообщении № 8

По-моему она была в диалоге

Да, при сохранении галка Открыть файл после публикации
Или последнюю строку перепишите
[vba]

Код

ThisDocument.ExportAsFixedFormat OutputFileName:=ss, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True

[/vba]