diff --git a/README.md b/README.md
index 2002123..83b0863 100644
--- a/README.md
+++ b/README.md
@@ -308,6 +308,7 @@ Ctrl + F12 ：檢索《國語辭典》
 - Alt + v ： **單字**檢索《異體字字典》並讀入其《說文》及網址資料以便引文。
 - Alt + n ： **單字**檢索《漢語多功能字庫》並取回其說文解釋欄位之值插入至插入點位置。 （n= 能 neng）
 - Alt + o ： **單字**檢索[《說文解字》網站](https://www.shuowen.org/)並取回其解釋欄位及網址值插入至插入點位置。 （o= 說文解字 ShuoWen.ORG 的 O）
+- Ctrl + Alt + Shift + o ： **單字**檢索[《說文解字》網站](https://www.shuowen.org/)並取回其解釋欄位及段注本內容與網址值插入至插入點位置，並予以適當的格式化。 （o= 說文解字 ShuoWen.ORG 的 O）
 - Ctrl + Alt + x ： **單字**檢索《康熙字典網上版》（x = xi 熙）
 - Ctrl + d + s （按住 Ctrl 依序按d、s） ：檢索《國學大師》（ds：大師 da-shi 的 d、s）
 - Alt + g ： 以選取文字檢索Google
diff --git a/TextForCtextPortable.zip b/TextForCtextPortable.zip
index 4a5bc20..de97489 100644
Binary files a/TextForCtextPortable.zip and b/TextForCtextPortable.zip differ
diff --git a/WordVBA/Keywords.bas b/WordVBA/Keywords.bas
index 6c432af..e4ff8c0 100644
--- a/WordVBA/Keywords.bas
+++ b/WordVBA/Keywords.bas
@@ -9,7 +9,7 @@ Property Get 
         "�ѳ�", "�Ѷ�", "�ֳ�", "�ֶ�", "�")
 End Property
 Rem �ΥH���ѩ�������r��
-Property Get ����KeywordsToMark() As Variant 'string()
+Property Get ����KeywordsToMark() As Variant 'string()�]�� Array Returns a Variant containing an array,�ҥH����g�� as string()
     ����KeywordsToMark = Array("��", "�P��", "���g", "�j��", "���g", "���g", "�C�g", "�Q�T�g", "�", _
         "��", "�`��", "����", _
         "��", _
diff --git a/WordVBA/Network.bas b/WordVBA/Network.bas
index eb9d0bf..b316207 100644
--- a/WordVBA/Network.bas
+++ b/WordVBA/Network.bas
@@ -167,7 +167,7 @@ Sub 
                 End If
             End With
         End With
-    Else
+    Else 'ar(0)������
         Dim ur As UndoRecord, fontsize As Single
         SystemSetup.stopUndo ur, "�d�~�y�h�\��r�w�è��^�仡�������줧�ȴ��J�ܴ��J�I��m"
         With Selection
@@ -179,8 +179,8 @@ Sub 
                 .Collapse wdCollapseEnd
             End If
             '���J���^���m����n���e
-            .TypeText "�A�m����n���G"
-            .InsertAfter ar(0) & VBA.Chr(13) 'ar(0)=�m����n���e
+            .TypeText "�A�m����n���G�u"
+            .InsertAfter ar(0) & "�v" & VBA.Chr(13) 'ar(0)=�m����n���e
             .Collapse wdCollapseEnd
             If Selection.End = Selection.Document.Range.End - 1 Then
                 Selection.Document.Range.InsertParagraphAfter
@@ -221,7 +221,60 @@ Sub 
                 End If
             End With
         End With
-    Else
+    Else 'ar(0)������
+        Dim ur As UndoRecord, fontsize As Single
+        SystemSetup.stopUndo ur, "�d����Ѧr�è��^��������κ��}�ȴ��J�ܴ��J�I��m"
+        With Selection
+            fontsize = VBA.IIf(.Font.Size = 9999999, 12, .Font.Size) - 4
+            If fontsize < 0 Then fontsize = 10
+            If .Type = wdSelectionIP Then
+                .Move
+            Else
+                .Collapse wdCollapseEnd
+            End If
+            .TypeText "�A�m����n���G�u"
+            .InsertAfter ar(0) & "�v" & VBA.Chr(13) 'ar(0)=�m����n���e
+            .Collapse wdCollapseEnd
+            If Selection.End = Selection.Document.Range.End - 1 Then
+                Selection.Document.Range.InsertParagraphAfter
+            End If
+            .Font.Size = fontsize
+            .InsertAfter ar(1) '���J���}
+            SystemSetup.contiUndo ur
+            .Collapse wdCollapseStart
+            With .Application
+                .Activate
+                With .ActiveWindow
+                    If .WindowState = wdWindowStateMinimize Then
+                        .WindowState = wdWindowStateNormal
+                        .Activate
+                    End If
+                End With
+            End With
+        End With
+    End If
+End Sub
+Sub �d����Ѧr�è��^��������q�`�κ��}�ȴ��J�ܴ��J�I��m()
+    Rem  Ctrl+ Shift + Alt + o �]o= ����Ѧr ShuoWen.ORG �� O�^
+    If Selection.Characters.Count > 1 Then
+        MsgBox "���d1�r", vbExclamation ', vbError
+        Exit Sub
+    End If
+    Dim ar 'As Variant
+    ar = SeleniumOP.LookupShuowenOrg(Selection.text, True)
+    If ar(0) = vbNullString Then
+        word.Application.Activate
+        MsgBox "�䤣��A�κ������F�Χ睊�F�I", vbExclamation
+        With Selection.Application
+            .Activate
+            With .ActiveWindow
+                If .WindowState = wdWindowStateMinimize Then
+                    .WindowState = wdWindowStateNormal
+                    .Activate
+                End If
+            End With
+        End With
+    Else 'ar(0)������
         Dim ur As UndoRecord, fontsize As Single
         SystemSetup.stopUndo ur, "�d����Ѧr�è��^��������κ��}�ȴ��J�ܴ��J�I��m"
         With Selection
@@ -235,9 +288,37 @@ Sub 
             .TypeText "�A�m����n���G"
             .InsertAfter ar(0) & VBA.Chr(13) 'ar(0)=�m����n���e
             .Collapse wdCollapseEnd
+            '���J�q�`���e
+            .InsertAfter "�q�`���G" & VBA.IIf(VBA.Asc(VBA.Left(ar(2), 1)) = 13, vbNullString, VBA.Chr(13)) & ar(2) & VBA.Chr(13)
             If Selection.End = Selection.Document.Range.End - 1 Then
                 Selection.Document.Range.InsertParagraphAfter
             End If
+            Dim p As Paragraph, s As Byte, sDuan As Byte
+            s = VBA.Len("                                ") '�q�`��������
+            sDuan = VBA.Len("                ") '�q�`�����q�`��
+reCheck:
+            For Each p In .Paragraphs
+                If VBA.InStr(p.Range.text, "�M�N �q�ɵ��m����Ѧr�`�n") Then
+                    p.Range.Delete
+                    GoTo reCheck:
+                ElseIf VBA.Replace(p.Range.text, " ", "") = Chr(13) Then
+                    p.Range.Delete
+                    GoTo reCheck:
+                ElseIf VBA.Left(p.Range.text, s) = VBA.space(s) Then '�q�`��������
+                    p.Range.text = Mid(p.Range.text, s + 1)
+                ElseIf VBA.Left(p.Range.text, sDuan) = VBA.space(sDuan) Then '�q�`�����q�`��
+                    With p.Range
+                        .text = Mid(p.Range.text, sDuan + 1)
+                        With .Font
+                            .Size = fontsize + 2
+                            .ColorIndex = 11 '.Font.Color= 34816
+                        End With
+                    End With
+                End If
+            Next p
+            .Collapse wdCollapseEnd
+            
+            '���}�榡�]�w
             .Font.Size = fontsize
             .InsertAfter ar(1) '���J���}
             SystemSetup.contiUndo ur
@@ -262,7 +343,9 @@ Sub 
     End If
     Dim ar As Variant, x As String
     x = Selection.text
+    
     ar = SeleniumOP.LookupDictionary_of_ChineseCharacterVariants_RetrieveShuoWenData(x)
+    
     If ar(0) = vbNullString Then
         word.Application.Activate
         MsgBox "�䤣��A�κ������F�Χ睊�F�I", vbExclamation
@@ -275,7 +358,7 @@ Sub 
                 End If
             End With
         End With
-    Else
+    Else '�p�Gar(0)�D�Ŧr��]�ŭȡ^
         Dim ur As UndoRecord, fontsize As Single
         SystemSetup.stopUndo ur, "�d����r�r��è��^�仡���������κ��}�ȴ��J�ܴ��J�I��m"
         With Selection
@@ -286,11 +369,26 @@ Sub 
             Else
                 .Collapse wdCollapseEnd
             End If
-            .TypeText "�A�m����n�G" & VBA.Chr(13)
+            Dim s As Byte
+            s = VBA.InStr(ar(0), "�m����n�����C")
+            If s = 0 Then
+                If ar(0) = "�������ΨS����ơI" Then
+                    .TypeText VBA.Chr(13)
+                Else
+                    .TypeText "�A�m����n�G" & VBA.Chr(13)
+                End If
+            Else
+                 .TypeText "�A" & VBA.Mid(ar(0), s) & VBA.Chr(13)
+            End If
             Dim shuoWen As String
             shuoWen = VBA.Replace(VBA.Replace(ar(0), "�G�A", "�G" & x & "�A"), "�q�`���G", VBA.Chr(13) & "�q�`���G")
-            .InsertAfter shuoWen & VBA.Chr(13)  'ar(0)=�m����n���e
-            .Collapse wdCollapseEnd
+            If VBA.Left(shuoWen, 1) = "�A" Then
+                shuoWen = x & shuoWen
+            End If
+            If s = 0 And ar(0) <> "�������ΨS����ơI" Then
+                .InsertAfter shuoWen & VBA.Chr(13)  'ar(0)=�m����n���e
+                .Collapse wdCollapseEnd
+            End If
             If Selection.End = Selection.Document.Range.End - 1 Then
                 Selection.Document.Range.InsertParagraphAfter
             End If
diff --git a/WordVBA/SeleniumOP.bas b/WordVBA/SeleniumOP.bas
index 0518a64..120bc6f 100644
--- a/WordVBA/SeleniumOP.bas
+++ b/WordVBA/SeleniumOP.bas
@@ -1220,11 +1220,11 @@ Select Case Err.Number
     End Select
 End Function
 
-Rem �d�m����Ѧr�n���^��m����n�u�����v��쪺���e�Gx �n�d���r�C�Ǧ^�@�Ӧr��}�C�A��1�Ӥ����O�m����n�u�����v�����e�r��A��2�Ӥ����O�d�ߵ��G���}�C�Y�S���A�h�Ǧ^�Ŧr��}�C
-Function LookupShuowenOrg(x As String) As String()
+Rem �d�m����Ѧr�n���^��m����n�u�����v��쪺���e�Gx �n�d���r,includingDuan �O�_�]�Ǧ^�q�`���e�C�Ǧ^�@�Ӧr��}�C�A��1�Ӥ����O�m����n�]�j�}���^�u�����v�����e�r��A��2�Ӥ����O�d�ߵ��G���}�A��3�ӫh�O�q�`�����e�C�Y�S���A�h�Ǧ^�Ŧr��}�C
+Function LookupShuowenOrg(x As String, Optional includingDuan As Boolean) As String()
     On Error GoTo eH
