ms word - Convert .rtf to .docx from selected folder and its subfolders in VBA -


i managed modify vba script able choose folder, convert .rtf .docx, , delete .rtf files after conversion. cant figure out, is; how script convert subfolders in-within folder. have looked online , not able find solution. please advise.

sub changertftodocxortxtorrtforhtml()      dim fs object     dim ofolder object     dim tfolder object     dim ofile object     dim strdocname string     dim intpos integer     dim folderdialog filedialog     dim filetype string     dim locfolderkill string      set folderdialog = application.filedialog(msofiledialogfolderpicker)     folderdialog.allowmultiselect = false     folderdialog.show      debug.print folderdialog.selecteditems(1)      select case application.version         case < 12                             filetype = ucase(inputbox("change rtf txt, rtf, html, docx", "file conversion", "docx"))             loop until (filetype = "txt" or filetype = "rtf" or filetype = "html" or filetype = "docx")         case >= 12                             filetype = ucase(inputbox("change rtf txt, rtf, html, docx or pdf(2007+ only)", "file conversion", "docx"))             loop until (filetype = "txt" or filetype = "rtf" or filetype = "html" or filetype = "pdf" or filetype = "docx")     end select     application.screenupdating = false     set fs = createobject("scripting.filesystemobject")     set ofolder = fs.getfolder(folderdialog.selecteditems(1))         each ofile in ofolder.files         dim d document         set d = application.documents.open(ofile.path)         strdocname = activedocument.name         intpos = instrrev(strdocname, ".")         strdocname = left(strdocname, intpos - 1)         changefileopendirectory ofolder         select case filetype         case = "docx"             strdocname = strdocname & ".docx"             activedocument.saveas filename:=strdocname, fileformat:=wdformatxmldocument         case = "txt"             strdocname = strdocname & ".txt"             activedocument.saveas filename:=strdocname, fileformat:=wdformattext         case = "rtf"             strdocname = strdocname & ".rtf"             activedocument.saveas filename:=strdocname, fileformat:=wdformatrtf         case = "html"             strdocname = strdocname & ".html"             activedocument.saveas filename:=strdocname, fileformat:=wdformatfilteredhtml         case = "pdf"             strdocname = strdocname & ".pdf"          end select         d.close         changefileopendirectory ofolder     next ofile     application.screenupdating = true  'this delete .rft files in same folder.     kill "*.rtf"  end sub

here's example of how check subfolders - can incorporate existing code looping on collection returned getfilematches

sub tester()      dim col collection, f      set col = getfilematches("c:\_stuff\test\", "*.txt")      each f in col         debug.print f.path     next f  end sub  'return collection of file objects given starting folder , file pattern '  e.g. "*.txt" 'pass false last parameter if don't want check subfolders function getfilematches(startfolder string, filepattern string, _                     optional subfolders boolean = true) collection      dim fso, fldr, f, subfldr     dim colfiles new collection     dim colsub new collection      set fso = createobject("scripting.filesystemobject")     colsub.add startfolder      while colsub.count > 0          set fldr = fso.getfolder(colsub(1))         colsub.remove 1          each f in fldr.files             if ucase(f.name) ucase(filepattern) colfiles.add f         next f          if subfolders             each subfldr in fldr.subfolders                 colsub.add subfldr.path             next subfldr         end if      loop      set getfilematches = colfiles  end function

Comments

Post a Comment

Popular posts from this blog

c# - Update a combobox from a presenter (MVP) -

i using mvp in project, new in mvp. have 2 comboboxes. when select option in combobox, combobox should filled new data. this action in presenter. view 'view1' in presenter, , introduced combobox1 , combobox2 properties in 'view1', because need 'datasource', 'displaymember', 'valuemember' , 'refresh()' in method below. but, when using pattern, enough send property like public string combobox2 { { return combobox1.selectedvalue.tosstring(); } } into presenter not whole combobox. how can solve problem? public void onselectedindexchangedcombobox1() { if (view1.combobox1.selectedindex == -1) { return; } datatable dt = tools.getdatatable("a path"); var query = (from o in dt.asenumerable() o.field<string>("afield") == farmerview.combobox1.selectedvalue.tostring() orderby o.field<string>("anotherfield") select...
Read more

How to understand 2 main() functions after using uftrace to profile the C++ program? -

i trying uftrace profile following simple c++ program: #include <iostream> class { public: a() {std::cout << "a created" << std::endl;} ~a() {std::cout << "a destroyed" << std::endl;} }; int main() { a; return 0; } the profile result this: # uftrace a.out created destroyed # duration tid function 2.026 [ 4828] | __cxa_atexit(); [ 4828] | main() { [ 4828] | __static_initialization_and_destruction_0() { 89.397 [ 4828] | std::ios_base::init::init(); 0.768 [ 4828] | __cxa_atexit(); 93.029 [ 4828] | } /* __static_initialization_and_destruction_0 */ 94.425 [ 4828] | } /* main */ [ 4828] | main() { [ 4828] | a::a() { 11.104 [ 4828] | std::operator <<(); 10.825 [ 4828] | std::basic_ostream::operator <<(); 24.514 [ 4828] | } /* a::a */ [ 4828] | a::~a() { 0.978 [ 4828] | ...
Read more

How to put a lock and transaction on table using spring 4 or above using jdbcTemplate and annotations like @Transactional? -

i trying put lock on table while writing on table , if happened in between roll-back . trying convert below code lock table test_g1 read; lock table test_g write; -- begin; start transaction; insert test_g1 values(143); insert test_g values(145); select * test_g1; select * test_g; rollback; select * test_g; unlock tables; how convert above code @transactional spring jdbctemplate code? @transactional(rollbackfor={dataaccessexception.class}) public void test(){ jdbctemplate.execute("insert test1 (id, nam) values (4, 'a')"); throw new dataaccessexception("error") { }; } here trying throw error, insert statement should rollback it's not happening . thanks edit-1 attaching code , doing in jdbcdaoimpl.java , mentioned problem comment above test() . app.java package com.cgiri.javabrains.spring4; import org.springframework.beans.factory.annotation.autowired; import org.springframework.context.applic...
Read more