CÁC CÔNG CỤ TẠO BÀI GIẢNG

Hi!

Bạn vào Macro của MSWord thay thế "thủ tục" Private Sub ProcessCommonTags(...) bằng "thủ tục" có code sau đây.

Khi đó Nội dung sẽ có 2 phần, cách nhau bằng :: (2 dấu : ), thí dụ:

1. CSDL-01 :: Số nguyên 2 có tính chất sau:
.....
.....

2. CSDL-02 :: Khi đứng trước gió thường thấy mát vì:....
.....
......

Private Sub ProcessCommonTags(dd As DOMDocument, para As Paragraph)
                ' processing <name> '
            m_hai = InStr(para.Range.text, "::")
           
            If (m_hai > 0) Then
                dd.documentElement.SelectSingleNode("name") _
                .SelectSingleNode("text").text = Left(para.Range.text, m_hai - 1)
                ' processing <questiontext> '
                dd.documentElement.SelectSingleNode("questiontext") _
                .SelectSingleNode("text").text = Mid(XSLT_Range(para.Range, "FormattedText.xslt"), m_hai + 2)
            Else
                dd.documentElement.SelectSingleNode("name") _
                .SelectSingleNode("text").text = Left(para.Range.text, 15) ' chi lay 15 ky tu dau tien
                ' processing <questiontext> '
                dd.documentElement.SelectSingleNode("questiontext") _
                .SelectSingleNode("text").text = XSLT_Range(para.Range, "FormattedText.xslt")
            End If
               
                'processing <image>'
                dd.documentElement.SelectSingleNode("image").text = Mid(XSLT_Range(para.Range, "PictureName.xslt"), 10)
                'processing <image_base64>'
                dd.documentElement.SelectSingleNode("image_base64").text = XSLT_Range(para.Range, "Picture.xslt")

End Sub