Ich entschuldige mich dafür, dass ich diese Frage vergessen habe, aber zumindest beantworte ich die Frage endlich, oder?
Ich konnte keinen Weg finden, dies so zu erreichen, wie ich es wollte, also habe ich eine leichte Problemumgehung durchgeführt. Ich habe 2 separate .ahk- Skripte ( AutoHotkey ) erstellt und kompiliert und sie den Kontextmenüs mit der rechten Maustaste hinzugefügt.
Hier sind die Skripte:
Konvertieren von .DOC und .DOCX in PDF (erfordert Office 2007 oder 2010)
; AutoHotkey Script by Cyborg v1.5
; This script is designed to be compiled and ran in the user's Send To Right-Click Menu.
; The user needs to right click a word document go into the send to menu and choose this
; script. After launching the script the selected file will open in its version of Word
; and open the menus to save it as a PDF. In this version the user is unable to rename the
; the file.
; NOTE: In order for this to work correctly with Office 2007 you MUST have already installed
; the PDF/XPS converter from Microsoft.
SetTitleMatchMode 2
Loop %0%
{
Path := %A_Index%
Run,% Path
}
IfWinExist, Microsoft Word
WinActivate
sleep 1000
Word2007:
IfExist, C:\Program Files (x86)\Microsoft Office\Office12\WINWORD.EXE ; Microsoft Word 2007
{
Send ^s
Send !f
Send f
Send p
Sleep 500
Send {Enter}
Sleep 500
WinClose, Microsoft Word
}
else
{
Goto, Word2010
}
return
Word2010:
IfExist, C:\Program Files (x86)\Microsoft Office\Office14\WINWORD.EXE ; Microsoft Word 2010
{
Send ^s
Send !f
Send d
Send p
Send a
Sleep 500
Send {Enter}
Sleep 500
WinClose, Microsoft Word
}
else
{
Goto, Word2013
}
return
Konvertieren Sie .XLS und .XLSX in PDF (erfordert Office 2007 oder 2010)
; AutoHotkey Script by Cyborg v1.5
; This script is designed to be compiled and ran in the user's Send To Right-Click Menu.
; The user needs to right click a word document go into the send to menu and choose this
; script. After launching the script the selected file will open in its version of Excel
; and open the menus to save it as a PDF. In this version the user is unable to rename the
; the file.
; NOTE: In order for this to work correctly with Office 2007 you MUST have already installed
; the PDF/XPS converter from Microsoft.
SetTitleMatchMode 2
Loop %0%
{
Path := %A_Index%
Run,% Path
}
IfWinExist, Microsoft Excel
WinActivate
sleep 1500
Excel2007:
IfExist, C:\Program Files (x86)\Microsoft Office\Office12\EXCEL.EXE ; Microsoft Excel 2007
{
Send ^s
Send !f
Send f
Send p
Sleep 700
Send {Enter}
Sleep 700
WinClose, Microsoft Excel
}
else
{
Goto, Excel2010
}
return
Excel2010:
IfExist, C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE ; Microsoft Excel 2010
{
Send ^s
Send !f
Send d
Send p
Send a
Sleep 500
Send {Enter}
Sleep 500
WinClose, Microsoft Excel
}
else
{
Goto, Excel2013
}
return
Excel2013:
MsgBox, Excel 2013 Not Configured for this Script.
return
Nachdem ich diese Skripte geschrieben und in EXE-Dateien kompiliert hatte, platzierte ich sie in SendTo, indem ich dieser Anleitung von HowToGeek folgte .
Möglicherweise können Sie auch jedes Skript auf jeden Dateityp anwenden, aber das habe ich nicht untersucht.
