|
wl00560
银牌会员
积分 1384
发帖 709
注册 2005-10-29
状态 离线
|
『楼 主』:
(已解决)如何用VBSCript输出符号？
比如我想用VBSCript在Word中输入《》这个的符号，应该如何写脚本？
[ Last edited by wl00560 on 2009-11-20 at 22:21 ]
|
|
 2009-11-20 15:12 |
|
|
523066680
银牌会员
SuperCleaner
积分 2362
发帖 1133
注册 2008-2-2
状态 离线
|
『第
2 楼』:
终于看到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" |
|
|
综合型编程论坛
我的作品索引 |
|
|
2009-11-20 17:19 |
|
|
523066680
银牌会员
SuperCleaner
积分 2362
发帖 1133
注册 2008-2-2
状态 离线
|
『第
3 楼』:
试了一下，好像路径只能是绝对路径，刚刚用当前文件搞直接"test.doc" 出错了
|
综合型编程论坛
我的作品索引 |
|
|
2009-11-20 17:23 |
|
|
wl00560
银牌会员
积分 1384
发帖 709
注册 2005-10-29
状态 离线
|
『第
4 楼』:
呵呵，你好，谢谢啦……
看了一下，你这个脚本好像是如何对Word操作……
我的问题没那么复杂，我就是想用VBS输出《》这两个字符，Word也可，记事本也可，命令行也行，都没有关系……
刚才搜了一下，好像要用粘贴的办法。我现在想问的是：VBS有没有直接输出汉字或符号的函数？
|
|
|
2009-11-20 17:28 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
5 楼』:
WSH.Echo "《》<>汉字?"
|
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore |
|
|
2009-11-20 17:47 |
|
|
523066680
银牌会员
SuperCleaner
积分 2362
发帖 1133
注册 2008-2-2
状态 离线
|
『第
6 楼』:
原来是这样子呀。郁闷呢。
写入文本的话，估计还是要用文件创建对象创建文件，然后用写入对象写入了
|
综合型编程论坛
我的作品索引 |
|
|
2009-11-20 18:06 |
|
|
asnahu
初级用户
积分 99
发帖 53
注册 2006-8-18
状态 离线
|
『第
7 楼』:
中文的书名号？
wscript.echo chr(-24137)
wscript.echo chr(-24138)
|
|
|
2009-11-20 18:58 |
|
|
wl00560
银牌会员
积分 1384
发帖 709
注册 2005-10-29
状态 离线
|
『第
8 楼』:
刚才试了一下，5楼与7楼的方法只能写在对话框中……
我现在想写入文本，而不是对话框……
|
|
|
2009-11-20 20:48 |
|
|
523066680
银牌会员
SuperCleaner
积分 2362
发帖 1133
注册 2008-2-2
状态 离线
|
『第
9 楼』:
原来如此，就是要写入文本嘛。……………绕了好久，都是你，一开始拿
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 ]
|
综合型编程论坛
我的作品索引 |
|
|
2009-11-20 21:43 |
|
|
wl00560
银牌会员
积分 1384
发帖 709
注册 2005-10-29
状态 离线
|
『第
10 楼』:
不好意思，我只是随便举了个例子，呵呵……
问题解决，谢谢啦……
|
|
|
2009-11-20 22:20 |
|
