MACRO TẠO PHÂN SỐ TRONG WORD

Số trang: 1 Loại file: doc Dung lượng: 32.00 KB Lượt xem: 7 Lượt tải: 0

Jamona

Phí lưu trữ: miễn phí

Xem trước 1 trang đầu tiên của tài liệu này:

Thông tin tài liệu:

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ươngtự như phần mềm Math Type********************************************Sub Phan_So()Dim Tuso As StringDim Mauso As StringTuso = InputBox("Ban hay nhap tu so:", "Tu so")If Tuso "" ThenMauso:Mauso = InputBox("Ban hay nhap mau so:", "Mau so")ElseIf Mauso "" ThenActiveDocument.Fields.Add Range:=Selection.Range, _Type:=wdFieldEmpty, Text:="EQ f(" & Tuso & ", " & Mauso & " )", _PreserveFormatting:=False...
Nội dung trích xuất từ tài liệu:
MACRO TẠO PHÂN SỐ TRONG WORD MACRO TẠO PHÂN SỐ TRONG WORDBạ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ươngtự như phần mềm Math Type********************************************Sub Phan_So()Dim Tuso As StringDim Mauso As StringTuso = InputBox(Ban hay nhap tu so:, Tu so)If Tuso ThenMauso:Mauso = InputBox(Ban hay nhap mau so:, Mau so)ElseIf Mauso ThenActiveDocument.Fields.Add Range:=Selection.Range, _Type:=wdFieldEmpty, Text:=EQ f( & Tuso & , & Mauso & ), _PreserveFormatting:=FalseEnd IfEnd IfEnd Sub**********************************************Bạn cũng có thể tải file đính kèm đã có mã VBA