使单词句子中间只有BOLD

时间:2014-03-21 10:49:41

标签: access-vba ms-access-2010 word-vba office-2010 word-2010

我有一个Access 2010数据库,我需要在其中创建字母(Word文档)。我希望用粗体字母的某些部分,但是当我尝试设置它时,它也会使同一行上的前一个文本也变粗。 我不认为Find会在这种情况下工作(我发现很多使用Find的格式化示例!),随着数据的变化;可能是可能的,但非常繁琐地确定它的起点和终点。 但是,当我处理它时,我可以捕获不同块中的数据,所以我尝试了类似的东西......

With oParagraph .Range.Text = sContent .Range.InsertAfter (sPreviewLetter) .Range.InsertAfter (sECText1) .Range.Collapse (wdCollapseEnd) End With With oParagraph .Range.InsertAfter (sECText2) .Range.Bold = True End With With oParagraph .Range.InsertAfter (sECText3) End With

对我来说似乎没有什么工作正常,但我希望它在现实中非常简单。在上面的代码片段中,我希望sECText2为粗体,但不是sECText1或sECText3。 谢谢你的帮助!

1 个答案:

答案 0 :(得分:0)

好吧,也许是一些躲闪或只是更好的编程,我担心我不知道但是这给了我所需要的东西......

oParagraph.Range.Select Selection.TypeText (sContent) Selection.TypeText (sPreviewLetter) Selection.TypeText (sECText1) Selection.Font.Bold = True Selection.TypeText (sECText2) Selection.Font.Bold = False Selection.TypeText (sECText3)