Как скопировать range в другой документ

[Diego__]

Есть 2 документа. Хочу скопировать range из 1ого во 2ой. Как это сделать не используя clipboard?
Есть ли возможность скопировать range в другой документ предварительно не сохраняя документ в который планируется вставить range?
У range-a есть методы ExportFragment и ImportFragment, но они принимают параметром путь к файлу.
Как это сделать в одном документе?

[viter.alex]

MathType это делает таким макросом

Function CopyRange(ByVal rng As Range) As Range
    Dim saved As Range
    Set saved = Selection.Range
    rng.Select
    Set CopyRange = Selection.Range ' makes a copy, not a reference
    If right(CopyRange.Text, 2) = Chr(13) & Chr(7) Then CopyRange.SetRange CopyRange.start, CopyRange.end - 1
    saved.Select
End Function

[Diego__]

До этого момента было понятно, а сейчас ... не сильно разбираюсь в VBA, если быть точным - вообще не шарю
Вроде, рекурсия там....

можно немного описания, типа, вызвать то-то у того-то?

[viter.alex]

Никакой рекурсии. Просто в бейсике, чтобы вернуть значение из функции его нужно присвоить имени функции. Извини, думал что ты понимаешь. Вот код с комментариями.

Function CopyRange(ByVal rng As Range) As Range
    Dim saved As Range
    'Запоминаем в переменную выделенный диапазон
    Set saved = Selection.Range
    'Выделяем диапазон, переданный в качестве аргумента
    rng.Select
    'Функции даём возвратить выделенный диапазон
    Set CopyRange = Selection.Range ' makes a copy, not a reference
    'Если переданный функции диапазон находится в ячейке таблицы (символ с кодом 7 — знак конца ячейки) _
    то сжимаем возвращаемый диапазон на 1 символ справа
    If right(CopyRange.Text, 2) = Chr(13) & Chr(7) Then CopyRange.SetRange CopyRange.start, CopyRange.end - 1
    'Выделяем сохранённый диапазон
    saved.Select
End Function

Добавлено позже
Но с двумя документами такой фокус не пройдёт:

Sub test()
  Dim newdocrng As Range
  Dim olddoc As Document
  Set olddoc = ActiveDocument
  
  Set newdocrng = Documents.Add().Range 'Диапазон нового документа
  Set newdocrng = olddoc.Paragraphs.First.Range 'А здесь уже старого
  Set newdocrng = CopyRange(olddoc.Paragraphs.First.Range) 'И здесь тоже старого
End Sub

Попробовал экспорт во временный файл, а потом импорт, но даёт ошибку

Sub test()
  Dim FSO As Object
  Dim sFileName As String
  Dim onewdoc As Range
  
  Set FSO = CreateObject("Scripting.FileSystemObject")
  sFileName = FSO.GetTempName()
  sFileName = Environ("temp") & "\" & sFileName
  ActiveDocument.Paragraphs.First.Range.ExportFragment sFileName, wdFormatDocument
  Set onewdoc = Documents.Add().Range
  With onewdoc
    .Collapse
    .ImportFragment sFileName, False
  End With
End Sub

[Diego__]

Спасибо за объяснения

[Aent]

Diego__, я когда то вам уже предлагал подобное в другом топике
1) В исходном документе определяете Bookmark для вашего ранга
2) В принимающий документ вставляете поле INCLUDETEXT с этой закладкой.
3) Обновляете поле и отвязываете его от источника.

[Diego__]

Что то похожее было...
через includetext добавлял xml документ с подготовленным WordArt-ом.

CComVariant inc(Word::wdFieldIncludeText);
_variant_t v_path(L"\"D://DOCTemplate.xml\"");
Word::FieldPtr field = m_WordDocument->Fields->Add(range, &inc, &v_path);

field->Update();
field->Unlink();

а, вот как реализовать передачу range-a через данный механизм непонятно

пробую

Word::RangePtr range = firstDocument->GetParagraphs()->GetLast()->GetRange();
range->InsertAfter(L"param pam pam");

VARIANT anchor;
anchor.vt = VT_DISPATCH;
anchor.pdispVal = range;

_bstr_t str(L"MyBookmark");
Word::BookmarkPtr myBookmark = m_WordDocument->Bookmarks->Add(str, &anchor);

	
Word::RangePtr range2 = secondDocument->GetParagraphs()->GetLast()->GetRange();

VARIANT bookmarkVar;
bookmarkVar.vt = VT_DISPATCH;
bookmarkVar.pdispVal = myBookmark;

CComVariant type(Word::wdFieldIncludeText);
Word::FieldPtr field = secondDocument->Fields->Add(range2, &type, &bookmarkVar);

field->Update();
field->Unlink())

после secondDocument->Fields->Add(range2, &type, &bookmarkVar); в документе приемнике получаю "Error! Not a valid filename."
что я делаю не так? Можете привести небольшой пример?

[Aent]

Вставляемое поле INCLUDETEXT должно иметь вид вида
{INCLUDETEXT D:\\123.docx bmk1}, где первый параметр имя файла
откуда берётся ранг, а второй - имя закладки для этого ранга.
Для исключения коллизий рекомендую для букмарков использовать короткие символьно-цифровые имена латиницей.

[Diego__]

Спасибо, Aent. В коде выглядит так:

Word::RangePtr range = firstDocument->GetParagraphs()->GetLast()->GetRange();
range->InsertAfter(L"param pam pam");

VARIANT anchor;
anchor.vt = VT_DISPATCH;
anchor.pdispVal = range;

_bstr_t str(L"bmk1");

Word::BookmarkPtr myBookmark = m_WordDocument->Bookmarks->Add(str, &anchor);

CComVariant fileName(_T("C:\\BookmarkTest.doc"));
firstDocument->SaveAs(&fileName);

Word::RangePtr range2 = secondDocument->GetParagraphs()->GetLast()->GetRange();

CComVariant type(Word::wdFieldIncludeText);
CComVariant text(L"C://BookmarkTest.doc bmk1");

Word::FieldPtr field = secondDocument->Fields->Add(range2, &type, &text);
field->Update();
field->Unlink();

Здесь получается, что мой источник range-a должен быть сохранен. Можно тоже самое сделать не сохраняя ни один из документов?

[Aent]

Сообщение от Diego__;

Здесь получается, что мой источник range-a должен быть сохранен. Можно тоже самое сделать не сохраняя ни один из документов?

Нет. Для источника данных в INCLUDETEXT нужно указывать путь.
Пока документ не сохранён - пути нет ...