vba - Run-Time Error 91 doesn't make sense -


this run-time error 91 doesn't make sense me. issue didn't define something, i've noted time.

the error on line:

set f = thisapplication.activedocument.file

thisapplication defined towards beginning. file defined right before line.

here code:

option explicit   public sub replacereference()  dim invapp inventor.application set invapp = thisapplication  dim namestr string dim newnamepath string  dim namestr2 string dim oldnamepath string   namestr = renamer.new_name.text               'concatenates full new file path newnamepath = renamer.path_text.text & "\" + namestr & "-" & right("00" & i, 3) & ".ipt"     if err.number <> 0 msgbox "error found after newnamepath:" & err.description err.clear  namestr2 = renamer.old_name_display.text      'concatenates old file name oldnamepath = namestr2 & "-" & right("00" & i, 3) & ".ipt"     if err.number <> 0 msgbox "error found after oldnamepath:" & err.description err.clear  while < 99  dim f file set f = thisapplication.activedocument.file dim fd filedescriptor     each fd in f.referencedfiledescriptors         if fd.fullfilename = oldnamepath             fd.replacereference (newnamepath)         end if     next           loop  end sub


i know run-time error 91 common , seems silly, don't know wrong it.

could check this? can determine object nothing ... maybe activedocument in case?

if thisapplication nothing     err.raise 91, , "thisapplication nothing!" else     if thisapplication.activedocument nothing         err.raise 91, , "activedocument nothing!"     else         if thisapplication.activedocument.file nothing             err.raise 91, , "file nothing!"         end if     end if end if  dim f file set f = thisapplication.activedocument.file

or (to reduce nesting of ifs):

if thisapplication nothing     err.raise 91, , "thisapplication nothing!" end if  if thisapplication.activedocument nothing     err.raise 91, , "activedocument nothing!" end if  if thisapplication.activedocument.file nothing     err.raise 91, , "file nothing!" end if

Comments

Post a Comment

Popular posts from this blog

apache - Remove .php and add trailing slash in url using htaccess not loading css -

i have add following code htaccess file removing .php extension , add trailing slash urls. worked fine reduced page loading speed , css code not loading @ all. pages ugly. please help rewriteengine on rewritebase / ## hide .php extension snippet # externally redirect /dir/foo.php /dir/foo rewritecond %{the_request} ^[a-z]{3,}\s([^.]+)\.php [nc] rewriterule ^ %1/ [r,l] # add trailing slash rewritecond %{request_filename} !-f rewritecond %{request_uri} !/$ rewriterule . %{request_uri}/ [l,r=301] # internally forward /dir/foo /dir/foo.php rewritecond %{request_filename} !-d rewritecond %{request_filename}.php -f rewriterule ^(.*?)/?$ $1.php [l] we can rewrite urls using .htaccess files. before writing in .htaccess files need verify kind of server using. can check server adding a <?php phpinfo(); ?> in php page. ensure mod_rewrite module enabled in apache server. can identified checking phpinfo included page. common methods used url rewriting follows ...
Read more

javascript - jQuery show full size image on click -

pretty self explanatory not workking . i want display full image when user click on image... yes know there tons of plugins but i want keep simple. any idea ? css : .full { display: none; width: 500px; height: 500px; margin-left: 100px; margin-top: -300px; position: fixed; background-color: #f00; z-index: 6; } .thumbnail { width: 50px; height: 50px; } html: <img class="thumbnail" src="http://4.bp.blogspot.com/-uhbdp2esxng/txneptvi92i/aaaaaaaaaky/upfqis7zto0/s1600/rihanna-wallpaper.jpg"> jquery: $(document).ready(function() { $('.thumbnail').on('click', function() { var img = $('<img />',{src:this.src,'class':'full'}); $('.full').html(img).show(); console.log('done!'); }); }); try looking how jquery works. $(document).ready(function() { $('.thumbnail').on('click', function(...
Read more