如何用WORD97中的VBA读外部文件内容到当前的Word文件中
编号：QA001228
建立日期: 1999年6月22日 最后修改日期：2002年3月7日
所属类别：
郭永健:
我使用Windows95。我想用WORD97中的VB Editor编写一段有关Word的应用程序，但不知如何将所选字符串写入当前的Word文件中？即从外部文件中读取字符串后，写入Word文本中。多谢赐教。
回答:
下面这个小程序打开readme.txt，并从其中逐行读入文件，只要是非空行就写入当前文本。这里面除了Selection.TypeText Text:=s + vbCrLf一句都是普通的VB语句。如果你不知道同Word操作相对应的VBA指令，你可以先录制一段宏(记录你的操作)，然后分析这段宏。我就是使用这个方法知道Selection.TypeText语句的。
Sub test()
Open "d:\pwin95\readme.txt" For Input As #1
While Not EOF(1)
Line Input #1, s
If Trim(s) <> "" Then
Selection.TypeText Text:=s + vbCrLf
End If
Wend
Close #1
End Sub
崔良金的意见：
用filesystemobject更容易实现。
相关问题：
QA003013 "怎么找不到FileSystemObject"
此问题由李海回答。
| |
|
|
| |
|
|
