MACROTẠOPHÂNSỐTRONGWORD 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ânsố toán học trongWord 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 End If End If End Sub ********************************************** Bạn cũng có thể tải file đính kèm đã có mã VBA . 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. *)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 ********************************************