VBA word格式化

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

嘗試使用CommandBars.ExecuteMSO方法，與"PasteSourceFormatting"說法：

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 

見this答案在ExecuteMSO方法一些鏈接更多的細節。