MACRO TẠO PHÂN SỐ TRONG WORD

Bạn copy đoạn mã dưới đây (phần nội dung nằm giữa các dấu *)và thực hiện như bài “Bước đầu làm quen với VBA” sẽ được các phân số toán học trong Word gần tương tự như phần mềm Math Type ******************************************** Sub Phan_So() Dim Tuso As String Dim Mauso As String Tuso = InputBox("Ban hay nhap tu so:", "Tu so") If Tuso "" Then Mauso: Mauso = InputBox("Ban hay nhap mau so:", "Mau so") Else If Mauso "" Then ActiveDocument.Fields.Add Range:=Selection.Range, _ Type:=wdFieldEmpty, Text:="EQ \f(" & Tuso & ", " & Mauso & " )", _ PreserveFormatting:=False...