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

尝试使用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

有关ExecuteMSO方法的详细信息，请参阅this答案。