MACRO TẠO PHÂN SỐ TRONG WORD

Chia sẻ: Nguyen Le Huy | Ngày: | Loại File: DOC | Số trang:1

0
279
lượt xem
59
download

MACRO TẠO PHÂN SỐ TRONG WORD

Mô tả tài liệu
  Download Vui lòng tải xuống để xem tài liệu đầy đủ

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...

Chủ đề:
Lưu

Nội dung Text: MACRO TẠO PHÂN SỐ TRONG WORD

  1. 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

CÓ THỂ BẠN MUỐN DOWNLOAD

Đồng bộ tài khoản