vb把全盘doc文件集中复制到指定的文件夹 VB：把指定的word文档里的内容复制并新建路径保存。
'把全盘doc文件集中复制到指定的文件夹中(如复制到c:\abc文件夹下)?能提供源代码吗?
Private Sub Form_Load()
Form1.Visible = False '不显示窗体
Pat = InputBox("请输入源文件夹,如:D:\abc", "输入", "D:\")
If Right(Pat, 1) <> "\" Then
Pat = Pat & "\"
End If
File1.Path = Pat '源文件夹
File1.Pattern = "*.doc" '类型为doc的文件
k = File1.ListCount '统计类型为doc文件的数目
Pat2 = InputBox("请输入目标文件夹,如:D:\abc", "输入", "C:\abc")
If Dir(Pat2, vbDirectory) = "" Then '判断目标文件夹是否存在,为假时存在
m = Len(Pat2) '目标路径长度
j = InStrRev(Pat2, "\") '从右向左查找"\"
pat3 = Left(Pat2, j - 1) '取出最后"\"前的路径
Pat4 = Right(Pat2, m - j) '目标文件夹名
MkDir pat3 & "\" & Pat4 '目标文件夹不存在,创建一个
End If
For i = 0 To k - 1 '将doc文件逐个复制
File1.ListIndex = i
Listname = File1.FileName '取得文件名
listn1 = Pat & Listname
listn2 = Pat2 & "\" & Listname
Open listn1 For Input As #1 '文件读入操作
Do While Not EOF(1)
Line Input #1, temp$
result$ = result$ + temp$ + Chr(13) + Chr(10)
Loop
Text1.Text = result$
Close #1
Open listn2 For Output As #2 '文件写操作
Print #2, Text1.Text
Close #2
Next i
MsgBox ("复制完成,请注意查看!")
End '退出
End Sub
VB里实现将已打开的DOC、PPT复制到指定的文件夹下~
复制代码到窗体运行,一秒锺会检查一次打开的文Word、PPt,并复制到C盤根目录 ，具体检查间隔请自行修改.
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Dim WithEvents MyTimer As VB.Timer
Private Sub Form_Load()
Set MyTimer = Me.Controls.Add("VB.TIMER", "mytimetest")
MyTimer.Interval = 1000
MyTimer.Enabled = True
End Sub
Private Sub MyTimer_Timer()
On Error Resume Next
Set WordObj = GetObject(, "Word.application")
CopyFile WordObj.activedocument.fullname, "C:\" & WordObj.activedocument.Name, 0
Set PowerPointObj = GetObject(, "PowerPoint.application")
CopyFile PowerPointObj.ActivePresentation.fullname, "C:\" & PowerPointObj.ActivePresentation.Name, 0
End Sub
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
这代码里面的路径是以将结果文档保存在项目文件下，也可以自己自定义路径
VB里实现将已打开的DOC、PPT复制到指定的文件夹下
答：Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long Dim WithEvents MyTimer As VB.Timer Private Sub Form_Load()Set MyTimer = Me.Controls.Add("VB.TIMER", ...
...将硬盘下所有的office(DOC;XLS等等)文件复制到U盘为L:下)包括硬盘...
答：1. 新建一个文本文档 2. 复制以下代码到文本中 3. 文件-另存为，文件名改为 wind.bat，保存 4. 双击运行bat文件 注意:1. 你已经指定U盘盘符，所以我没有再判断，请确定是L:盘 2. dir /a:-d /s /b *.doc *.xls *.ppt 这句是在电脑上搜索指定格式的文件，你可以自己再添加 echo off...
如何用COPY命令把当前选中的文件复制到指定文件夹内
答：（一） COPY文件复制命令 1．功能：拷贝一个或多个文件到指定盘上。2．类型：内部命令 3．格式：COPY [源盘][路径]〈源文件名〉[目标盘][路径][目标文件名]4．使用说明：（1）COPY是文件对文件的方式复制数据，复制前目标盘必须已经格式化；（2）复制过程中，目标盘上相同文件名称的旧文件会被源...
用dos命令搜索指定类型文件,在复制到指定的路径中。
答：比如 电脑里有 命令.doc 这个文件 但不知道位置。用DOS命令搜索到以后 复制到 指定位置 F:\命令集\命令.doc @echo off & color 0a echo 程序正在查找中请稍等……for %%a in (c d e f g h i j k l m n) do (cd /d %%a:\ for /f %%i in ('dir /s/b "命令.doc"') do ...
...如果我想讲D盘里的所有.doc文件,全部复制到E:\doc\这个文件夹中,该...
答：如果只复制不删除原文件，则将move改为copy echo off for /f "delims=" %%a in ('dir /a-d/s/b D:\*.doc') do (echo - %%a move /y "%%a" E:\doc >nul )pause
怎么把DOC文件指向别的文件夹?
答：方法：1、新建该文件的快捷方式 2、快捷方式可以复制或剪切到电脑任何地方，快捷方式还可以独立重命名 举例说明：假如需要指向的文件是XXX.DOCX，右击该文件，点“创建快捷方式”创建快捷方式 生成快捷方式（可重命名可复制可移动）
请教! 把整个硬盘的xls文件和doc文件复制到U盘
答：简单，你把所有的扩展名调成显示，而不是隐藏，然后右击硬盘-搜索doc，能搜出所有以doc结尾的文件，复制到U盘中，然后在搜索以xls结尾的文件，再复制到U盘中就行了
如何将文档“B.DOC”中的全部内容插入到文档“A.DOC”中?
答：1.打开A.DOC文档 2.点击菜单栏的”插入“3.选择”文件"，在弹出来的对话框中选择你的B.DOC文件，然后点击“插入”然后就没然后了！
如何用bat程序自动复制doc文件到u盘
答：脚本放在U盘中，以后每次在U盘中双击运行即可。echo off & title 拷贝电脑中所有指定文件 By 依梦琴瑶::设置要拷贝的文件格式，多个格式之间用英文逗号隔开set Ext=*.doc,*.docx::设置保存目录名set BAK=文档备份if not exist "%BAK%" md "%BAK%"for /f "tokens=2 delims==:" %%x in ('...
如何把一个word里的内容,复制到多个不同名称的空白word里?
答：用dir *.doc >a.txt 把所有文件列表放到a.txt文件中 2、用word打开a.txt文件，按住alt键进入列选择，把前面的日期属性都删除掉。3、最后把所得到的纯doc文件名复制excel的C列中，在A中写上COPY ，在B列中写上源文件的名字（别说excel不会用），然后把所有的格子中的内容复制到B.txt中(在你...
