Excel VBA: définition des style de police et la taille lors de l'ajout de texte MS-Word

Je veux créer un document word à l'aide de VBA Excel, et ajoutez du texte avec différents styles et tailles de police. Voici mon code:

Sub CreateNewWordDoc()
    Dim wrdDoc As Word.Document
    Dim wrdApp As Word.Application
    Set wrdApp = CreateObject("Word.Application")
    Set wrdDoc = wrdApp.Documents.Add

    Dim charStart As Long
    Dim charEnd As Long

    With wrdDoc
        For i = 1 To 3
            charStart = wrdApp.Selection.Start
            .Content.InsertAfter (" some text")
            charEnd = wrdApp.Selection.End
            If i = 1 Then
                'set the text range (charStart,charEnd) to e.g. Arial, 8pt
            Else
                If i = 2 Then
                    'set the text range (charStart,charEnd) to e.g. Calibri, 10pt
                Else
                    'set the text range (charStart,charEnd) to e.g. Verdana, 12pt
                End If
            End If
        Next i
        .Content.InsertParagraphAfter
        .SaveAs ("testword.docx")
        .Close ' close the document
    End With
    wrdApp.Quit
    Set wrdDoc = Nothing
    Set wrdApp = Nothing
End Sub

Comment puis-je définir le style de police et la taille à la volée dans le if-else-dessus?

OriginalL'auteur Tu Bui | 2014-02-23

  1. 6

    Serait quelque chose comme cela fit le projet de loi?

    Sub CreateNewWordDoc()
  Dim doc As Word.Document
  Dim toAdd As String
  Dim lengthAdded As Long
  Dim selStart As Long

  Set doc = ActiveDocument
  toAdd = "Hello World" ' What to add?
  lengthAdded = Len(toAdd) ' For later!
  selStart = Selection.Start ' Where to add the text?

  doc.Range(selStart).InsertAfter (toAdd)
  With doc.Range(selStart, selStart + lengthAdded)
    ' Here's where the font stuff happens
    .Font.Name = "Arial"
    .Font.Size = 15
  End With

End Sub

    Notez que j'ai débarrassé de la majeure partie du code qui n'est pas directement pertinente à la question. J'espère que vous pouvez extrapoler à partir de mon code à la vôtre!

    tnx. J'ai réussi à intégrer votre code dans la mienne avec un changement mineur dans le calcul de selStart, de sorte qu'il pointe vers le dernier caractère du document après chaque tour de boucle

    OriginalL'auteur LondonRob