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

[~RA~]

На вполне законном основании мне присылает банк - там печать и подпись не имитируют "живые".

Без эп — не документ.

 

[Emergency]

Без эп — не документ.

Я об этом и говорю.

 

[_MBK_]

Я об этом и говорю.

Вы говорите о

качественной подделке

У меня все ходы записаны

 

[Emergency]

У меня все ходы записаны

Не вижу противоречия - либо документ, либо не документ, либо подделка под документ.

 

[magneto]

подделка под документ.

Подделка под подделку подделки копии документа?

 

[suntory]

А для получения jpg, да, придется использовать костыли.

Ну так ТС начал с того, что ему хотелось на одно действие меньше выполнять.

Изготовление качественной подделки

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

 

[zollinger]

Я делаю пачки КП, в них в ворде вставлена подпись и печать, они вычищены и прозрачные, делаю pdf и отправляю.
Это не подделка. Но зачем мне их печатать и сканировать, когда они никого ни к чему не обязывают?

 

[George]

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

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

 

[Emergency]

Не по теме:

ЭДО сейчас везде. Это удобно, это дёшево и оперативно.

Вообще-то довольно дорого - платные: КриптоПро, Астрал с ежегодными взносами, 1С..
Дешевле было бы пользоваться криптой Акробата, но она у нас не считается.

 

[izrukvruki]

Вот такой . 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

Благодарю. То что нужно!

 

[Любимцев]

на скан должно быть похоже

Не по теме:
видать, пока писал, это уточнение появилось...

 

[suntory]

пока писал, это уточнение появилось...

~11 часов прошло

 

[lmn1]

а еще можно вставить подпись и печать в Ворд, а далее - старый добрый принтскрин. Или стандартные для вин10 Ножницы.

 

[George]

Не по теме:

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

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

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

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

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