How can I rewrite the following MS Word VBA macro to be compatible with Word 2007/2010/2013 -


i looking make ms word vba macro compatible word 2007,2010, , 2013 without having download ms office object libraries 12,14, , 15 on machines. types how can accomplish this? code following , seems require object library 12 & 14 or 15. doesn't work 12,14 or 15.

data1 = inputbox("what moving water damage value (enter 0.0 - 1.0).") ' validiate data  if data1 > 1 or data1 < 0 data1 = inputbox("invalid input. moving water damage value (enter 0.0 - 1.0).") end if loop until (data1 <= 1 , data1 >= 0)  data2 = inputbox("what settlement damage value (enter 0.0 - 1.0).")  if data2 > 1 or data2 < 0 data2 = inputbox("invalid input. settlement damage value (enter 0.0 - 1.0).") end if loop until (data2 <= 1 , data2 >= 0)  data3 = inputbox("what pre-exisiting damage value (enter 0.0 - 1.0).")  if data3 > 1 or data3 < 0 data3 = inputbox("invalid input. pre-exisiting damage value (enter 0.0 - 1.0).") end if loop until (data3 <= 1 , data3 >= 0)  dim integer  = activedocument.tables.count = + 1  ' create table activedocument.tables.add range:=selection.range, numrows:=5, numcolumns:=2 activedocument.tables(i).cell(1, 2).split numcolumns:=3 activedocument.tables(i).cell(1, 1).range.text = "location:" activedocument.tables(i).cell(1, 3).range.text = "quantity (measurable area):" activedocument.tables(i).cell(2, 1).range.text = "description:" activedocument.tables(i).cell(3, 1).range.text = "analysis:" activedocument.tables(i).cell(4, 1).range.text = "cause(s) of damage:" activedocument.tables(i).cell(5, 1).range.text = "recommended repairs:"  activedocument.tables(i) .borders(wdbordertop).linestyle = wdlinestylesingle .borders(wdborderleft).linestyle = wdlinestylesingle .borders(wdborderbottom).linestyle = wdlinestylesingle .borders(wdborderright).linestyle = wdlinestylesingle .borders(wdborderhorizontal).linestyle = wdlinestylesingle .borders(wdbordervertical).linestyle = wdlinestylesingle end  dim small boolean small = false dim twoseries boolean twoseries = false dim piechart boolean piechart = true  dim saleschart chart dim chartworksheet excel.worksheet   activedocument.tables(i) .borders(wdbordertop).linestyle = wdlinestylesingle .borders(wdborderleft).linestyle = wdlinestylesingle .borders(wdborderbottom).linestyle = wdlinestylesingle .borders(wdborderright).linestyle = wdlinestylesingle .borders(wdborderhorizontal).linestyle = wdlinestylesingle .borders(wdbordervertical).linestyle = wdlinestylesingle end  activedocument.tables(i).cell(4, 2).range activedocument.range(.start, .start).select end  ' add in new chart set saleschart = activedocument.inlineshapes.addchart.chart set chartworksheet = saleschart.chartdata.workbook.worksheets(1)  ' resize chart area chartworksheet.listobjects("table1").resize chartworksheet.range("a1:b4")  ' rename series 1 sales chartworksheet.range("table1[[#headers],[series 1]]").formular1c1 = "damage"  ' add data chart chartworksheet.range("a2").formular1c1 = "moving water" chartworksheet.range("a3").formular1c1 = "settlement" chartworksheet.range("a4").formular1c1 = "pre-exisiting" chartworksheet.range("b2").formular1c1 = data1 chartworksheet.range("b3").formular1c1 = data2 chartworksheet.range("b4").formular1c1 = data3   ' quit excel, since no longer need saleschart.chartdata.workbook.application.quit  ' put box around legend saleschart.legend.format.line.visible = msoctrue  ' fill background theme color accent 1 saleschart.chartarea.format.fill .visible = msotrue .solid .forecolor.objectthemecolor = wdthemecoloraccent1 end  ' add title , format saleschart.hastitle = true saleschart.charttitle .characters.font.italic = true .characters.font.size = 18 .characters.font.color = rgb(0, 0, 100) .text = "damage" end   if small ' size , move chart  saleschart.parent .left = 100 .width = 300 .height = 150 end end if  if piechart ' set chart type saleschart.charttype = xl3dpie end if  activedocument.bookmarks("\endofdoc").select selection.typeparagraph

i've got code running in office 2010 , references version 14 libraries. appears code has been around while, , older references can removed.

to have work across different versions, you'd have change references binding late binding. way, don't need add references vb editor each new version.

can use code sample example of word macros students?

also, if need late binding (this old question) let me know.

reference binding: http://word.mvps.org/faqs/interdev/earlyvslatebinding.htm


Comments

Post a Comment

Popular posts from this blog

jquery - How can I dynamically add a browser tab? -

since using iframes house external pages are, accounts "not preferred method" , disallowed sites (flickr, one), want dynamically generate browser tabs. e.g., when user submits form, want dynamically generate tab on browser in response submitted. e.g., might want add new tab url like: http://www.bigsurgarrapata.com/contact how in jquery? you want form target attribute action attribute. http://www.w3schools.com/tags/att_form_target.asp browsers have ultimate control on result of target attribute open new tab value of _blank. <form action="contact_submit.php" target="_blank" method="post">
Read more

node.js - Getting the socket id,user id pair of a logged in user(s) -

i have web application done using node js , in it,i have authentication system requires users log in before can access pages. have 2 pages,the homepage , updates page. from read docs,a new socket id issued when user opens tab in browser. me being admin,i know socket id of logged in user , more so,the socket id,logged in user id pair logged in users. what method can use socket id,logged in user id pair make sure broadcast realtime info users online?.
Read more

keyboard - C++ GetAsyncKeyState alternative -

i using windows.h library's getasynckeystate function define key pushed on keyboard . here program returns int value of pushed key example. #include <iostream> #include <windows.h> using namespace std; int main (){ char i; for(i=8;i<190;i++){ if(getasynckeystate(i)== -32767){ cout<<int (i)<<endl; } } return 0; } but trying make opengl simple game , function appeared slow . there function not need cycle 180 times , if statement . thanks you're trying make opengl game, you're going use glfw. if that's case can away using glfwgetkey() such: if (glfwgetkey(glfw_key_up) == glfw_press) {...} if (glfwgetkey(glfw_key_down) == glfw_press) {...} that method nicely explained in tutorial 6 opengl-tutorial.org . should start first tutorial of beginners tutorials , later intermediate tutorials . if you're going make win32 window can listen wm_keydown or wm_keyup messages , virtua
Read more