Nhờ mọi người giúp vấn đề này với:
Mình muốn xây dựng 1 hàm hỗ trợ định dạng chữ đậm cho một phần nội dung nào đó trong text box của access. Vì dụ : textbox có nội dung là "Xin chào Các bạn" kết quả muốn hiển thị thành "Xin chào Các bạn".
Xin cảm ơn mọi người.

Nhờ mọi người giúp vấn đề này với:
Mình muốn xây dựng 1 hàm hỗ trợ định dạng chữ đậm cho một phần nội dung nào đó trong text box của access. Vì dụ : textbox có nội dung là "Xin chào Các bạn" kết quả muốn hiển thị thành "Xin chào Các bạn".
Xin cảm ơn mọi người.

Chắc là không được vì nguyên tắc định dạng kiểu chữ nguyên cho textbox chứ không thể chia chữ ra rồi định dạng như bạn được.

Làm được. Bạn chi cụm từ thành 2 phần ứng với 2 textbox
Bạn thích chữ đâọ hay nhạt chi chỉnh trên textbox còn nội dung bạn dùng hàm cắt chuỗi rồi bỏ vào text là OK
thử coi

(09-11-13, 12:11 AM)tt1212 Đã viết: Làm được. Bạn chi cụm từ thành 2 phần ứng với 2 textbox
Bạn thích chữ đâọ hay nhạt chi chỉnh trên textbox còn nội dung bạn dùng hàm cắt chuỗi rồi bỏ vào text là OK
thử coi

---

Cảm ơn bạn, nhưng đó không phải là giải pháp. Còn cách nào nữa không ??.

không làm được bạn ah!

Bạn này có cùng một câu hỏi mà lại đăng tại hai chỗ. Về câu hỏi của bạn, câu trả lời là không. Ngoại trừ việc dùng text box hỗ trợ định dạng richtext. Nếu muốn thế, bạn phải dùng một điều khiển khác.
Nói chung, nên đơn giản hoá cách tư duy một chút, nếu bạn bắt buộc phải làm vậy thì chịu khó lên google tìm richtextedit control activeX.

Nếu textbox thì thử xem cách này xem

Option Explicit

Sub test()

ActiveSheet.Shapes(1).TextFrame2.TextRange.Characters(1, 10).Font.Bold = _
msoTrue

End Sub

hoac là

Sub test()

'
ActiveSheet.Shapes.Range(Array("TextBox 1")).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _
"hhhhhh" & Chr(13) & "" & Chr(13) & "hello my buddy"
Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 7).ParagraphFormat. _
FirstLineIndent = 0
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 7).Font
.NameComplexScript = "+mn-cs"
.NameFarEast = "+mn-ea"
.Fill.Visible = msoTrue
.Fill.ForeColor.ObjectThemeColor = msoThemeColorDark1
.Fill.ForeColor.TintAndShade = 0
.Fill.ForeColor.Brightness = 0
.Fill.Transparency = 0
.Fill.Solid
.Size = 11
.Name = "+mn-lt"
End With
Selection.ShapeRange(1).TextFrame2.TextRange.Characters(8, 1).ParagraphFormat. _
FirstLineIndent = 0
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(8, 1).Font
.NameComplexScript = "+mn-cs"
.NameFarEast = "+mn-ea"
.Fill.Visible = msoTrue
.Fill.ForeColor.ObjectThemeColor = msoThemeColorDark1
.Fill.ForeColor.TintAndShade = 0
.Fill.ForeColor.Brightness = 0
.Fill.Transparency = 0
.Fill.Solid
.Size = 11
.Name = "+mn-lt"
End With
Selection.ShapeRange(1).TextFrame2.TextRange.Characters(9, 9).ParagraphFormat. _
FirstLineIndent = 0
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(9, 9).Font
.Bold = msoTrue
.NameComplexScript = "+mn-cs"
.NameFarEast = "+mn-ea"
.Fill.Visible = msoTrue
.Fill.ForeColor.ObjectThemeColor = msoThemeColorDark1
.Fill.ForeColor.TintAndShade = 0
.Fill.ForeColor.Brightness = 0
.Fill.Transparency = 0
.Fill.Solid
.Size = 14
.Name = "+mn-lt"
End With
End Sub

. hóng

Mình cũng giống ý tưởng, làm hoài vẫn chưa xử lý được 
Lý do: xếp muốn ý chính " chữ đậm" trong đoạn văn bản