iWebOffice2004调用VBA脚本解释及翻译(17) function WebGetWordContent(){ try{ alert(webform.WebOffice.ActiveDocument.Content.Text); }catch(e){}}
//插入Word内容function WebSetWordContent(){ var mText=window.prompt("请输入内容:","测试内容"); if (mText==null){ return (false); } else { //下面为显示选中的文本 //alert(webform.WebOffice.ActiveDocument.Application.Selection.Range.Text); //下面为在当前光标出插入文本 webform.WebOffice.ActiveDocument.Application.Selection.Range.InsertAfter (mText+"\n"); //下面为在第一段后插入文本 //webform.WebOffice.ActiveDocument.Application.ActiveDocument.Range(1).InsertAfter(mText); }}
//设置并取得Excel的内容function WebGetExcelContent(){ webform.WebOffice.ActiveDocument.Application.Sheets(1).Select; webform.WebOffice.ActiveDocument.Application.Range("C5").Select; webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "126"; webform.WebOffice.ActiveDocument.Application.Range("C6").Select; webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "446"; webform.WebOffice.ActiveDocument.Application.Range("C7").Select; webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "556";