Chinaunix首页 | 论坛 | 博客
  • 博客访问: 717301
  • 博文数量: 158
  • 博客积分: 6010
  • 博客等级: 准将
  • 技术积分: 1643
  • 用 户 组: 普通用户
  • 注册时间: 2007-10-11 14:37
个人简介

人法地,地法天,天法道,道法自然

文章分类

全部博文(158)

文章存档

2022年(1)

2020年(3)

2016年(1)

2014年(7)

2013年(4)

2010年(5)

2009年(86)

2008年(25)

2007年(26)

我的朋友

分类:

2007-10-15 15:19:49

SAP中,对于生用户在不知道操作的情况下:为其添加说明书,调用服务器上已存放好的word文档说明书;其程序简略代码编写如下:
 
tables : sscrfields .
type-pools : ole2 .
data : word type ole2_object ,
       document type ole2_object .
 
selection-screen : FUNCTION KEY 1 .
 
initialization .
 
sscrfields-FUNCTXT_01 = '装柜通知单操作说明书 ' .
 
at selection-screen .
 case sscrfields-ucomm .
   when 'FC01' .
   
   call method of word 'AppClose' .  "检测是否已打开过说明书文档
   free object word .
   clear : word-handle , word-header .
 
   create object word 'Word.Application' . "创建word应用程序
   set property of word 'Visible' = 1 .
   call method of word 'Documents' = document .
   call method of document 'OPEN'
               exporting
                  #1 = filename "filename说明书所在的目录'如:\\192.168.1.1\stock\操用说明书\d.doc' 
   stop .
 endcase .
 
 
 
 
阅读(1252) | 评论(0) | 转发(0) |
0

上一篇:ABAP中检查日期合法性

下一篇:关于CHECKBOX1

给主人留下些什么吧!~~