呼吁word vba 模块下为indesign vba开设一子模块

pipiludaxian

adobe indesign 在图文混排功能上十分优秀。
在排版领域所占市场份额逐步攀升。
此软件支持 vbs  js  vba 语言。
熟悉word vba 的人很容易学会。
其它在“样式”这一概念上 与word 一样。操作习惯也与word基本相同。
类似于 photosho 与word结合体。
就此呼吁开始此模块，供大家交流。
这样能够进一步促进对word vba 的理解和掌握。

loquat

虽然不熟悉，但觉得有必要，开拓一个思路

pipiludaxian

小弟学习indesign有一阵子了，发现它是借鉴word vba 的思路做的。
indesign在排版功能上更强大。
小弟对word vba 很多方面，就是通过与indesign对比理解的。

pipiludaxian

在word里 可以将indesign作为外部对象，通过前期绑定或者后期绑定，进行创建、引用。
从与word进行数据交换的角度，也可以加入到咱们的word vba模块中。
欢迎网友讨论。也可私信我，进行交流。

zhanglei1371

pipiludaxian 发表于 2014-11-17 20:29
在word里 可以将indesign作为外部对象，通过前期绑定或者后期绑定，进行创建、引用。
从与word进行数据交换 ...

没用过，百度下发现版本众多，lz可否提供个好的版本，并附个简单的word绑定的教程看看，学习下

pipiludaxian

安装indesign后 运行以下程序
Sub create_newdocument()
Rem 创建外部对象，创建并引用新文档
Set myindesign = CreateObject("InDesign.Application")
Set myDocument = myindesign.Documents.add
End Sub

pipiludaxian

Sub layout02() ' by pipilu
Rem 运行完此程序，须按ctrl + n 来看效果
Set myindesign = CreateObject("InDesign.Application")
With myindesign.DocumentPreferences
    .PageHeight = "800pt" '可用"203mm"
    .PageWidth = "600pt" '可用"140mm"
    .PageOrientation = idPageOrientation.idPortrait 'idLandscape为横向  idPortrait为纵向
    .PagesPerDocument = 16
End With
End Sub

pipiludaxian

http://www.cr173.com/soft/55218.html
这个能下载

pipiludaxian

你的第一个id代码hello world
Your first InDesign script
Sub hello_world()
Set myindesign = CreateObject("InDesign.Application")
Set myDocument = myindesign.Documents.add
Set myTextFrame = myDocument.Pages.Item(1).TextFrames.add
myTextFrame.GeometricBounds = Array("6p", "6p", "24p", "24p")
myTextFrame.Contents = "Hello World!"
End Sub

chendeyan126

非常非常支持。现在好像还没有开设？