- Tech
- Save web data to Word
Build Document by script </ title> </ head> <Table ID = "mydata" border = 1 align = center> <trilign = center> <td> Product Name </ TD> <TD> Product Description </ TD> <TD> Product Unit </ TD> <TD> Product Level </ TD> <TD> <TR Align = Center> <TD> Products One </ TD> <TD> THIS Is A Test </ td> <TD align = Right> 300.50 </ td> <td> level </ td> <TD> <TD> <TD> Product 2 </ TD> <TD> this Is A Test </ td> <TD align = Right> 300.50 </ td> <td> level </ td> <TD> <TD> <TD> Product 3 </ TD> <TD> this Is A Test </ td> <TD align = Right> 300.50 </ td> <td> level </ td> </ tr> </ table> <input type = button οnclick = "VBScript: builddoc ', 4 "value =" build "> <BODY> </ BODY> </ HTML> <script language =" vbscript "> Sub buildDoc (theTemplate, intTableRows) Dim Table1 set Table1 = document.all.myData row = Table1.rows.length Set objWordDoc = creteObject ("word.document") objworddoc.application.visible = true Dim TheaRray (4, 4) 'Redim Preserve Table1.Rows (1) .Cells.LENGTH for i = 0 To row-1 for j = 0 to colnum-1 THEARRAY (J 1, I 1) = Table1.Rows (i) .Cells (j) .innerhtml Next Next NEXT</p>
<p>INTNUMROWS = 4</p>
<p>objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore ( "Electrical equipment in good condition Statement") objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore ( "") objWordDoc.Application.ActiveDocument.Paragraphs.Add. Range.InsertBefore ( "") Set rngPara = objWordDoc.Application.ActiveDocument.Paragraphs (1) .Range With rngPara .Bold = True .Italic = True .ParagraphFormat.Alignment = 1 .Font.Name = "Arial" .Font.Size = 10 End with set rngcurrent = objWordDoc.Application.activeDocument.Paragraphs (3) .range set tabcurrent = objworddoc.Application.ActiveDocument.tables.add (RNGCURRENT, INTNUMROWS, 4)</p>
<p>For i = 1 to colnum objWordDoc.Application.actiVedocument.tables (1) .ROWS (1) .Cells (i) .Range.insertafter THEARRAY (i, 1) Objworddoc.Application.activeDocument.tables (1) .rows (1 ) .Cells (i) .Range.ParagraphFormat.Alignment = 1 Next TabRow = 2</p>
<p>For j = 2 to intNumrows' ObjWordDoc.Application.ActiveDocument.Tables (1) .Rows (tabRow) .Borders.Enable = False objWordDoc.Application.ActiveDocument.Tables (1) .Rows (tabRow) .Cells (1) .Range .InsertAfter theArray (1, j) objWordDoc.Application.ActiveDocument.Tables (1) .Rows (tabRow) .Cells (1) .Range.ParagraphFormat.alignment = 1 objWordDoc.Application.ActiveDocument.Tables (1) .Rows (tabRow ) .Cells (2) .Range.InsertAfter theArray (2, j) objWordDoc.Application.ActiveDocument.Tables (1) .Rows (tabRow) .Cells (2) .Range.ParagraphFormat.alignment = 1 objWordDoc.Application.ActiveDocument. Tables (1) .ROWS (Tabrow) .Cells (3) .Range.insertafter formatcurrency (THEARRAY (3, J)) Objworddoc.Application.ActiveDocument.tables (1) .ROWS (TabRow) .Cells (3) .range. ParagraphFormat.alignment = 2 objWordDoc.Application.ActiveDocument.Tables (1) .Rows (tabRow) .Cells (4) .Range.InsertAfter theArray (4, j) 'objWordDoc.Application.ActiveDocument.Tables (1) .Rows (tabRow ) .Cells (4) .range.insertafter chr (10) objworddoc.Application.active Document.Tables (1) .ROWS (Tabrow) .cells (4) .Range.ParagraphFormat.Alignment = 1 Tabrow = Tabrow 1 Next'ObjWordDoc.Application.activeDocument.tables (1) .rows (tabrow) .Cells (4 ) .Range.ParagraphFormat.Alignment = 1</p>
<p>objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertAfter ( "") objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertAfter ( "") objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertAfter ( "Regards , ") objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertAfter (" ") objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertAfter (" Daryl B. Morticum ") objWordDoc.Application.ActiveDocument.Paragraphs.Add .Range.InsertAfter ( "Sales Associate") 'objWordDoc.Application.ActiveDocument.Envelope.Insert Address objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertAfter ( "design of gengw") objWordDoc.Application.ActiveDocument.SaveAs "test .doc ", 0, false,", true, "", false, false, false, false, false 'objworddoc.Application.printOut ()</p>
<p>End Sub </ script></p></div><div class="text-center mt-3 text-grey">
转载请注明原文地址:https://www.9cbs.com/read-78663.html</div><div class="plugin d-flex justify-content-center mt-3"></div><hr><div class="row"><div class="col-lg-12 text-muted mt-2"><i class="icon-tags mr-2"></i><span class="badge border border-secondary mr-2"><h2 class="h6 mb-0 small"><a class="text-secondary" href="tag-2.html">9cbs</a></h2></span></div></div></div></div><div class="card card-postlist border-white shadow"><div class="card-body"><div class="card-title"><div class="d-flex justify-content-between"><div><b>New Post</b>(<span class="posts">0</span>)
</div><div></div></div></div><ul class="postlist list-unstyled">
</ul></div></div><div class="d-none threadlist"><input type="checkbox" name="modtid" value="78663" checked /></div></div></div></div></div><footer class="text-muted small bg-dark py-4 mt-3" id="footer"><div class="container"><div class="row"><div class="col">CopyRight © 2020 All Rights Reserved
</div><div class="col text-right">Processed:
<b>0.031</b>, SQL:
<b>9</b></div></div></div></footer><script src="./lang/en-us/lang.js?2.2.0"></script><script src="view/js/jquery.min.js?2.2.0"></script><script src="view/js/popper.min.js?2.2.0"></script><script src="view/js/bootstrap.min.js?2.2.0"></script><script src="view/js/xiuno.js?2.2.0"></script><script src="view/js/bootstrap-plugin.js?2.2.0"></script><script src="view/js/async.min.js?2.2.0"></script><script src="view/js/form.js?2.2.0"></script><script>
var debug = DEBUG = 0;
var url_rewrite_on = 1;
var url_path = './';
var forumarr = {"1":"Tech"};
var fid = 1;
var uid = 0;
var gid = 0;
xn.options.water_image_url = 'view/img/water-small.png';
</script><script src="view/js/wellcms.js?2.2.0"></script><a class="scroll-to-top rounded" href="javascript:void(0);"><i class="icon-angle-up"></i></a><a class="scroll-to-bottom rounded" href="javascript:void(0);" style="display: inline;"><i class="icon-angle-down"></i></a></body></html><script>
var forum_url = 'list-1.html';
var safe_token = 'QqW1ytR3fW5daZUpJUmAVtjMLeJcIlB_2F3zrZSfZudJMD3JHyIrdEzm6y0JYXudCefCJI_2FUGcST5uZvQeaRzZJw_3D_3D';
var body = $('body');
body.on('submit', '#form', function() {
var jthis = $(this);
var jsubmit = jthis.find('#submit');
jthis.reset();
jsubmit.button('loading');
var postdata = jthis.serializeObject();
$.xpost(jthis.attr('action'), postdata, function(code, message) {
if(code == 0) {
location.reload();
} else {
$.alert(message);
jsubmit.button('reset');
}
});
return false;
});
function resize_image() {
var jmessagelist = $('div.message');
var first_width = jmessagelist.width();
jmessagelist.each(function() {
var jdiv = $(this);
var maxwidth = jdiv.attr('isfirst') ? first_width : jdiv.width();
var jmessage_width = Math.min(jdiv.width(), maxwidth);
jdiv.find('img, embed, iframe, video').each(function() {
var jimg = $(this);
var img_width = this.org_width;
var img_height = this.org_height;
if(!img_width) {
var img_width = jimg.attr('width');
var img_height = jimg.attr('height');
this.org_width = img_width;
this.org_height = img_height;
}
if(img_width > jmessage_width) {
if(this.tagName == 'IMG') {
jimg.width(jmessage_width);
jimg.css('height', 'auto');
jimg.css('cursor', 'pointer');
jimg.on('click', function() {
});
} else {
jimg.width(jmessage_width);
var height = (img_height / img_width) * jimg.width();
jimg.height(height);
}
}
});
});
}
function resize_table() {
$('div.message').each(function() {
var jdiv = $(this);
jdiv.find('table').addClass('table').wrap('<div class="table-responsive"></div>');
});
}
$(function() {
resize_image();
resize_table();
$(window).on('resize', resize_image);
});
var jmessage = $('#message');
jmessage.on('focus', function() {if(jmessage.t) { clearTimeout(jmessage.t); jmessage.t = null; } jmessage.css('height', '6rem'); });
jmessage.on('blur', function() {jmessage.t = setTimeout(function() { jmessage.css('height', '2.5rem');}, 1000); });
$('#nav li[data-active="fid-1"]').addClass('active');
</script> 
