Hierarchy
⤷ CRM (Application Component) Customer Relationship Management
⤷ CRM_APPLICATION (Package) All CRM Components Without Special Structure Packages
⤷ NMED (Package) R/3MED: Medical documentation GSD
IMG Activity
ID | SIMG_ISHMED_WORD03 | Save WordContainer Document |
Transaction Code | S_KK4_98000161 | (empty) |
Created on | 20040210 | |
Customizing Attributes | SIMG_ISHMED_WORD03 | IBAdI Save WordContainer Document |
Customizing Activity | SIMG_ISHMED_WORD03 | BAdI Save WordContainer Document |
Document
Document Class | SIMG | Hypertext: Object Class - Class to which a document belongs. |
Document Name | ISHMED_WORD_SAVE |
Use
Once you have saved a Word Container document this BAdI calls the Word macro 'ishmed_return_value_to_r3'. In this macro the R3TableOut table can be filled and is available in the BAdI.
Requirements
Standard settings
Activities
Example
Paragraph by paragraph, the entire Word text is provided in the 'R3TableOut' table as structure ISHMED_T_N2STRING with 4096 bytes per line.
Sub ishmed_return_value_to_r3()
Dim WordText As Range
Dim strTempZeile As String
Dim strInLine As String
Dim strWtext As String
Dim lfn As Integer
Set r3table_out = ActiveDocument.Container.Tables("R3TableOut").Table
Selection.HomeKey Unit:=wdStory
SelStart = Selection.Start
Selection.EndKey Unit:=wdStory
SelEnd = Selection.Start
Set WordText = ActiveDocument.Range(Start:=SelStart, End:=SelEnd)
strWtext = WordText.Text
While Len(strWtext) > 0
strTempZeile = GetToken(strWtext, vbCr)
lfn = lfn + 1
Set Row = r3table_out.Rows.Add
Row.Cell(1) = strTempZeile
Wend
Set Row = r3table_out.Rows.Add
'...
End Sub
Business Attributes
ASAP Roadmap ID | 257 | Create User Exits |
Mandatory / Optional | 3 | Nonrequired activity |
Critical / Non-Critical | 2 | Non-critical |
Country-Dependency | A | Valid for all countries |
Maintenance Objects
Maintenance object type | E | Business Add-In - Definition |
History
Last changed by/on | SAP | 20040210 |
SAP Release Created in | 472 |