[Grenadio]

Công cụ ta dùng để dồn đoạn, ghép đoạn trong MSWord:

Sub para_join()
'
' para_join Macro
' Macro recorded 3/17/2011 by Windows xp sp2 Full
'
Selection.MoveDown Unit:=wdParagraph, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=" "
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
'Selection.Range.Case = wdLowerCase
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub
Sub replace_char_1()
'
' replace_char_1 Macro
' Macro recorded 11/11/01 by DcHL
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "v.v…"
.Replacement.Text = ChrW(273) & ChrW(7907) & "i"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceOne
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub
Sub replace_char_2()
'
' replace_char_2 Macro
' Macro recorded 11/11/01 by DcHL
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = """"
.Replacement.Text = ".^p“"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceOne
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub

Macro 1st & 3rd ta dùng phím tắt lần lượt là 'Ctrl + `' và 'Ctrl + Q', chỉ cần click vào vị trí phía trước điểm cần ngắt (nối) rồi bấm phím nóng là được.