Thiết kế danh mục tài liệu tham khảo cho bài viết

Trong việc viết luận văn, khóa luận thì việc sắp xếp và quản lý tài liệu tham khảo không phải là một việc đơn giản.
Từ thực tế viết luận văn, tôi không biết mọi người làm thế nào nhưng trong khóa luận tốt nghiệp tôi đã phải sắp xếp thủ công để có được danh sách tài liệu tham khảo và kèm theo việc thay đổi số theo thứ tự trích dẫn trong bài viết - đó thực sự là một công việc hết sức khó khăn và mất nhiều thời gian.
Vừa rồi tôi đã tìm thấy trong MS Word 2007 có tích hợp tiện ích References rất hiệu quả cho việc quản lý và sắp xếp tài liệu tham khảo nên tôi viết bài này để giới thiệu cho tất cả mọi người có thể tham khảo.

Cách thực hiện

1. Bước đầu tiên là xây dựng nguồn cho tài liệu tham khảo, (nếu bạn có một danh mục tài liệu tham khảo sẵn thì bạn chỉ cần nhập vào là được, nếu không trong quá trình viết tham khảo tới tài liệu nào thì nhập vào tài liệu đó) bạn vào thẻ References của MS word.

2. Click vào Manage Sources

Trong bảng điều khiển có 2 phần, bên trái là tài liệu nguồn (mỗi lần nhập thêm tài liệu tham khảo - tltk thì world sẻ tự động lưu lại trogn cơ sở dữ liệu này); bên phải là tại liệu được trích dẫn trong bài viết hiện thời (nếu có tài liệu tham khảo mà không trích dẫn thì bạn đưa vào danh sách bên phải để sau này làm list TLTK).

3. Click vào new để thêm tài liệu mới

click chọn Show all Bibliography Fields để hiện thị hết toàn bộ thông tin TLTK cần nhập

Sau khi nhập cơ sở dữ liệu, bây giờ khi viết bất kỳ bài viết nào có tài liệu bạn đã nhập thì rất đơn giản để bạn trích dẫn tài liệu đó và làm danh sách TLTK

4. Trích dẫn tài liệu: bạn chỉ cần vào Refrences\Insert Citation   ----> chọn cuốn sách mình trích dẫn hay tham khảo là xong.

Bạn có thể tùy biến kiểu trích dẫn là số hay trên tác giả bằng cách thay đổi kiểu hiển thị trong hộp Style.

5. Để tiến hành xuất bản danh sách tài liệu tham khảo: đơn giản bạn chỉ cấn vào References\Bibliography --- > click Style Built in nữa là ok.

Kết quả thu được:

Bạn cũng có thể thay đổi kiểu hiện thị (bằng thay đổi trong hộp Style) hay chỉnh sữa bằng tay.

Video:

(trích http://co-sharingknowledge.blogspot.com)

Code add-ins nội suy một chiều, hai chiều cho excel.

Code add-ins nội suy một chiều, hai chiều cho excel.

Toàn bộ code VB tạo add-ins nội suy một chiều phương ngang (N1N), nội suy một chiều phương đứng (N1D) và nội suy hai chiều N2C cho excel. Để sử dụng luôn tải file tại đây (pass thuyloivn.com)

Function N1N(vungtra As Range, X As Double, cot As Integer) As Double

'ham noi suy 1 chieu phuong ngang

Dim ktra As Boolean

Dim i As Integer

Dim x1 As Double, x2 As Double, y1 As Double, y2 As Double

    For i = 1 To vungtra.Cells.Count

    kiemtra = False

        If vungtra.Cells(i, 1) <= X And vungtra.Cells(i + 1, 1) > X Then

            x1 = vungtra.Cells(i, 1)

            x2 = vungtra.Cells(i + 1, 1)

            y1 = vungtra.Cells(i, cot)

            y2 = vungtra.Cells(i + 1, cot)

            N1N = (y2 - y1) * (X - x1) / (x2 - x1) + y1

            ktra = True

        Exit For

        End If

    Next i

If ktra = False Then

If MsgBox("www.thuyloivn.com: Gia tri can tim ko nam trong bang tra", vbOKOnly, "ThS. Doan Ngoc Tu") = vbOK Then

End

End If

Exit Function

End If

End Function

Function N1D(vungtra As Range, Y As Double, hang As Integer) As Double

'ham noi suy 1 chieu phuong dung

Dim ktra As Boolean

Dim i As Integer

Dim x1 As Double, x2 As Double, y1 As Double, y2 As Double

    For j = 1 To vungtra.Cells.Count

    kiemtra = False

        If vungtra.Cells(1, j) <= Y And vungtra.Cells(1, 1 + j) > Y Then

            y1 = vungtra.Cells(1, j)

            y2 = vungtra.Cells(1, j + 1)

            x1 = vungtra.Cells(hang, j)

            x2 = vungtra.Cells(hang + 1, j)

            N1D = (x2 - x1) * (Y - y1) / (y2 - y1) + x1

            ktra = True

        Exit For

        End If

    Next j

If ktra = False Then

If MsgBox("www.thuyloivn.com: Gia tri can tim ko nam trong bang tra", vbOKOnly, "ThS. Doan Ngoc Tu") = vbOK Then

End

End If

Exit Function

End If

End Function

Function N2C(vungtra As Range, X As Double, Y As Double) As Double

'ham noi suy 2 chieu

Dim ktra As Boolean

Dim i As Integer, j As Integer

Dim x1 As Double, x2 As Double, y1 As Double, y2 As Double

Dim a11 As Double, a12 As Double, a21 As Double, a22 As Double

Dim t1 As Double, t2 As Double

For j = 2 To vungtra.Cells.Count

    If vungtra.Cells(1, j) <= Y And vungtra.Cells(1, j + 1) > Y Then

            y1 = vungtra.Cells(1, j)

            y2 = vungtra.Cells(1, j + 1)

            For i = 2 To vungtra.Cells.Count

            ktra = False

                If (vungtra.Cells(i, 1) <= X And vungtra.Cells(i + 1, 1) > X) Then

                    x1 = vungtra.Cells(i, 1)

                    x2 = vungtra.Cells(i + 1, 1)

                    a11 = vungtra.Cells(i, j)

                    a12 = vungtra.Cells(i, j + 1)

                    a21 = vungtra.Cells(i + 1, j)

                    a22 = vungtra.Cells(i + 1, j + 1)

                    t1 = (a12 - a11) * (Y - y1) / (y2 - y1) + a11

                    t2 = (a22 - a21) * (Y - y1) / (y2 - y1) + a21

                    N2C = (t2 - t1) * (X - x1) / (x2 - x1) + t1

                Exit For

                End If

            Next i

            ktra = True

    Exit For

    End If

Next j

If ktra = False Then

If MsgBox("www.thuyloivn.com: Gia tri can tim ko nam trong bang tra", vbOKOnly, "ThS. Doan Ngoc Tu") = vbOK Then

End

End If

Exit Function

End If

End Function

Đoàn Ngọc Tứ