excel - Open Word Document and Bring to Front -


below (working) code snippet opens microsoft word document, , goes specific index table of contents. filepath filepath, , strtopic value links toc in word doc. 

set objword = createobject("word.application") objword.visible = true  set docword = objword.documents.open(filename:=strpath, readonly:=true)  docword.bookmarks(strtopic).range.select

however, need bring word document foreground.

is possible vba firstly? there tofront() type "function" can use? afaik c# has app.activewindow.activate(); cannot similar working in .

you can achieve want using apis. using 2 apis setforegroundwindow , findwindow

private declare function setforegroundwindow lib "user32" (byval hwnd long) _ long  private declare function findwindow lib "user32" alias _ "findwindowa" (byval lpclassname string, byval lpwindowname string) _ long  sub sample()     dim objword object, docword object     dim strpath string, filename string     dim hwnd long      set objword = createobject("word.application")     objword.visible = true      '~~> change relevant filename , path     strpath = "c:\users\siddharth rout\desktop\sample.docx"     '~~> put acutal file name here without extension     filename = "sample"      set docword = objword.documents.open(filename:=strpath, readonly:=true)      hwnd = findwindow(vbnullstring, filename & " [read-only] - microsoft word")      if hwnd > 0       setforegroundwindow (hwnd)     end if end sub

note: if sure there no other word application open other opened can use :)

private declare function setforegroundwindow lib "user32" (byval hwnd long) long  private declare function findwindow lib "user32" alias _ "findwindowa" (byval lpclassname string, byval lpwindowname string) long  sub sample()     dim objword object, docword object     dim strpath string     dim hwnd long      set objword = createobject("word.application")     objword.visible = true      '~~> change relevant filename , path     strpath = "c:\users\siddharth rout\desktop\sample.docx"      set docword = objword.documents.open(filename:=strpath, readonly:=true)      hwnd = findwindow("opusapp", vbnullstring)     if hwnd > 0       setforegroundwindow (hwnd)     end if end sub

Comments

Post a Comment

Popular posts from this blog

javascript - Jquery show_hide, what to add in order to make the page scroll to the bottom of the hidden field once button is clicked -

i have button on website when clicked, reveals map. button can seen when page first loads up, when clicked, section holding map slides open , goes out of screen since page loads @ top (normal). want page scroll down bottom of div select when button pushed, if map out of screen. if page scrolled down, , clicks show map button, don't want page jump bottom of map. i tried figure out myself, no luck. seasoned jquery coders able give me guidance? many thanks! map = mapdiv.gmap3("get"); infobox = new infobox({ pixeloffset: new google.maps.size(-220, -310), closeboxurl: '', enableeventpropagation: true }); mapdiv.delegate('.infobox .close','click',function () { infobox.close(); }); jquery(".slidingdiv").hide(); jquery(".show_hide").show(); jquery('.show_hide').click(function(){ lastcenter=map.getcenter(); jquery(".slidingdiv&quo
Read more

javascript - Highcharts multi-color line -

Image
i looking create highchart multi-colored line. if goes down under value, become red, , when comes on value, become green . here picture example: or maybe highcharts have other charts models differentiate high or low level color? you can achieve coloring using lineargradient coloring: color: { lineargradient: { x1: 0, x2: 0, y1: 0, y2: 1 }, stops: [ [0, 'red'], [0.25, 'yellow'], [0.50, 'green'], [0.75, 'yellow'], [1, 'red'] ] } here 0 in stops relates minimum value of series , 1 maximum value, , in between percentages between values. if find percentages according values prior creating chart use correct stops values make relate specific values in data (at least approximately). see this jsfiddle example .
Read more

javascript - Enter key does not work in search box -

tried search guys sorry. input in search box doesnt work (or search) when hit enter when user clicks search button. doing wrong? here code. thanks. <script type="text/javascript"> $(document).ready(function() { $("#submit").click(function() { var url = "http://asla.org/awardssearch.html"; url += "?s=" + $('#googlecse').val(); window.location = url; }); $('#googlecse').keydown(function(event) { if (event.keycode == '13') { $("#submit").click(); } else { //do nothing :) } }); }); </script> <form class="navbar-form navbar-right" role="search"> <div class="search"> <input id="googlecse" type="text" onblur="if(this.value=='')this.value=this.defaultvalue;" onfocus="if(this.value==this.defaultvalue)t
Read more