Information générale
Catégorie:
COM/DCOM et OLE Automation
Seems to work. Thanks.
>Try instead of >oRange.InsertAfter("XYZ")<:
>
>with oDocument.Application.Selection
> .GoTo(0,1,2,"")&&goto where section2 starts
> .Moveleft(1)&& goto the end of Section1
> .InsertAfter("XYZ")
>endwith
>
>>It puts the text into the next section instead of at the end of section 1.
>>
>>Any ideas ?
>>
>>
>>oWord = CreateObject("Word.Application")
>>oWord.visible = .t.
>>oDocument = oWord.Documents.Add("Tap.dot")
>>
>>oRange = oDocument.Sections[1].Range
>>oRange.InsertBefore("ABC"+chr(13))
>>oRange.InsertAfter("XYZ")
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement