VB编辑Word模板另存问题和Word模板存储问题

类似于表格套打？

Private Sub Command1_Click()
Dim strSQl As String, strHTH As String
Dim REC As Integer
Dim i As Integer
Dim dlg As Word.Dialog
strSQl = "select * from 人事表"
AdoRs.Open strSQl, cn, adOpenKeyset, adLockOptimistic
REC = AdoRs.RecordCount
If REC < 1 Then
MsgBox "无人事记录！", vbOKOnly, "提示"
AdoRs.Close
Exit Sub
Else
AdoRs.MoveFirst
For i = 1 To REC
WordTemps.Documents.Add App.Path + "\劳动合同书.doc", False
WordTemps.Selection.GoTo wdGoToBookmark, , , "用人单位"
WordTemps.Selection.TypeText "公司名称"
WordTemps.Selection.GoTo wdGoToBookmark, , , "合同编号"
strHTH = Year(Date) & Month(Date) & AdoRs!编号
WordTemps.Selection.TypeText strHTH
WordTemps.ActiveWindow.Caption = strHTH
'插入公司数据
WordTemps.Selection.GoTo wdGoToBookmark, , , "用人单位全称"
WordTemps.Selection.TypeText "公司名称"
WordTemps.Selection.GoTo wdGoToBookmark, , , "企业性质"
WordTemps.Selection.TypeText "私营"
WordTemps.Selection.GoTo wdGoToBookmark, , , "地址"
WordTemps.Selection.TypeText "公司地址"
WordTemps.Selection.GoTo wdGoToBookmark, , , "签订日期"
WordTemps.Selection.TypeText Format(Now, "yyyy-mm-dd")
'插入职员数据
WordTemps.Selection.GoTo wdGoToBookmark, , , "姓名"
WordTemps.Selection.TypeText AdoRs!姓名
WordTemps.Selection.GoTo wdGoToBookmark, , , "出生时间"
WordTemps.Selection.TypeText AdoRs!出生年月
WordTemps.Selection.GoTo wdGoToBookmark, , , "性别"
WordTemps.Selection.TypeText AdoRs!性别
WordTemps.Selection.GoTo wdGoToBookmark, , , "民族"
WordTemps.Selection.TypeText AdoRs!民族
WordTemps.Selection.GoTo wdGoToBookmark, , , "文化程度"
WordTemps.Selection.TypeText AdoRs!文化程度
WordTemps.Selection.GoTo wdGoToBookmark, , , "身份证号"
WordTemps.Selection.TypeText AdoRs!身份证号
WordTemps.Selection.GoTo wdGoToBookmark, , , "政治面貌"
WordTemps.Selection.TypeText AdoRs!政治面貌
WordTemps.Selection.GoTo wdGoToBookmark, , , "家庭住址"
WordTemps.Selection.TypeText AdoRs!家庭住址
WordTemps.Selection.GoTo wdGoToBookmark, , , "工种"
WordTemps.Selection.TypeText AdoRs!工种
WordTemps.Selection.GoTo wdGoToBookmark, , , "技术等级"
WordTemps.Selection.TypeText AdoRs!技术等级
WordTemps.Selection.GoTo wdGoToBookmark, , , "健康状况"
WordTemps.Selection.TypeText AdoRs!健康状况
WordTemps.Selection.GoTo wdGoToBookmark, , , "参加工作时间"
WordTemps.Selection.TypeText AdoRs!参加工作时间
AdoRs.MoveNext
Next i
AdoRs.Close
WordTemps.Visible = True '显示WORD窗口
End If
End Sub

这个是一个示例的代码，你可以参考下

==先引用word
==然后：
Dim xWord As Word.Application '声明
==点击事件：
Private Sub CmdReplace_Click()
Dim xWord As Word.Application
Dim xRange As Range
Dim xSelection As Find
Dim xTabella As Table
Dim xCella As Cell
Set xWord = New Application
xWord.Visible = False
xWord.Documents.Add App.Path & "\新概念单词表3.doc"
Set xRange = xWord.ActiveDocument.Range
xRange.Find.Execute "美洲狮", , , , , , , , , Text1.Text, True: '用Text1替换“美洲狮”
xRange.HighlightColorIndex = wdYellow '底纹颜色
xRange.Font.Name = "幼圆" '字体
xWord.Visible = True '打开文档，如果关闭会出现另存为对话框
xWord.WindowState = wdWindowStateNormal
xWord.Application.Activate
End Sub
大致是这样，我也了解不多。