[已解决]数据替换数据1在数据10后,怎么防止替换错误?

sblisb

word中,数据10的数据在前面,被当成数据1替换了,怎么办?我写的代码怎么不起作用?
VBA-自动生成WORD文档-1.rar (17.33 KB, 下载次数: 11)

2013-7-17 22:54 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-18 08:41

1. If .Selection.Find.Execute("数据" & 1) Then '这里替换数据1怎么不成功?

复制代码

这句上面再加一句：

1. .Selection.HomeKey Unit:=6

复制代码

跳转到最佳答案楼层

hwc2ycy

1. If .Selection.Find.Execute("数据" & 1) Then '这里替换数据1怎么不成功?

复制代码

这句上面再加一句：

1. .Selection.HomeKey Unit:=6

复制代码

hwc2ycy

你替换完 数据7 后，SELECTION只选中了替换后的arr(i,7)当然就找不到 数据1了。

其实你如果用降序从10往1的话，就可以一次循环了。

hwc2ycy

另外，你可以用模板的方法嘛，就省得用filecopy来实现了。

hwc2ycy

Documents.Add 方法
返回一个 Document 对象，该对象代表添加到打开文档集合中的新建空文档。
语法

表达式.Add(Template, NewTemplate, DocumentType, Visible)

表达式   必选。一个代表 Documents 集合的变量。

参数

名称 必选/可选 数据类型 说明
Template 可选 Variant 要用于新文档的模板名。如果省略该参数，则使用 Normal 模板。
NewTemplate 可选 Variant 如果该属性值为 True，则将文档作为模板打开。默认值为 False。
DocumentType 可选 Variant 可以是下列 WdNewDocumentType 常量之一：wdNewBlankDocument、wdNewEmailMessage、wdNewFrameset 或 wdNewWebPage。默认常量是 wdNewBlankDocument。
Visible 可选 Variant 如果该属性值为 True，将在可见窗口中打开文档。如果该属性值为 False，则 Microsoft Word 打开此文档，但将文档窗口的 Visible 属性设置为 False。默认值为 True。

返回值
Document

示例


本示例基于 Normal 模板新建一篇文档。

Visual Basic for Applications
Documents.Add

本示例基于“专业型备忘录”模板新建一篇文档。

Visual Basic for Applications
Documents.Add Template:="C:\Program Files\Microsoft Office" _
    & "\Templates\Memos\Professional Memo.dot"

本示例以活动文档的模板为样例，创建并打开一个新模板。

Visual Basic for Applications
tmpName = ActiveDocument.AttachedTemplate.FullName
Documents.Add Template:=tmpName, NewTemplate:=True