VB：把指定的word文档里的内容复制并新建路径保存。

Answer 1

直接用文件复制：
filecopy
"c:\1.doc"
,"d:\2.doc"
第一个是源文件，第二个是目标文件，

Answer 2

Open
"xxx"
For
Input
As
#1
’位置自己添打开文件
Open
"e:\a.doc"
For
Output
As
#2
Do
While
Not
EOF(1)
'循环读取，直到文件结束
Line
Input
#1,
strTemp
'读取一行内容到变量strTemp
Print
#2,
strTemp
'将读入的变量值写入另一文件
Loop
Close
#1
'关闭文件
Close
#2
'关闭文件

Answer 3

VB.net复制Word文档内容？建议可以参考下spire.doc for .net的教程文章：

C#/VB.NET 复制 Word 文档（这个文章描述的是复制word正文内容）

C#/VB.NET 复制 Word 页眉/页脚（复制Word页眉页脚）

复制水印：

Imports Spire.Doc

Namespace CopyWatermark_Doc

Class Program

Private Shared Sub Main(args As String())

'加载文档1

Dim doc1 As New Document()

doc1.LoadFromFile("input.docx")

'加载文档2

Dim doc2 As New Document()

doc2.LoadFromFile("target.docx")

'获取文档1的水印效果，设置到文档2

doc2.Watermark = doc1.Watermark

'保存文档2

doc2.SaveToFile("CopyWatermark.docx", FileFormat.Docx2013)

System.Diagnostics.Process.Start("CopyWatermark.docx")

End Sub

End Class

End Namespace

这代码里面的路径是以将结果文档保存在项目文件下，也可以自己自定义路径