VBAの単語を整形する

Question

私はこれまで装置のリストをコピーしてきましたが、太字の書式は間違っています。最初の行のみ太字にする必要がありますが、すべてを太字にします。どんな助けも素晴らしいだろう。

'Equipment Algorithm 
    Dim equip As Integer 
    equip = 11 
    Do While Sheet2.Cells(equip, 5).Value <> 0 
    Sheet2.Rows(equip).Copy 
    wdapp.Selection.PasteAndFormat wdFormatOriginalFormatting 
    equip = equip + 1 
    Loop 
    .InsertBreak Type:=wdPageBreak 

Answer 1

"PasteSourceFormatting"引数で、CommandBars.ExecuteMSO方法を使用してみてください：

Dim rng as Range 
With Sheet2 

    Do While .Cells(equip, 5).Value <> 0 
     Set rng = .Range(.Cells(equip), .Cells(equip,.Columns.Count).End(xlToLeft)) 
     rng.Copy 
     wdapp.CommandBars.ExecuteMSO "PasteSourceFormatting" 
     DoEvents 
     equip = equip + 1 
    Loop 

End With 

はExecuteMSO方法についての詳細へのリンクについてthis答えを参照してください。