Word VBA: Find and replace with ref code -

-

i trying find , replace brackets , text in field code http://office.microsoft.com/en-us/word-help/field-codes-ref-field-hp005186139.aspx

sub replacereftag()     replacementtext "<test>", "ref test.test1 " end sub  private sub replacementtext(findtext string, replacetext string)     selection.find.clearformatting     selection.find.replacement.clearformatting     selection.find         .text = findtext         .myrange.field = replacetext         .wrap = wdfindcontinue         .matchwildcards = true     end     selection.find.execute replace:=wdreplaceall end sub

in opinion need use different kind of logic in code. main difference need find text first , select it. next step need add field in range of selection. following subroutines improved ones doing these things. hope it's looking for. (see comments inside code)

sub replacereftag()     replacementtext "<test>", "ref test.test1 "     'if keep .matchwildcards = true below call next sub in way:     'replacementtext "\<test\>", "ref test.test1 " end sub  private sub replacementtext(findtext string, replacetext string)     selection.find.clearformatting     selection.find.replacement.clearformatting     selection.find         .text = findtext         'i removed here         .wrap = wdfindcontinue         .matchwildcards = false '!!!- both <> special characters!!     end      'looping search occurrences     while selection.find.execute         'add field here         selection.fields.add range:=selection.range, type:=wdfieldempty, text:= _             "ref  test.test1", preserveformatting:=false     loop end sub

edit 

sub replacereftag()     replacementtext "<test>", "ref test.test"      dim     i=1 10          'change last number         replacementtext "<test" & & ">", "ref test.test" &     next end sub

Comments

Post a Comment

Popular posts from this blog

wordpress - (T_ENDFOREACH) php error -

-
creating wordpress website , i'm getting following php error: parse error: syntax error, unexpected 'endforeach' (t_endforeach) in /home/soralmedia/public_html/wp-content/themes/soral media/woocommerce/myaccount/my-orders.php on line 98 here's code file: <?php /** * orders * * shows recent orders on account page. * * template can overridden copying yourtheme/woocommerce/myaccount/my-orders.php. * * however, on occasion woocommerce need update template files , (the theme developer). * need copy new files theme maintain compatibility. try this. * little possible, happen. when occurs version of template file will. * bumped , readme list important changes. * * @see http://docs.woothemes.com/document/template-structure/ * @author woothemes * @package woocommerce/templates * @version 2.5.0 */ if ( ! defined( 'abspath' ) ) { exit; } $my_orders_columns = apply_filters( 'woocommerce_my_account_my_orders_columns', array( ...
Read more

Export Excel workseet into txt file using vba - (text and numbers with formulas) -

-
i new vba have developed code use in excel move text/numbers txt file. issue have 3 functions need go same txt file. when run first function has set fs = createobject("scripting.filesystemobject") set = fs.createtextfile(module1.nys45uploadfilename, true) a.writeline (str) a.close. the other 2 functions had save. set fs = createobject("scripting.filesystemobject") set = fs.savetextfile(module1.nys45uploadfilename, true) a.writeline (str) a.close. the first function go txt file, other 2 error object doesn't support property or method. when changed 3 create last function goes txt file. can not figure out word use in order make other 2 functions follow txt file in order keyed. the entire code follows private sub addrecord_click() on error goto errhandler module1.nys45uploadfilename = application.getsaveasfilename(filefilter:="textfiles (*.txt), *.txt") if module1.nys45uploadfilename = "false" exit sub ...
Read more

Using django-mptt to get only the categories that have items -

-
sample structure: all uppercase: category mixed case: item root ├── books │   ├── fiction │   │   └── classics │   └── non-fiction ├── clothing └── electronics ├── laptops ├── phones │   ├── apple │   │   ├── iphone 6 │   │   ├── iphone 6 plus │   │   ├── iphone 6s │   │   └── iphone 6s plus │   ├── motorola │   │   ├── moto g4 │   │   ├── moto g4 play │   │   ├── moto g4 plus │   │   └── moto x │   └── samsung └── tablets └── apple i'm trying have index page show "electronics" category. "clothing" category shouldn't show since it's empty , "books" category shouldn't show either since, although has child categories, child categories don't have items. similarly, "electronics" page should show "phones" category. "laptops" category shouldn't show since it's empty , "tablets" category shouldn't show either since...
Read more