Сохранить выделенный текст в RTF-документ, не открывая новый документ и не переключая окна

Question

Есть ли способ сохранить выбранный блок текста в документе RTF, не открывая новый документ, вставляя содержимое в новый документ, сохраняя новый документ, а затем возвращаясь к исходному документу? Это много прыжков, когда все, что я хочу сделать, это выделить блок текста, щелкнуть правой кнопкой мыши и выбрать "Сохранить как".

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

Answer 1

Используете ли вы windows(FILENAME).Activate функцию для всплывающих окон? Это эффективный способ сделать это. Вот пример, однако я предполагаю, что это может быть не то, что вы ищете:

Windows(FileName).Activate
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
    .Text = "Paste2_LE_SUMHere"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindAsk
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.PasteAndFormat (wdPasteDefault)

У меня также проблемы с RTF. У меня есть макрос, который требует, чтобы я открыл RTF, выделил все содержимое документа и вставил его в файл .docx. У меня нет проблем с доступом к файлу .docx, однако я не могу переключиться на файл RTF. Я постоянно получаю сообщение об ошибке: Ошибка выполнения 5491. Запрашиваемый элемент коллекции не существует. Я получаю эту ошибку независимо от того, использую ли я относительный или абсолютный путь, или просто пытаюсь получить доступ к имени файла напрямую. Какие-нибудь мысли?