(Tin học văn phòng) - Nếu bạn thường xuyên phải đánh các phân số trong Word, công việc này có thể làm tốn nhiều thời gian. Như bạn đã biết, ta có thể sử dụng các trường (Field) để gõ phân số, tuy nhiên thật khó khăn khi phải nhớ hết công thức của nó. Vì vậy bạn nên tạo một Macro giúp mình làm việc này.
Trước tiên bạn mở Word, ấn tổ hợp phím Alt + F11. Khi xuất hiện cửa sổ Microsoft Visual Basic, bạn vào Menu Insert\Module và nhập đoạn mã dưới đây.
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
Nhập xong Code, nhấn Alt+Q để trở về cửa sổ Word. Mỗi khi cần tạo phân số, bạn vào Tab View\Macros, chọn InsertFraction và nhấn nút Run.
Công việc của bạn tiếp theo là nhập phân số mong muốn.
Nguồn: Tin học văn phòng
Trước tiên bạn mở Word, ấn tổ hợp phím Alt + F11. Khi xuất hiện cửa sổ Microsoft Visual Basic, bạn vào Menu Insert\Module và nhập đoạn mã dưới đây.
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
Nhập xong Code, nhấn Alt+Q để trở về cửa sổ Word. Mỗi khi cần tạo phân số, bạn vào Tab View\Macros, chọn InsertFraction và nhấn nút Run.
Công việc của bạn tiếp theo là nhập phân số mong muốn.
Nguồn: Tin học văn phòng
Sửa lần cuối:
