VBA Word to Excel - Word внедряется inexcel при попытке вставить

Я пытаюсь скопировать документ Word в документ excel, когда я делаю это с помощью кода ниже, он вставляет документ слова в документ excel, а не вставляет его текст.VBA Word to Excel - Word внедряется inexcel при попытке вставить

Как это сделать, чтобы он не вставлял документ слова, а вставлял в него текст?

Dim objWord As Object, objDoc As Object 
Set objWord = CreateObject("Word.Application") 
Set objDoc = objWord.Documents.Open("\\Desktop\REPORT.doc") 
objWord.Visible = True 

objWord.Selection.WholeStory 
objWord.Selection.Copy 

Workbooks.Add 
Selection.PasteSpecial

источник

2016-07-04 Mr.Burns

У вас есть фотография того, что происходит? Я подозреваю, что вам просто нужна паста в качестве значений, но я бы хотел сначала подтвердить –

@BryanDavies Насколько я хотел бы загрузить изображение того, что происходит, я не могу работать, у него есть заблокированный/заблокированный экран печати. Лучший способ, которым я могу это описать, весь документ слова в excel как текстовое поле, но у него есть линейка сбоку и сверху, в excel, если я выбираю вложенное слово, которое он имеет в строке формул excel "= EMBED («Word.Document.8», «») « –

Хорошо, я полагаю, вам нужно это быстро :). Я нахожусь на своем мобильном устройстве, но если вы используете макрос записи и записываете специальную пасту в качестве значений, вы получите код, который будет работать. Я буду обновлять один раз, когда вернусь на компьютер –

Попробуйте Вставить как значения;

Selection.PasteSpecial Paste:=xlPasteValues

источник

2016-07-04 12:37:14

При вставке из Слова в Excel без указания метода вставки, VBA по умолчанию вставить объект Word, в листе (как это сохраняет большую часть данных возможно). Если вы укажете в команде PasteSpecial использовать xlPasteValues, она вставляет выделенный текст в нужную ячейку в виде строки

источник

2016-07-04 12:21:15 RGA

VBA Word to Excel - Word внедряется inexcel при попытке вставить

ответ

Смежные вопросы