如何在VBA中设置文本/字符串的格式？

Question

在下面的代码中，我采用了一些输入参数，无论是文本还是单元格，并将它们组合成一个使用我需要的格式的字符串。我需要使Task_Name变为粗体，以及像“Lead：”这样的文本。我知道你不能以粗体显示变量，但我该怎么做？我存储该值的单元格最终将用于Word邮件合并。

我需要格式化字符串的一部分。在下面的代码中，我需要将Task_Name，“Lead：”等全部加粗。

Function GENERATE_STAFFING_SECTION(Task_Name, Lead_By, Members, Instructions) 
    Dim tmpSection As String 

    If Len(Task_Name > 0) And Len(Lead_By) > 0 And Len(Members) > 0 And Len(Instructions) > 0 Then 
     tmpSection = vbLf _ 
        & Task_Name _ 
        & vbLf & "Lead : " & Lead_By _ 
        & vbLf & "Ambassadors : " & Members _ 
        & vbLf & "Instructions : " & Instructions _ 
        & vbLf 
    Else 
     tmpSection = "" 
    End If 

    GENERATE_STAFFING_SECTION = tmpSection 
End Function 

而且，我知道这不是最干净的代码，因此，如果有如果有改进的其他建议，他们是最欢迎的。

谢谢！

Answer 1

您不能直接向字符串添加任何内容以使单元格具有粗体字符。

一旦将字符串写入单元格，您需要返回并重新处理单元格。 例如：

With ActiveCell.Characters(Start:=11, Length:=6).Font 
    .Name = "Arial" 
    .FontStyle = "Bold" 
    .Size = 10 
    .Strikethrough = False 
    .Superscript = False 
    .Subscript = False 
    .OutlineFont = False 
    .Shadow = False 
    .Underline = xlUnderlineStyleNone 
    .ColorIndex = xlAutomatic 
End With 

这个片段将仅在小区的一部分设置为粗体。

编辑：

该代码可以用来实现上述，给你想要的东西。 它可以写更好，但应该给你的你有什么写什么的想法：

Public Sub FormatOuput() 

    Dim i As Integer 

    'Format Task_name 
    i = InStr(1, ActiveCell.Text, vbLf) 
    MakeBold 1, i 

    'Format 'Lead' 
    MakeBold i + 1, 4 

    'Format 'Ambassadors' 
    i = InStr(i + 1, ActiveCell.Text, vbLf) 
    MakeBold i+1, 11 

    'Format 'Instructions' 
    i = InStr(i + 1, ActiveCell.Text, vbLf) 
    MakeBold i+1, 10 

End Sub 

Public Sub MakeBold(startPos As Integer, charCount As Integer) 
    With ActiveCell.Characters(start:=startPos, length:=charCount).Font 
     .Name = "Arial" 
     .FontStyle = "Bold" 
     .Size = 10 
     .Strikethrough = False 
     .Superscript = False 
     .Subscript = False 
     .OutlineFont = False 
     .Shadow = False 
     .Underline = xlUnderlineStyleNone 
     .ColorIndex = xlAutomatic 
    End With 
End Sub