Vložení textu ze schránky – Visual Basic – Fórum – Programujte.com

V prohlížeči zkopíruju text pomocí jednoho programu, pak spustím makro ve Wordu:

 Documents.Add DocumentType:=wdNewBlankDocument
 Documents.Add.Content.Paste
 Selection.HomeKey Unit:=wdStory

Které má založit nový dokument a vložit tam text ze schránky. Na řádku

Documents.Add.Content.Paste

se mi ale debuger zastaví s chybou. Tak jsem chtěl vědět čím to může nastat.

Těsně předtím spuštěním makra jsem ale kontroloval v externím programu že ty data ve schránce jsou.

Teď se mi to ale zrovna rozjelo, tak číslo chyby nemohu opsat. Dám vědět jestli se to bude opakovat.

Tak chyba kterou to hlásí je 4198, příkaz nebyl úspěšný.

Čím by to mohlo být?

Deď jsem překontroloval co je ve schránce pomocí VBA a text tam je.

 Documents.Add DocumentType:=wdNewBlankDocument
 
 Dim BufObj As MSForms.DataObject, BufTxt As String
 Set BufObj = New MSForms.DataObject
 BufObj.GetFromClipboard
 BufTxt = BufObj.GetText

 Documents.Add.Content.Paste
 Selection.HomeKey Unit:=wdStory

Zjistil jsem, že se mi otevírá přinejmenším jedno nové Okno navíc. Po odstranění

Documents.Add DocumentType:=wdNewBlankDocument
se problém vyřešil. Přišel jsem na to že druhý řádek vytváří nový dokument. Tím se asi zpomalila akce pastu a nějak to prostě selhalo.

 

Tak pořád to dělá tu chybu, jenže ne vždy. Ve schránce údajně data jsou, ale když se debugger zastaví kvůli chybě a přeruším chod makra, tak data ze schránky nejdou vložit (ručně ctrl+v)...