[PS CC2026] Открытие Word в Photoshop

Emergency сказал(а):
А для получения jpg, да, придется использовать костыли.
Нажмите, чтобы раскрыть...
Ну так ТС начал с того, что ему хотелось на одно действие меньше выполнять.
Emergency сказал(а):
Изготовление качественной подделки
Нажмите, чтобы раскрыть...
Это не реальная подделка, просто должно быть похоже, без юридической силы. Примерно как скан паспорта или другого документа, просто доверяют что он есть.
 
Последнее редактирование:
Я делаю пачки КП, в них в ворде вставлена подпись и печать, они вычищены и прозрачные, делаю pdf и отправляю.
Это не подделка. Но зачем мне их печатать и сканировать, когда они никого ни к чему не обязывают?
 

Не по теме:
в организации здорового курильщика давно настроено ЭДО. Даже если Вы думаете, что у Вас нет на фирме ЭДО - в 99% Ваш бухгалтер сдаёт отчётности в органы через ЭДО, в 1С встроен модуль 1С-ЭДО и оператор Калуга-Астрал подключается за пять минут. Приход/входящие в ЭДО бесплатные, а исходящие стоят 10-20 руб за отправку одного исходящего (на несколько документов сразу). Откройте уже для себя отправку счетов и др.документов через ЭДО и забудьте о наваривании синих печатей на документы и отправку оных через имейл и мессенджеры.

Дима Медведев ввёл это в 2008-м году как никак. ЭДО сейчас везде. Это удобно, это дёшево и оперативно.


 
George сказал(а):

Не по теме:

George сказал(а):
ЭДО сейчас везде. Это удобно, это дёшево и оперативно.
Нажмите, чтобы раскрыть...
Вообще-то довольно дорого - платные: КриптоПро, Астрал с ежегодными взносами, 1С..
Дешевле было бы пользоваться криптой Акробата, но она у нас не считается.
Нажмите, чтобы раскрыть...
 
zollinger сказал(а):
Вот такой . bat можно попробовать, врать не буду, сам не проверял, лежал на диване с телефоном
Код: 
@echo off
setlocal

rem === Проверка аргумента ===
if "%~1"=="" (
    echo Usage:
    echo   %~nx0 "C:\path\file.docx"
    exit /b 1
)

set "INPUT=%~f1"

if not exist "%INPUT%" (
    echo File not found:
    echo %INPUT%
    exit /b 1
)

rem === Проверка расширения ===
set "EXT=%~x1"
if /I not "%EXT%"==".doc" if /I not "%EXT%"==".docx" (
    echo Only .doc and .docx are supported.
    exit /b 1
)

rem === Путь выходного PDF ===
set "OUTPDF=%~dpn1.pdf"

rem === Путь к Photoshop (при необходимости поправь) ===
set "PHOTOSHOP_EXE=C:\Program Files\Adobe\Adobe Photoshop 2024\Photoshop.exe"

if not exist "%PHOTOSHOP_EXE%" (
    if exist "C:\Program Files\Adobe\Adobe Photoshop 2025\Photoshop.exe" (
        set "PHOTOSHOP_EXE=C:\Program Files\Adobe\Adobe Photoshop 2025\Photoshop.exe"
    ) else if exist "C:\Program Files\Adobe\Adobe Photoshop 2023\Photoshop.exe" (
        set "PHOTOSHOP_EXE=C:\Program Files\Adobe\Adobe Photoshop 2023\Photoshop.exe"
    )
)

rem === Временный VBS для Word COM ===
set "VBSFILE=%TEMP%\doc2pdf_%RANDOM%%RANDOM%.vbs"

> "%VBSFILE%" echo On Error Resume Next
>>"%VBSFILE%" echo Dim wordApp, doc, inFile, outFile
>>"%VBSFILE%" echo inFile = WScript.Arguments(0)
>>"%VBSFILE%" echo outFile = WScript.Arguments(1)
>>"%VBSFILE%" echo Const wdExportFormatPDF = 17
>>"%VBSFILE%" echo Set wordApp = CreateObject("Word.Application")
>>"%VBSFILE%" echo If Err.Number ^<^> 0 Then
>>"%VBSFILE%" echo   WScript.Echo "ERROR: Microsoft Word is not installed or unavailable."
>>"%VBSFILE%" echo   WScript.Quit 2
>>"%VBSFILE%" echo End If
>>"%VBSFILE%" echo wordApp.Visible = False
>>"%VBSFILE%" echo wordApp.DisplayAlerts = 0
>>"%VBSFILE%" echo Set doc = wordApp.Documents.Open(inFile, False, True)
>>"%VBSFILE%" echo If Err.Number ^<^> 0 Then
>>"%VBSFILE%" echo   wordApp.Quit
>>"%VBSFILE%" echo   WScript.Echo "ERROR: Cannot open source document."
>>"%VBSFILE%" echo   WScript.Quit 3
>>"%VBSFILE%" echo End If
>>"%VBSFILE%" echo doc.ExportAsFixedFormat outFile, wdExportFormatPDF
>>"%VBSFILE%" echo If Err.Number ^<^> 0 Then
>>"%VBSFILE%" echo   doc.Close False
>>"%VBSFILE%" echo   wordApp.Quit
>>"%VBSFILE%" echo   WScript.Echo "ERROR: PDF export failed."
>>"%VBSFILE%" echo   WScript.Quit 4
>>"%VBSFILE%" echo End If
>>"%VBSFILE%" echo doc.Close False
>>"%VBSFILE%" echo wordApp.Quit
>>"%VBSFILE%" echo WScript.Quit 0

echo Converting to PDF...
cscript //nologo "%VBSFILE%" "%INPUT%" "%OUTPDF%"
set "ERR=%ERRORLEVEL%"

del "%VBSFILE%" >nul 2>&1

if not "%ERR%"=="0" (
    echo Conversion failed. Error code: %ERR%
    exit /b %ERR%
)

if not exist "%OUTPDF%" (
    echo PDF was not created:
    echo %OUTPDF%
    exit /b 5
)

echo PDF created:
echo %OUTPDF%

rem === Открытие PDF в Photoshop ===
if exist "%PHOTOSHOP_EXE%" (
    start "" "%PHOTOSHOP_EXE%" "%OUTPDF%"
) else (
    echo Photoshop not found. Opening PDF with default application...
    start "" "%OUTPDF%"
)

exit /b 0
Нажмите, чтобы раскрыть...
Благодарю. То что нужно!
 
а еще можно вставить подпись и печать в Ворд, а далее - старый добрый принтскрин. Или стандартные для вин10 Ножницы.
 

Не по теме:

@Emergency это всё давно куплено для того, чтобы сдавать отчётности бухгалтеру. И никак не дороже сдачи отчётностей "по доверенности" через "аутсорс", что давно атавизм даже у тех фирм, где нет бухгалтера в штате.

И при этом:
Калуга Астрал сам внутри 1С чисто для ЭДО документов передачи как программа/плагин бесплатен, только за исходящие платим*. 1с обычно базовый - бессрочка берется один раз, крипто про тоже бессрочка.

Ворд и Фотошоп в разы, если не в десятки раз дороже.

Вы как всегда - мимо.

* 10-20 руб супротив 100 руб за заказное почтой потом (не считая бумаги, чернил/порошка для принтера).

 
Последнее редактирование:
Для ответа нужно войти/зарегистрироваться
Верх Низ
Назад