标题: (已解决)如何用VBSCript输出符号？ [打印本页]

---

作者: wl00560     时间: 2009-11-20 15:12    标题: (已解决)如何用VBSCript输出符号？

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

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

---

作者: 523066680     时间: 2009-11-20 17:19
终于看到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.

Quote:

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"

---

作者: 523066680     时间: 2009-11-20 17:23
试了一下，好像路径只能是绝对路径，刚刚用当前文件搞直接"test.doc" 出错了

---

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

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

---

作者: slore     时间: 2009-11-20 17:47
WSH.Echo "《》<>汉字?"

---

作者: 523066680     时间: 2009-11-20 18:06
原来是这样子呀。郁闷呢。

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

---

作者: asnahu     时间: 2009-11-20 18:58
中文的书名号？

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

---

作者: wl00560     时间: 2009-11-20 20:48
刚才试了一下，5楼与7楼的方法只能写在对话框中……
我现在想写入文本，而不是对话框……

---

作者: 523066680     时间: 2009-11-20 21:43
原来如此，就是要写入文本嘛。……………绕了好久，都是你，一开始拿
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 ]

---

作者: wl00560     时间: 2009-11-20 22:20
不好意思，我只是随便举了个例子，呵呵……
问题解决，谢谢啦……