iWebOffice2004调用VBA脚本解释及翻译

iWebOffice2004调用VBA脚本解释及翻译(18)     webform.WebOffice.ActiveDocument.Application.Range("C5:C8").Select;
    webform.WebOffice.ActiveDocument.Application.Range("C8").Activate;
    webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)";
    webform.WebOffice.ActiveDocument.Application.Range("D8").Select;
    alert(webform.WebOffice.ActiveDocument.Application.Range("C8").Text);
}

//设置Excel页，并演示锁定相应栏目
function WebSheetsLock(){
    webform.WebOffice.ActiveDocument.Application.Sheets(1).Select;

    webform.WebOffice.ActiveDocument.Application.Range("A1").Select;
    webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "产品";
    webform.WebOffice.ActiveDocument.Application.Range("B1").Select;
    webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "价格";
    webform.WebOffice.ActiveDocument.Application.Range("C1").Select;
    webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "详细说明";
    webform.WebOffice.ActiveDocument.Application.Range("D1").Select;
    webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "库存";
    webform.WebOffice.ActiveDocument.Application.Range("A2").Select;
    webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "书签";
    webform.WebOffice.ActiveDocument.Application.Range("A3").Select;
    webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "毛笔";
    webform.WebOffice.ActiveDocument.Application.Range("A4").Select;
    webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "钢笔";