none
COMPRINTWORD RRS feed

  • Spørgsmål

  • Jeg er ved at udvide antallet af kommandoer under COMPRINTWORD til også at kunne håndtere InsertAutoText, men jeg skal åbenbart lige have lidt hjælp til denne.

    Jeg har fundet denne kommando,

    Selection.TypeText = "In " 
    Set myRange = ActiveDocument.Words(1) 
    myRange.InsertAutoText

    og den har jeg prøvet at omsætte til dette i COMPRINTWORD.fnc :

        #Case('InsertAutoText')
            SET COMPush(&HCOM, 'HTable')
            SET COMPushVariant(&HCOM,#COMAPI_StringType, &IDATA1)
            SET &HR = COMPut(&HCOM, 'TypeText',0)
            #ShowError(&HCOM,&CMD+':'+'COMInvoke,TypeText')
            SET &HR = COMInvoke(&HCOM, 'InsertAutoText',1,0)
            #ShowError(&HCOM,&CMD+':'+'COMInvoke,InsertAutoText',#RetFalse)

    men den fejler for mig.

    På forhånd tak.

    1. april 2020 07:40