thangcola113
Thành viên mới

- Tham gia
- 7/12/10
- Bài viết
- 49
- Được thích
- 8
- Nghề nghiệp
- kiểm toán xây dựng
Giúp em bâỹ lôĩ đoạn màu đỏ trên; nêú không có định dạng Table thì bỏ qua và tiếp tục dòng lệnh sau (Selection.TypeParagraph.....)Sub TaoMucLuc()
' CTRL+Home va chen chu "MUC LUC"
Selection.HomeKey Unit:=wdStory
'Giúp em bâỹ lôĩ dòng màu đỏ này khi không phát hiện ra định dạng Table
Selection.SplitTable
Selection.TypeParagraph
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.TypeText Text:="MU" & ChrW(803) & "C LU" & ChrW(803) & "C:"
End Sub