调整同一段落不同部分的字体-Excel VBA

Question

我正在通过VBA将数据从Excel输入到Word文档中。我想像下面这样格式化。

1.服务票号452345：Lorem ipsum dolor sit amet,consectetur adipiscing elit,sed do eiusmod tempor incidunt ut labore et dolore magna aliqua。

服务票部分用粗体和斜体显示，描述仅用斜体显示。服务票号和描述来自Excel中的不同单元格。

这是我的代码：

'' Bookmark where I will be inserting the data.
wdApp.Selection.GoTo what:=-1, Name:="Service_Ticket_Comments"

Dim i As Integer
Dim serviceTicket As String

For i = 4 To shAuditTrail.Range("A4").End(xlDown).Row


    '' Pulling comments from the comments column.
    If Not IsEmpty(Cells(i, 11)) Then

          serviceTicket = "Service Ticket #" & Cells(i, 1)

          wdApp.Selection.TypeText "Service Ticket #" & Cells(i, 1)
          wdApp.Selection.Font.Bold = True
          wdApp.Selection.Font.Italic = True


          wdApp.Selection.TypeText " - " & Cells(i, 11) & Chr(10) & Chr(10)
          wdApp.Selection.Font.Italic = True
    End If

Next

这使得服务票证部分和描述变得粗体化，因为selection应用于整块。我如何只保留第一部分的粗体和斜体，而其他部分只是粗体？

Answer 1

可以使用“范围字符”属性设置单元格中特定字符的格式。（参见https://msdn.microsoft.com/en-us/library/office/ff198232.aspx)例如，下面的例程将在范围内每个单元格的搜索字符串之前（包括搜索字符串）的所有文本用斜体字表示，并用粗体表示。在这种情况下，要查找的字符串也作为参数传递。

Sub TestMacro()
   Call BoldItalicsPartofCell(Selection, ":")
End Sub


Sub BoldItalicsPartofCell(rng As Range, searchstr)
   Dim singlecell As Range     'Loop counter
   Dim beforecolon As Integer  'Starting position of search string

   For Each singlecell In rng
      beforecolon = InStr(singlecell, searchstr) - 1 + Len(searchstr)
      If beforecolon > 0 Then
         With singlecell.Characters(Start:=1, Length:=beforecolon).Font
            .FontStyle = "Bold Italic"
            '.Underline = True  'If you want udnerlined as well!
         End With
      End If
   Next
End Sub

Answer 2

不要使用选择,而是使用范围,与Excel中的操作相同。

不清楚目标Word文档中的选择来自哪里，所以我没有选择使用它作为起点。但通常情况下，只有当用户选择了目标时，您才会使用此技术...

Dim rng as Word.Range
Set rng = wdApp.Selection.Range
rng.Text = serviceTicket
rng.Font.Bold = True
rng.Font.Italic = True
rng.Collapse wdCollapseEnd
rng.Text = Cells(i,11) & vbCr
rng.Font.Bold = False
rng.Font.Italic = True

注意：您实际上应该为此格式创建/使用字符样式，而不是直接应用该格式。这将产生更有效的代码和更易管理的文档。