access能实现这个功能吗？

crazyboss

帮帮忙啦～～～～～～～～·急阿～～～～·

binbow_z

我只会在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

谢谢binbow

binbow_z

做WORD中用宏录制你的操作，再查看源代码可省很多事

crazyboss

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

crazyboss

新年好！