中国DOS联盟

比如我想用VBSCript在Word中输入《》这个的符号，应该如何写脚本？

[ Last edited by wl00560 on 2009-11-20 at 22:21 ]

终于看到wloo560来这边拉，虽然我不会，不过还是帮你找找资料

在 script_center.chm 电子书教程里，有关于vbs对word和excel的操作
目录为： microsoft office \ microsoft word

其中一例
Append Text to a Word Document

Description
Demonstration script that appends the current date to the existing Microsoft Word document C:\Scripts\Word\Testdoc.doc.

Const END_OF_STORY = 6
Const MOVE_SELECTION = 0

Set objWord = CreateObject("Word.Application")
objWord.Visible = True

Set objDoc = objWord.Documents.Open("c:\scripts\word\testdoc.doc")
Set objSelection = objWord.Selection
objSelection.EndKey END_OF_STORY, MOVE_SELECTION

objSelection.TypeParagraph()
objSelection.TypeParagraph()

objSelection.Font.Size = "14"
objSelection.TypeText "" & Date()
objSelection.TypeParagraph()
objSelection.TypeParagraph()

objSelection.Font.Size = "10"

试了一下，好像路径只能是绝对路径，刚刚用当前文件搞直接"test.doc" 出错了

呵呵，你好，谢谢啦……
看了一下，你这个脚本好像是如何对Word操作……
我的问题没那么复杂，我就是想用VBS输出《》这两个字符，Word也可，记事本也可，命令行也行，都没有关系……

刚才搜了一下，好像要用粘贴的办法。我现在想问的是：VBS有没有直接输出汉字或符号的函数？

WSH.Echo "《》<>汉字?"

原来是这样子呀。郁闷呢。

写入文本的话，估计还是要用文件创建对象创建文件，然后用写入对象写入了

中文的书名号？

wscript.echo chr(-24137)
wscript.echo chr(-24138)

刚才试了一下，5楼与7楼的方法只能写在对话框中……
我现在想写入文本，而不是对话框……

原来如此，就是要写入文本嘛。……………绕了好久，都是你，一开始拿
word话事而不是txt ……
set fs=createobject("scripting.filesystemobject")
set newtext=fs.createtextfile("a.txt")
newtext.write "《》"
newtext.close

-----------------------
还有就是vbs中借用cmd命令……

[ Last edited by 523066680 on 2009-11-20 at 21:46 ]

不好意思，我只是随便举了个例子，呵呵……
问题解决，谢谢啦……