我用VB在指定文件夹里读取一个word模版，里面是一个表，把数据库的内容写入word中，写可以成功了。
现在问题是保存，我想设定直接保存在指定的文件夹中。
先贴出我现在完成的代码：
Dim Appword As Word.Application
Dim Newword As Word.Document
Set Appword = New Word.Application
Set Newword = Appword.Documents.Add(App.Path + "\stencil" + "\stencil.doc")
Appword.Visible = True
Appword.WindowState = wdWindowStateMinimize
Appword.Documents.Add
With Newword
.Tables(1).Cell(1, 1).Range.Text = txtName.Text
End With
Appword.ChangeFileOpenDirectory (App.Path + "\Result")
Appword.ActiveDocument.SaveAs FileName:=(txtName.Text & ".doc"), FileFormat:=wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False
Appword.Documents.Close
Appword.Quit
MsgBox "导出Word文件成功！"
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
在vb这编程里似乎有很多的东西是相联系的，为什么有些人对vb的编程摸不到头脑啊！并且有些事很容易的，但是却把它们的代码变成复杂，也去想一些不能实现的东西啊！
没分了，楼主多来点分！
来接点分
......
