Tài liệu MACRO TẠO PHÂN SỐ TRONG WORD pptx
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (50.3 KB, 1 trang )
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
End If
End If
End Sub
**********************************************
Bạn cũng có thể tải file đính kèm đã có mã VBA
