Однажды ваш покорный устал от рутины и пошел в гости к ИИ. Дело в том, что я, когда проверяю работы студентов в виде двухколоночной таблицы-билингвы, постоянно сталкиваюсь с одной и той же проблемой: текст в ячейках лежит монолитом, без разбивки на предложения (как на скриншоте). Заниматься разбивкой таких текстов и растаскивать предложения по ячейкам вручную — еще то удовольствие. Вот я психанул и пошел к ИИ. Зная, какие вещи мне ИИ выдавал на Python, я посчитал, что тут будет фигня делов, поэтому...

Алгоритм настройки и выполнения макроса Sub CopyCommentsToNewDoc() Dim oComm As Comment Dim oNewDoc As Document Dim oOldDoc As Document Set oOldDoc = ActiveDocument If ActiveDocument.Comments.Count > 0 Then Set oNewDoc = Documents.Add Else Exit Sub For Each oComm In oOldDoc.Comments With oNewDoc .Range.InsertAfter oComm.Scope.Text .Comments.Add .Range(.Paragraphs.Last.Range.Start, .Paragraphs.Last.Range.End - 1), oComm.Range.Text .Comments.Item(.Comments.Count)...