iWebOffice2004调用VBA脚本解释及翻译

iWebOffice2004调用VBA脚本解释及翻译(20)     webform.WebOffice.ActiveDocument.Application.Range("C5").Select;
    webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "20cm";
    webform.WebOffice.ActiveDocument.Application.Range("D5").Select;
    webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "40";

    //保护工作表
    webform.WebOffice.ActiveDocument.Application.Range("B2:D5").Select;
    webform.WebOffice.ActiveDocument.Application.Selection.Locked = false;
    webform.WebOffice.ActiveDocument.Application.Selection.FormulaHidden = false;
    webform.WebOffice.ActiveDocument.Application.ActiveSheet.Protect(true,true,true);  

    alert("已经保护工作表，只有B2-D5单元格可以修改。");
}

//VBA套红操作
function WebInsertVBA(){
 
 //画线
 var object=webform.WebOffice.ActiveDocument;
 var myl=object.Shapes.AddLine(100,60,305,60)
 myl.Line.ForeColor=255;
 myl.Line.Weight=2;
 var myl1=object.Shapes.AddLine(326,60,520,60)
 myl1.Line.ForeColor=255;
 myl1.Line.Weight=2;

 //object.Shapes.AddLine(200,200,450,200).Line.ForeColor=6;
    var myRange=webform.WebOffice.ActiveDocument.Range(0,0);
 myRange.Select();

 var mtext="★";
 webform.WebOffice.ActiveDocument.Application.Selection.Range.InsertAfter (mtext+"\n");
    var myRange=webform.WebOffice.ActiveDocument.Paragraphs(1).Range;
    myRange.ParagraphFormat.LineSpacingRule =1.5;
    myRange.font.ColorIndex=6;
    myRange.ParagraphFormat.Alignment=1;
    myRange=webform.WebOffice.ActiveDocument.Range(0,0);