Office中国论坛/Access中国论坛

标题: access能实现这个功能吗？ [打印本页]

作者: crazyboss 时间: 2003-1-7 05:15
标题: access能实现这个功能吗？
利用Microsoft Word 先编写好这些文书的模板，并在需要插入资料内容的插入点做上标记，然后将模板保存起来。需要生成文书时由程序调用Word，并根据预先定义的模板名称搜索基本名称与模板名称相同的模板，并引用这些模板生成文档，再在插入点插入相应的资料内容。

[此贴子已经被作者于2003-1-6 21:15:24编辑过]

作者: 大熊 时间: 2003-1-7 18:25
没道理不行的吧！

作者: ly 时间: 2003-1-8 05:49
标题: 用ACCESS链接
工具-OFFICE链接-WORD发布合并

作者: huanghai 时间: 2003-1-8 06:00
直接后台操作就行了。只是VBA谁会，帮帮忙了：）

作者: Trynew 时间: 2003-1-8 06:05
还是在Word用邮件合并来得简便。

作者: crazyboss 时间: 2003-1-8 17:13
我是想用access输入数据，邮件合并还是不行，如果vba可以的话，谁能教教我呢

作者: jhzlzc29 时间: 2003-1-9 01:14
期待着：）
我也遇到类似的问题

作者: crazyboss 时间: 2003-1-9 05:14
高手进来阿

作者: willnow 时间: 2003-1-9 05:20
不如將模板轉換成圖片作為報表的背景來試試,這樣比較簡單,如果用vba的話，的確要費手腳，但是隨時更換模板到需要考慮

作者: crazyboss 时间: 2003-1-10 05:49
我要word里的自动排版功能阿

作者: crazyboss 时间: 2003-1-16 03:35
帮帮忙啦～～～～～～～～·急阿～～～～·

作者: binbow_z 时间: 2003-1-16 04:57
我只会在ACCESS中调用WORD模板并设置WORD文件名，如果要在模板中进行进一步操作，需要进一步进行WORD编程，需引用microsoft word 10.0 object library,ACCESS2000是，你可看以下代码：
templatepath = CurrentProject.Path & "\templates\" & 合同类型.Value & ".dot"
myfilename = xjwjmc.Value & ".doc"
appword.Documents.Add Template:=templatepath, NewTemplate:=False, DocumentType:=0
appword.ChangeFileOpenDirectory mypath
appword.ActiveDocument.SaveAs FileName:=myfilename, FileFormat:=wdFormatDocument _
      , LockComments:=False, Password:="", AddToRecentFiles:=True, _
      WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
      SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
      False
appword.Visible = True

作者: crazyboss 时间: 2003-1-18 06:26
谢谢binbow

作者: binbow_z 时间: 2003-1-18 06:47
做WORD中用宏录制你的操作，再查看源代码可省很多事

作者: crazyboss 时间: 2003-1-18 22:31
其实我是想在access里输入数据，比如名字，替换word文件里所以的name，但全部在access里面完成。并能打开指定路径的word模板，修改后保存到指定的路径。这样就比较完美了。我不想去动word

作者: crazyboss 时间: 2003-2-12 23:01
新年好！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)