Question

SumatraPDF is a light and fast PDF viewer.
One can control SumatraPDF with DDE commands.
https://www.sumatrapdfreader.org/docs/DDE-Commands.

我要利用BA控制SummatraPDF。

And here is a demo from Microsoft for DDE application.
https://learn.microsoft.com/en-us/office/vba/api/excel.application.ddeinitiate
I tested it in Excel VBA (64bit).
The error message always says Type mismatch for the line Application.DDEExecute channelNumber, "[FILEPRINT]".
I think I need to convert longPtr type channelNumber to long type.
Could you help to point it out how to do this? Thanks.

** 本文件迟交。外交部

Sub testdde()
Dim channelNumber As LongPtr
channelNumber = Application.DDEInitiate( _
 app:="WinWord", _
 topic:="C:WINWORDFORMLETR.DOC")
Application.DDEExecute channelNumber, "[FILEPRINT]"
Application.DDETerminate channelNumber
End Sub

Answer 1

请注意,我使用的是32条轨道VBA,有32条轨道SumatraPDF,但你绝不应试图跨越32/64bit安全边界。因此,在64个轨道上,只有64个轨道上的SumatraPDF。它应为大多数用户工作,无论是便携式还是安装。

打开档案,需要苏门答腊人民抵抗力量积极倾听。然而,你可以指挥线发射第一号档案,然后由国防部控制。

你们需要看看一下在VBA中被带刺的报价。

Sometimes it pays to open a secondary file before close the previous one otherwise there may be a time period without either.

Sub Sumatrapdf()
 
  Sumatrapdf Macro
  testdde()
 

Dim channelNumber As Long
channelNumber = Application.DDEInitiate( _
 app:="SUMATRA", _
 topic:="control")
Application.DDEExecute channelNumber, "[Open(" & """C:	empBurj Khalifa (8).pdf""" & ", 1, 1, 0)]"
Application.DDETerminate channelNumber
End Sub

很多没有刺s的指挥机构,例如:

Application.DDEExecute channelNumber, "[CmdClose]"

将关闭目前的表格。为了提高效率,避免完全关闭,因为在完全活跃记忆之前,它无法作出反应。

友情链接