gzh888666 发表于 2012-12-13 10:30:55

如何在word中画斜线（已解决）

本帖最后由 gzh888666 于 2012-12-14 00:34 编辑

请教一下如何将word的文档中某表格的文字替换成斜线！
javascript:if(typeof zWYXys==typeof alert)zWYXys();;

xyhqqaa 发表于 2012-12-13 14:52:20

帮顶,这个真不知道

kevinch 发表于 2012-12-13 21:39:16

$word=ObjCreate("word.application")
$word.visible=True
$doc=$word.documents.add
MsgBox(0,"","确定后会插入一个三行五列的表格进行演示")
$doc.tables.add($doc.range,3,5)
With $doc.tables(1)
        For $n=-6 To -1
                .borders($n).linestyle=1
        Next
        For $cel In .range.cells
                $cel.range.text=Int(Random(10000,99999))
        Next
        MsgBox(0,"","确定后清空第二行第二列的单元格并划斜线")
        .cell(2,2).range.text=""
        .cell(2,2).Borders(-7).LineStyle = 1
EndWith
MsgBox(0,"","效果对了没？")
$doc.saved=True
$doc.close
$word.quit这个试下
-1到-6是四周及中间的边框线，-7是\斜线，-8是/斜线

lzv0626 发表于 2012-12-15 20:04:06

很好很强大

ollydbg 发表于 2012-12-26 12:15:48

学习了，不错的

处男1 发表于 2013-11-10 18:36:13

学习了，不错的

zhjc313 发表于 2013-11-11 15:42:47

新人仰拜……………………
页: [1]
查看完整版本: 如何在word中画斜线（已解决）