VBA'yı kullanarak kalın metinleri Word'e yerleştirin

Question

Belirli Excel hücresi değerlerini Word'e dışa aktaran küçük bir komut dosyası yazdım. Bununla birlikte, belirli eklerin kalın olması gerekir. Ve bunu yapmanın kolay bir yolu yok gibi görünüyor.

Bu kod sonradan en mantıklı çözüm gibi görünüyor, bu yüzden çalışmıyor kayıtları üzerinden döngüler ve metin ekleme ve tekrar kapanmadan önce kalın açma Word belgesi

Do While intRow < intTotalRows + 1 

       strTemp = " ;b;" & Range("G" & intRow).FormulaR1C1 & " " & Range("I" & intRow).FormulaR1C1 & ";e; " 

       If strTemp <> strCur Then 
        strCur = strTemp 
        .Content.Font.Bold = True 
        .Content.InsertAfter strCur 
       End If 

       .Content.Font.Bold = False 
       .Content.InsertAfter Range("A" & intRow).FormulaR1C1 & " - " & Range("C" & intRow).FormulaR1C1 & " " & Range("E" & intRow).FormulaR1C1 & " * " 

      intRow = intRow + 1 
     Loop 

ekler.

Sonra metin bulmak ve değiştirmek için çalıştı, ama bu da işe yaramadı:

     .Content.Find.ClearFormatting 
     With .Content.Find 
      .Text = ";b;" 'Look for 
      .Replacement.Text = ";bbb;" 'Replace with 
      .Forward = True 
      .Wrap = wdFindContinue 
      .Format = False 
      .MatchCase = False 
      .MatchWholeWord = False 
      .MatchWildcards = False 
      .MatchSoundsLike = False 
      .MatchAllWordForms = False 
     End With
 

.Content.Find.Execute Replace:=wdReplaceAll 
 

Answer 1

.TypeText ile .InsertAfter değiştirin. Ekleme, yapıştırma gibi çalışır; oysa TypeText, klavyede yazı yazacakmış gibi çalışır.