-    Dim result(1) As String '1=���ޭȤW���]�̤j�ȡ^
-    LookupShuowenOrg = result
+    Dim result(2) As String '2=���ޭȤW���]�̤j�� = UBound �Ǧ^�ȡ^
+    LookupShuowenOrg = result '���]�w�n�n�Ǧ^���r��}�C�A���S�ᤩ�ȮɴN�O�Ǧ^�Ŧr�ꪺ�}�C
     If Not code.IsChineseCharacter(x) Then
         Exit Function
     End If
@@ -1263,12 +1263,30 @@ Function LookupShuowenOrg(x As String) As String()
             Exit Function
         End If
     End If
-    
+    '�����檺���e
     Set iwe = wd.FindElementByCssSelector("body > div.container.main > div > div.col-md-9.main-content.pull-right > div.row.summary > div.col-md-9.pull-left.info-container > div.media.info-body > div.media-body")
     GoSub iweNothingExitFunction
-    
     result(0) = iwe.text
     result(1) = wd.URL
+    '���o�q�`�����e
+    If includingDuan Then
+        Dim i As Byte
+        i = 1
+        'Dim duanCommentary As String
+        '���o�q�`�����e�ت�����
+        Set iwe = wd.FindElementByCssSelector("body > div.container.main > div > div.col-md-9.main-content.pull-right > div:nth-child(" & i & ") > div")
+        Do
+            If i > 30 Then Exit Do
+            If Not iwe Is Nothing Then
+                If VBA.InStr(iwe.GetAttribute("textContent"), "�M�N �q�ɵ��m����Ѧr�`�n") Then Exit Do
+            End If
+            Set iwe = wd.FindElementByCssSelector("body > div.container.main > div > div.col-md-9.main-content.pull-right > div:nth-child(" & i & ") > div")
+            i = i + 1
+        Loop
+        GoSub iweNothingExitFunction
+        result(2) = iwe.GetAttribute("textContent") '=duanCommentary
+    End If
+    
     LookupShuowenOrg = result
     Exit Function
     
