Question

我使用vb6使用单个表自动化word文档。我有以下内容：

strCellContents = "s " & CStr(oRec("sphBase")) & "     c " & CStr(oRec("cylAdd")) & vbCrLf
strCellContents = strCellContents & oRec("Description") & vbCrLf
strCellContents = strCellContents & "1010" & CStr(oRec("RightOPC")) & vbCrLf
strCellContents = strCellContents & "1010" & CStr(oRec("RightOPC")) & vbCrLf
oDoc.Tables(1).Range.ParagraphFormat.SpaceBefore = 6
oDoc.Tables(1).Range.ParagraphFormat.SpaceAfter = 0
oDoc.Tables(1).Range.ParagraphFormat.LineSpacing = InchesToPoints(0.11)
oDoc.Tables(1).Cell(row, col).Range.Text = strCellContents
If Not oRec.EOF Then
    oRec.MoveNext
End If

你会注意到我重复其中一行两次，在30个单元格中分别给出四行文本（3列10行）。我希望重复行的第一个实例具有条形码字体。我将如何格式化该行？我有条形码字体，它已安装。

Answer 1

我找到了答案 iNumWords = oDoc.Tables（1）.Range.Words.Count ''修改条形码字体（第3行） - 现在加下划线对于q = 1到iNumWords 如果CStr（oDoc.Tables（1）.Range.Words（q））= strSKU那么
oDoc.Tables（1）.Range.Words（q）.Font.Underline = wdUnderlineSingle 退出万一下一步

格式化一行vb6 word 2007条形码

1 个答案: