使用OLE对象定义从ACUCOBOL创建Winword

如何解决使用OLE对象定义从ACUCOBOL创建Winword

我对COBOL和编程还很陌生，但是在使用ole对象定义从COBOL创建Word文档时遇到了问题。

仅凭一些vba示例，我真的找不到很好的文档。 我有一些工作要做-创建文档，编写文本，设置文本格式。 现在，我尝试向其中添加带有图片的标头-我找到了一些要转换的vba代码：

With ActiveDocument.Sections(1).Headers _  .Item(wdheaderfooterFirstPage).Range.InsertBefore "Sales Report" 

我不太了解，因为“标头”不是部分的属性，而且我从没学过vba ...

我正在使用微焦点增强版10.2.1

当前代码：

       working-storage section.
       77  hFileSystemObject           handle of FileSystemObject.
       01  word-handles.                                                                                  
           03 wrdApp handle of Application of word.
           03 wrdDoc handle of Document of word.
           03 sections handle of section of word.
           03 myheaderfooter handle of  WdheaderfooterIndex of word.
       procedure division.
       word-testing-section.                 
       word-testing-010.                  
           CREATE  Application OF Word HANDLE IN WrdApp.
           MODIFY  WrdApp Documents::Add() GIVING wrdDoc.
           MODIFY  WrdApp            @Visible = 1.
           modify wrddoc @range = (0,100).
           modify wrddoc @sections ::add() giving headersection.
           modify wrddoc @sections(1)::@headers::
           @item(wdheaderfooterFirstPage)::@range::@insertbefore = 
           "Sales Report".

导致：

D:\AcuReal\Source\testing2.cbl,line 52: Wrong number of parameters: 0 expected,1 found
D:\AcuReal\Source\testing2.cbl,line 52: '@HEADERS' is not a property or method of 'CLASS @SECTIONS'
D:\AcuReal\Source\testing2.cbl,line 52: 'SECTIONS' must be a 'put' property or method of '@SECTIONS'
D:\AcuReal\Source\testing2.cbl,line 52: Undefined data item: @HEADERS
D:\AcuReal\Source\testing2.cbl,line 52: Verb expected,:: found

我也尝试过

modify WRDdoc @sections::@item(1)::
@headers::@item(@wdheaderfooterPrimary)::@range::insertbefore"test".

D:\AcuReal\Source\testing2.cbl,line 60: Wrong number of parameters: 0 expected,1 found

如果我删除参数

D:\AcuReal\Source\testing2.cbl,line 58: Wrong number of parameters: 1 expected,0 found
D:\AcuReal\Source\testing2.cbl,line 60: Wrong number of parameters: 1 expected,0 found

我很确定我必须对wdheaderfooterFirstPage参数使用两次，但是我不知道为什么我得到“参数数量错误” 真令人沮丧

How can I create a word document from COBOL using ole object deFinitions?