@@ -1363,7 +1381,16 @@ plural: '
                 Loop
             End If
             iwe.Click
-            '��������
+            '���ˬd �������� �x�s�� ������r�O�_�O�u�������Ρv
+            Set iwe = wd.FindElementByCssSelector("#view > tbody > tr:nth-child(2) > th")
+            GoSub iweNothingExitFunction
+            If iwe.GetAttribute("textContent") <> "��������" Then
+                Set iwe = Nothing
+                result(0) = "�������ΨS����ơI"
+                result(1) = wd.URL
+                GoSub iweNothingExitFunction
+            End If
+            '�������� �x�s�椸��k�䪺�x�s��
             Set iwe = wd.FindElementByCssSelector("#view > tbody > tr:nth-child(2) > td")
             GoSub iweNothingExitFunction
             result(0) = iwe.GetAttribute("textContent")
@@ -1375,7 +1402,17 @@ plural: '
         '�r�Y����
         Set iwe = wd.FindElementByCssSelector("#header > section > h2 > span > a")
         If iwe Is Nothing = False Then
-            '��������
+        
+            '���ˬd �������� �x�s�� ������r�O�_�O�u�������Ρv
+            Set iwe = wd.FindElementByCssSelector("#view > tbody > tr:nth-child(2) > th")
+            GoSub iweNothingExitFunction
+            If iwe.GetAttribute("textContent") <> "��������" Then
+                Set iwe = Nothing
+                result(0) = "�������ΨS����ơI"
+                result(1) = wd.URL
+                GoSub iweNothingExitFunction
+            End If
+            '�������� �x�s�椸��k�䪺�x�s��
             Set iwe = wd.FindElementByCssSelector("#view > tbody > tr:nth-child(2) > td")
             GoSub iweNothingExitFunction
             result(0) = iwe.GetAttribute("textContent")