Applicare formattazione dei caratteri in PowerPoint Testo Programatically

Question

Sto cercando di utilizzare VBA per inserire del testo in una presentazione PowerPoint TextRange, io uso qualcosa di simile:

ActiveWindow.Selection.SlideRange.Shapes("rec1").TextFrame.TextRange.Text = "Hi" 

Tuttavia, non riesco a capire come applicare grassetto , corsivo e sottolineato in modo programmatico (non vedo una proprietà .RichText o qualcosa di simile).

Quello che ho è un semplice testo HTML con testo in grassetto, corsivo e sottolineato che vorrei convertire.

Qualcuno sa come fare?

Answer 1

Questo è facilmente realizzabile utilizzando s' il TextRangeCharacters, Words, Sentences, Runs e Paragraphs oggetti e poi è Font oggetto per impostare grassetto, sottolineato e corsivo (tra le altre proprietà). Ad esempio:

Sub setTextDetails() 
    Dim tr As TextRange 
    Set tr = ActiveWindow.Selection.SlideRange.Shapes(1).TextFrame.TextRange 
     With tr 
      .Text = "Hi There Buddy!" 
      .Words(1).Font.Bold = msoTrue 
      .Runs(1).Font.Italic = msoTrue 
      .Paragraphs(1).Font.Underline = msoTrue 
     End With 
End Sub 

Answer 2

Provare a cercare MSDN's documentation su TextRange object. Contiene esempi su come accedere alle proprietà Font dell'oggetto TextRange.

EDIT: è possibile accedere a cose come il grassetto e corsivo di codice in questo modo:

TextRange.Font.Bold = msoTrue 

EDIT EDIT: Ci sono diversi metodi con cui è possibile selezionare solo alcune testo in un intervallo di testo. Vedere la seguente:

• Characters Method
• Lines Method
• Paragraphs Method
• Words Method

Secondo i sames da this link, è possibile selezionare una parte del testo utilizzando uno di questi metodi e imposta il carattere a livello di codice. Ad esempio:

Application.ActiveDocument.Pages(1).Shapes(2) _ 
.TextFrame.TextRange.Words(Start:=2, Length:=3) _ 
.Font.Bold = True 

Questo esempio è stato preso dal collegamento Metodo parole.

Answer 3

Oltre alla risposta di cui sopra, dovresti provare a nominare gli oggetti che cambierai, dal momento che selezionarli nel mezzo di una presentazione potrebbe far sì che PowerPoint si comporti in modo strano. Crea un nuovo oggetto TextRange e impostalo in questo modo.

dim mytextrange As TextRange 
Set mytextrange = ActiveDocument.Pages(1).Shapes(2).TextFrame.TextRange 
mytextrange.Words...