Chia sẻ thông tin - Share Info

Sub InsertFraction()
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")

If Mauso = "0" Then
MsgBox "Mau so khong the la gia tri 0 duoc.", , "Khong dung"
GoTo Mauso
Else
If Mauso <> "" Then
ActiveDocument.Fields.Add Range:=Selection.Range, _
Type:=wdFieldEmpty, Text:="EQ \f(" & Tuso & ", " & Mauso & " )", _
PreserveFormatting:=False
End If
End If
End If
End Sub