Index: tolbase/lib/byswidget/btable/btable.tcl
===================================================================
--- tolbase/lib/byswidget/btable/btable.tcl	(revision 23399d1c5f2061caee1b2c6b2ac38f99168274cb)
+++ tolbase/lib/byswidget/btable/btable.tcl	(revision b23291db6e771c6c0b7ef82b1e2f15cd478fdb66)
@@ -15,5 +15,5 @@
 
 if { [string equal $tcl_platform(platform) "windows"] } {
-  package require cwind
+  package require twapi  
 }
 
@@ -3881,6 +3881,8 @@
 
         $self _CmdSpecialCopy table
-        ::cwind::waitwind {Microsoft Excel*} 10
-        ::cwind::send |CTRL+| v |CTRL-|
+        set xlsapp [::twapi::comobj {Excel.Application}]
+        after 1000 set sleep_end 1      
+        vwait sleep_end
+        twapi::send_keys {^v}
         $self configure -colseparator $tempcolsep
         $self configure -rowseparator $temprowsep
Index: tolbase/lib/toltk/tolinspe__wtree1.tcl
===================================================================
--- tolbase/lib/toltk/tolinspe__wtree1.tcl	(revision 23399d1c5f2061caee1b2c6b2ac38f99168274cb)
+++ tolbase/lib/toltk/tolinspe__wtree1.tcl	(revision b23291db6e771c6c0b7ef82b1e2f15cd478fdb66)
@@ -722,22 +722,28 @@
 
   if { ![string length $node] } { return }
+  
   set treeParent [$wt_tree selection get 0]
   set treeParent_tolRef [$wt_tree item text $treeParent Reference]
+  if { [llength $treeParent_tolRef] < 1 } return
+  if { [lindex $treeParent_tolRef 0] eq "Grammar" } return  
+  
   set treeNode -1
-  if { [llength $treeParent_tolRef] > 1 } {
-    set grammar [$wt_vars item text $node Grammar]
-    if {$grammar eq "Set" || $grammar eq "NameBlock"} {
-      $wt_tree item expand $treeParent
-      #@ Se localiza el nodo seleccionado en el árbol (wt_tree)
-      set index [$wt_vars item text $node Index]     
-      foreach node_i [$wt_tree item children $treeParent] {
-        set index_i [$wt_tree item text $node_i Index]
-        if { [string equal $index $index_i] } {
-          set treeNode $node_i
-          break
-        }
-      }
-    }
-  }
+
+  set grammar [$wt_vars item text $node Grammar]
+  if {$grammar eq "Set" || $grammar eq "NameBlock"} {
+    $wt_tree item expand $treeParent
+    #@ Se localiza el nodo seleccionado en el árbol (wt_tree)
+    set index [$wt_vars item text $node Index]   
+    foreach node_i [$wt_tree item children $treeParent] {
+      set index_i [$wt_tree item text $node_i Index]
+      if { [string equal $index $index_i] } {
+        set treeNode $node_i
+        break
+      }
+    }
+  } else {
+    return
+  }
+  
   if { $treeNode != -1 } {
     update