Question

如何把txt中的文字全选，替换到word的标签中去，然后删除txt中的数据

我只会把excel中的数据替换到word中，txt就不会了，望指点

Answer 1

能详细说明的你的需求吗，最好粘贴你的已经写好的代码，差的几行大家帮你补齐。

追问

就是刚刚您做的，把拷贝到txt中的数据替换到word的标签中，然后删除txt中的数据，word中的标签名为b1.

追答

真不明白你要做什么呀，你现在需要什么文件：WORD、TXT、EXCEL？使用什么数据：EXCEL、TXT？

提问说你会写到WORD了，只是不会写TXT，追问的代码是写TXT的，追问的文字是说需要修改WORD。

编程的人，希望说话按照程序的逻辑一样，准确表达你要做什么。

追问

使用txt文件中的数据，需要word

就是把txt中的文字替换到word的标签中去，就是这样

追答

那你看你的代码，为什么写Range("Q12:Q48").Copy开始的三行，你知道意思吗，就是或获取EXCEL表Q12:Q48的内容，是不是不应该要了呢

你说的需要从TXT文件里面读取，那么大概应该修改为这样的代码：
set fs =createobject("scripting.filesystemobject")
set ts=fs.opentextfile("c:\1.txt",1,false)
MyStr=ts.readline
ts.close
这样执行以后MyStr就是1.txt文件的第一行，如果你需要所有行，请使用while循环读出连接。

再看你的代码，Open "c:\1.txt" For Append，你知道这个语句的意思吧，把内容写到TXT文件里面，还应该要吗？

请根据你的理解，修改你的代码，修改完毕如果无法运行就请再次粘贴。

希望稍微开动脑筋，不是随便乱贴代码等别人所有事情都帮你，自己能改的就改了。

追问

我只是节选了我代码中的一部分，意思就是把Range("Q12:Q48")中的内容复制到1.txt中去，然后再把1.txt中的内容 赋值到word中的标签中。把内容复制到1.txt中的代码在我贴出的代码已实现，就是后面如何把1.txt中的内容赋值到word标签未实现，如何把txt的内容赋值到word是重点
我表达能力不好，抱歉

追答

为什么要兜这个圈子呢，EXCEL到WORD可以直接写的，无需通过TXT兜一圈，Q12:Q48第一个的内容有连接，这样就行：
MyStr=""
for i=12 to 48
MyStr=MyStr & Cells(i,"Q") & Chr(9)
next i

追问

如果直接把excel中的数据写在word的话，word排版会出问题，只有通过全选txt的数据赋值到word中才可以保证排版。

追答

按我上面的方法，不会有问题。