首页 新闻 论坛 群组 Blog 文档 下载 读书 Tag 网摘 搜索 .NET Java 游戏 视频 人才 外包 培训 数据库 书店 程序员
中国软件网
欢迎您:游客 | 登录 注册 帮助
    • 如何不覆盖原文件里的内容？ [已结贴,结贴人:fooltutu]
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • fooltutu
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    • 揭帖率：
    发表于：2008-04-28 17:49:17 楼主
    我用ＶＢ写了段程序，将一个ＷＯＲＤ文档里的内容读出写到另一个ＷＯＲＤ文档中，可是它会将原来的内容覆盖掉．
    20  修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • Chen8013
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-04-28 18:33:491楼 得分:0
    Word文档？不知道。

    Up.....
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • zzyong00
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：

    • 2
    发表于：2008-04-28 19:13:232楼 得分:0
    晕了，怎么都是这样的问题，你的代码是什么？
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • fooltutu
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-04-28 19:39:023楼 得分:0
    Dim waSolution As Word.Application
    Dim wdDocument As Word.Document

    dlgOpen.ShowOpen
    Dim mstr As String
    mstr = dlgOpen.FileName
    MsgBox mstr
    MsgBox "选择数据导入的文件"
    CommonDialog1.ShowOpen
    Dim pstr As String
    pstr = CommonDialog1.FileName

    On Error Resume Next

    Set waSolution = CreateObject("Word.Application")

    waSolution.Visible = True
    waSolution.Activate
    waSolution.WindowState = wdWindowStateMaximize

    Set wdDocument = waSolution.Documents.Add()

    wdDocument.Application.Selection.InsertFile mstr, "", False, False, False


    wdDocument.SaveAs pstr

    帮忙看下吧，谢谢了
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • zzyong00
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：

    • 2
    发表于：2008-04-28 20:36:494楼 得分:10
    你的思路不太明确
    看提示：
    MsgBox "选择数据导入的文件"
    CommonDialog1.ShowOpen
    Dim pstr As String
    说明pstr是导入文件路径，但最后一句：wdDocument.SaveAs pstr ，又把文件保存在导入文件里了，当然把原来的文件覆盖了!
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • m60a1
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-04-28 21:34:325楼 得分:5
    word的存贮是以二进制的方式存贮的，要读写word文件只有用MS提供的OFFICE接口来完成，至于说为什么会错
    楼上的全中：）
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • fooltutu
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-04-29 08:34:116楼 得分:0
    我是选择一个文件mstr，将其内容复制保存到另一个你可以选择的文件pstr．
    如果我想把mstr的内容复制到pstr中，又不覆盖pstr原来的内容，要用什么语句呢？
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • JackGu2005
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-04-30 09:44:587楼 得分:5
    按你的代码，你是先创建了一个新文档wdDocument，然后通过这句wdDocument.SaveAs pstr让wdDocument覆盖了pstr（“另存为”就是覆盖阿）

    你不需要创建新文档的，正确的做法是：
    用GetObject打开pstr，然后寻找插入点，然后粘贴，最后保存。相信你能写出代码的。
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • knowledge_Is_Life
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-05-01 03:14:558楼 得分:0
    不知,帮顶
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • UltraBejing
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-05-01 09:48:049楼 得分:0
    等待牛人来答.
    修改 删除 举报 引用 回复
    网站简介－广告服务－网站地图－帮助－联系方式－诚聘英才－English－ 问题报告
    北京创新乐知广告有限公司 版权所有 京 ICP 证 070598 号
    世纪乐知(北京)网络技术有限公司 提供技术支持
    Copyright © 2000-2008, CSDN.NET, All Rights Reserved