关于word文档复制问题

骷髅头 · 发表于 2006-3-4 21:17

我在word录制了一个宏一个拷贝一个文档一页的内容 Selection.WholeStory Selection.Copy Selection.EndKey Unit:=wdStory Selection.InsertBreak Type:=wdPageBreak Selection.Paste 把文件档的第一页内容，复制第二。。。。第四，等多页同时如何把selection复制内容释放掉

[此贴子已经被作者于2006-3-4 23:28:57编辑过]

骷髅头 · 发表于 2006-3-5 16:19

如何转成VB代码，在VB中只能运行一次

骷髅头 · 发表于 2006-3-5 16:47

请守柔帮忙忙，谢谢

守柔 · 发表于 2006-3-5 17:11

我没太看明白你的意思。

你是否想把一个文档（只有一页）复制后，插入分页符再粘贴，不要求规定粘贴的次数？

清空剪贴板，可以复制一个空白或者一个字符即可释放剪贴板中的内容。

转到VB代码，你是以何种形式调用？DLL？EXE还是加载项等？

请在VB 中引用WORD，然后注意限定对象，如SELECTION为Word.selection,wdStory,wdPageBreak转为相应的常数值。

骷髅头 · 发表于 2006-3-5 17:44

以下是引用[I]守柔[/I]在2006-3-5 17:11:42的发言：[BR]
我没太看明白你的意思。
你是否想把一个文档（只有一页）复制后，插入分页符再粘贴，不要求规定粘贴的次数？
清空剪贴板，可以复制一个空白或者一个字符即可释放剪贴板中的内容。
转到VB代码，你是以何种形式调用？DLL？EXE还是加载项等？
请在VB 中引用WORD，然后注意限定对象，如SELECTION为Word.selection,wdStory,wdPageBreak转为相应的常数值。

是的，我想在EXE里，对一个文档（只有一页）复制后，插入分页符再粘贴，不要求规定粘贴的次数，并清空剪贴板，我查找到原因了，呵，我把整个代码粘出来 Dim wdApp As Word.Application Dim wdDoc As Word.Document Dim wdtbl As Word.Table Set wdApp = CreateObject("Word.Application") wdApp.Documents.Open (App.Path & "\test.doc") Set wdDoc = wdApp.Documents(App.Path & "\test.doc") MsgBox wdDoc.Tables.Count wdApp.Selection.WholeStory wdApp.Selection.Copy wdApp.Selection.WholeStory wdApp.Selection.Copy wdApp.Selection.EndKey Unit:=wdStory wdApp.Selection.InsertBreak Type:=wdPageBreak wdApp.Selection.Paste MsgBox wdDoc.Tables.Count wdDoc.SaveAs App.Path & "\test1.doc" Set wdDoc = Nothing wdApp.Quit Set wdApp = Nothing

骷髅头 · 发表于 2006-3-5 18:05

Icr7spmH.rar (6.21 KB, 下载次数: 7) 为什么有些文档，会有稍微的变化，好像自动跳下来一行。 test.doc是未复制过得，test1.doc是复制过得还有一个问题，如何判断一个文件是不是word 文件呵呵，谢谢

[此贴子已经被作者于2006-3-5 18:37:32编辑过]

骷髅头 · 发表于 2006-3-6 18:40

还有一个问题，如何判断一个文件是不是word 文件
呵呵，谢谢,我也查了一些，但都不怎么适合VB，守柔版主，是否能指点迷津，谢谢

		自动登录	找回密码
密码			免费注册