Передача текста с форматированием как переменной из файла в файл с помощью vba

Question

Я относительно новичок в VBA и имею только очень ограниченный опыт программирования в целом, но очень ценю некоторую помощь!

Конечной целью является передача (форматирование) текста из текстового поля в PPT как переменной между презентациями. Я считаю важным, чтобы (форматированный) текст передавался как переменная, потому что переменная будет использоваться для генерации тела письма (эта часть кода будет выполнена, но я пытаюсь создать кишки этого переменная здесь). К сожалению, я понятия не имею, как передать переменную в VBA. Я думаю, что я понял, как захватить текст, но простое форматирование (полужирный шрифт, различия в размере текста и т. Д.) Теряется. Помоги пожалуйста? :-)

Dim headlines headlines = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text

Answer 1

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

например.

Dim myFormattedText as TextFrame ' or TextFrame2 to access all of the newer properties 
Set myFormattedText = ActivePresentation.Slides(1).Shapes(1).TextFrame ' or TextFrame2 

Таким образом, у вас есть все свойства текста внутри этого объекта.

Answer 2

Это должно помочь вам в этом. Он копирует объект формы, содержащий все необходимые свойства форматирования, из одной открытой презентации во вторую открытую презентацию. На самом деле вы сделали бы динамические презентации, слайды и формы динамическими на основе того, что вы пытаетесь достичь, но это рабочий пример, демонстрирующий принцип:

Option Explicit 

' Macro to copy the first shape from the first slide of open presentation 1 to the first slide of open presentation 2 
' Requires that 2 presetnations are open and that the first has a shape on slide 1 
' Wriiten by Jamie Garroch of youpresent.co.uk 
Sub PassTextBoxBetweenPresentations() 
    Dim oSrcShp As Shape ' Source Shape in Presentation 1 
    Dim oTgtShp As Shape ' Source Shape in Presentation 2 

    ' Set a reference to a shape in the first presentation, in this case, the first shape on the first slide 
    Set oSrcShp = Presentations(1).Slides(1).Shapes(1) 

    ' Copy the shape (with all of its properties) to the clipboard 
    oSrcShp.Copy 

    ' Paste the shape from the first presentation to the second presentation 
    Presentations(2).Slides(1).Shapes.Paste 

    ' Set a reference to the pasted shape 
    Set oTgtShp = Presentations(2).Slides(1).Shapes(Presentations(2).Slides(1).Shapes.Count) 

    ' Do stuff with your pasted shape object 
    With oTgtShp 
    Dim headlines 
    If .HasTextFrame Then 
     If .TextFrame.HasText Then 
     headlines = .TextFrame.TextRange.Text 
     Debug.Print headlines 
     End If 
    End If 
    End With 

    ' Clean up 
    Set oSrcShp = Nothing: Set oTgtShp = Nothing 
End Sub