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方法一些链接更多的细节。