Cảm ơn bác. Dạ mà nó khác kiểu hay sao ấy bác ơi, số 3 nó nhỏ hơn bình thường luôn:
Đơn giản nhất, bạn copy paste chính cái chữ M3 bạn muốn vào ô Replace with, bạn thử xem.
Không được mà. nó supercript cả m lẫn 3 ấy bạn.
Dạ, em hiểu cách làm này rồi. Cảm ơn anh.
Public Sub MakeOrdinalSuffixesSuperscript()
Const FIND_TEXT As String = "([m][3])" '"([0-9])([dhnrst]{2,2})([!0-9a-zA-Z])"
Dim mySearchRange As Word.Range
Set mySearchRange = ActiveDocument.StoryRanges(wdMainTextStory)
With mySearchRange
With .Find
.ClearFormatting
.Text = FIND_TEXT
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
.Format = False
End With
Do While .Find.Execute
.MoveStart unit:=wdCharacter, Count:=1
.MoveEnd unit:=wdCharacter, Count:=0
.Font.Superscript = True
.MoveStart unit:=wdCharacter, Count:=.Characters.Count + 1
.End = ActiveDocument.StoryRanges(wdMainTextStory).End
Loop
End With
End SubCon chưa hiểu ý bác. Cái ký tự Alt 0179 nó nhỏ size hơn là số 3 size 12 được superscript luôn nè bác: (số 3 đầu là Alt 0179, số 3 sau là con chỉnh tay superscript)
Cảm ơn anh. Em mới biết trong Word cũng xài VBA được.
Public Sub superscript_end()
Const findtext = "m3" ' "chandai"
Const lensup = 1 ' 3
With Selection
.End = 0
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = findtext
End With
Do While .Find.Execute
.Start = .End - lensup
.Font.Superscript = True
.Start = .End
Loop
End With
End SubTôi thực hiện thì không bị như vậy, tất cả m3 hay m + 3 super script đều bị thay và đồng bộ nhỏ/ lớn
Tôi biết rằng khác. Nhưng tôi hướng dẫn ở bài 2 là thay m3 bằng m và ký tự 0179. Tôi chụp hình trong hình có chứa 1 số thông tin:
Tôi cũng thuộc loại người cho là nếu làm được đơn giản bằng tay thì không làm bằng code. Kể cả các việc khác. Tôi đưa code do vào chậm, cách làm bằng tay đã có người đưa ra. Và tôi cũng viết rõ
Cũng nói thêm là nếu làm bằng tay thì tôi làm theo cách bài #5 nhưng dùng m3 -> ***³ -> m³ Nhưng sau đó tôi để ý thấy là huuthang_bd đã đề xuất nên thôi. Tôi chắc chắn sẽ không nghĩ tới Alt + 0179 vì tôi không bao giờ học thuộc lòng, và không bao giờ tôi nhớ phải gõ Alt + GÌ. Tất nhiên sau đó tôi đã kiểm tra trong Insert -> Symbol nên biết ³ có thể gõ bằng Alt + 0179 và có mã unicode = 00B3.
Tôi có đọc câu ấy anh ạ, là tôi nói chung chung.
Làm bằng tay, nếu làm như tôi ở bài 2, chỉ làm 1 lần. Dùng * hay [gì đó] phải làm 2 lần, và phải làm tay 1 số 3 super-script để dùng.
Tôi biết là làm 1 lần nhưng tôi đã giải thích. Tôi không bao giờ học thuộc lòng, cũng không bao giờ cố nhớ vì dung tích cái đầu có hạn. Vd. tôi viết xlUp mà không viết 3 vì tôi không nhớ nó bằng bao nhiêu. Tôi biết có thể tìm mũ 3 trong Insert -> Symbol nhưng tôi không tìm. Cách 2 lần tuy thêm 1 bước nhưng bất cứ khi nào cần tôi có thể làm ngay mà không phải bỏ công tìm trong Insert -> symbol.
Tôi không hiểu ý anh. Như tôi trình bầy ở trên thì có phải tạo bằng tay "1 số 3 super-script" đâu nhỉ.
Tôi hiểu ý anh về symbol rồi. Còn câu hỏi của anh thì ở chỗ tô đỏ mà tôi trích dẫn.
Không dùng Alt + 0179 thì phải thế thôi. Mà người dùng Word nên biết là Find có thể không chỉ tìm ký tự mà còn tìm cả mầu chữ, nền, dùng regex, ... Nếu họ chịu khó đọc thì họ sẽ thấy Find của Word phong phú hơn của Excel rất rất nhiều. Chịu khó một chút thì sẽ biết nhiều.
