//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";
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 = "钢笔";
webform.WebOffice.ActiveDocument.Application.Range("A5").Select;
webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "尺子";
webform.WebOffice.ActiveDocument.Application.Range("B2").Select;
webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "0.5";
webform.WebOffice.ActiveDocument.Application.Range("C2").Select;
webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "樱花";
webform.WebOffice.ActiveDocument.Application.Range("D2").Select;
webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "300";
webform.WebOffice.ActiveDocument.Application.Range("B3").Select;
webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "2";
webform.WebOffice.ActiveDocument.Application.Range("C3").Select;
webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "狼毫";
webform.WebOffice.ActiveDocument.Application.Range("D3").Select;
webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "50";
webform.WebOffice.ActiveDocument.Application.Range("B4").Select;
webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "3";
webform.WebOffice.ActiveDocument.Application.Range("C4").Select;
webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "蓝色";
webform.WebOffice.ActiveDocument.Application.Range("D4").Select;
webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "90";
webform.WebOffice.ActiveDocument.Application.Range("B5").Select;
webform.WebOffice.ActiveDocument.Application.ActiveCell.FormulaR1C1 = "1";
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);
myRange.Select();
mtext="金格发[２００３]１５４号";
webform.WebOffice.ActiveDocument.Application.Selection.Range.InsertAfter (mtext+"\n");
myRange=webform.WebOffice.ActiveDocument.Paragraphs(1).Range;
myRange.ParagraphFormat.LineSpacingRule =1.5;
myRange.ParagraphFormat.Alignment=1;
myRange.font.ColorIndex=1;
mtext="金格电子政务文件";
webform.WebOffice.ActiveDocument.Application.Selection.Range.InsertAfter (mtext+"\n");
myRange=webform.WebOffice.ActiveDocument.Paragraphs(1).Range;
myRange.ParagraphFormat.LineSpacingRule =1.5;
//myRange.Select();
myRange.Font.ColorIndex=6;
myRange.Font.Name="仿宋_GB2312";
myRange.font.Bold=true;
myRange.Font.Size=50;
myRange.ParagraphFormat.Alignment=1;
//myRange=myRange=webform.WebOffice.ActiveDocument.Paragraphs(1).Range;
webform.WebOffice.ActiveDocument.PageSetup.LeftMargin=70;
webform.WebOffice.ActiveDocument.PageSetup.RightMargin=70;
webform.WebOffice.ActiveDocument.PageSetup.TopMargin=70;
webform.WebOffice.ActiveDocument.PageSetup.BottomMargin=70;
}
//保存定稿文件
function WebUpdateFile(){
try{
webform.WebOffice.WebUpdateFile();
if (webform.WebOffice.Error!=""){
alert(webform.WebOffice.Status+webform.WebOffice.Error);
}
}catch(e){}
StatusMsg(webform.WebOffice.Status);
}
//从服务器上导入数据到文档中
function WebInportText(){
var mText;
webform.WebOffice.WebSetMsgByName("COMMAND","INPORTTEXT");
webform.WebOffice.WebSendMessage();
if (webform.WebOffice.Error==""){
mText=webform.WebOffice.WebGetMsgByName("CONTENT");
webform.WebOffice.ActiveDocument.Application.Selection.Range.InsertAfter(mText);
alert("导入文本成功");
}
StatusMsg(webform.WebOffice.Status);
}
//导出所有文档文本给服务器
function WebExportText(){
var mText=webform.WebOffice.ActiveDocument.Content.Text;
webform.WebOffice.WebSetMsgByName("COMMAND","EXPORTTEXT");
webform.WebOffice.WebSetMsgByName("CONTENT",mText);
webform.WebOffice.WebSendMessage();
if (webform.WebOffice.Error==""){
alert("导出文本成功");
}
StatusMsg(webform.WebOffice.Status);
}
//根据标签名称查找标签
function WebFindBookmarks(mPosition)
{
var mBookObject,mBookName,mBookIdx;
if (webform.WebOffice.FileType==".doc"){
for (mBookIdx = 1; mBookIdx<=webform.WebOffice.ActiveDocument.Bookmarks.Count;mBookIdx++){
&nb 上一页 [1] [2] [3] [4] [5] [6] [7] 下一页 | 
