vba - add page break with macro (if there isnt any page break) -

-

i want add page break before every heading 1 , evey \page bookmark. code work : 

sub pagebreack(isok)     if isok <> true          exit sub     end if     selection.goto = wdgotoline, = wdgotofirst      application.browser.target = wdbrowsepage     = 1 activedocument.builtindocumentproperties("number of pages")         if > 1             activedocument.bookmarks("\page").range.select             selection.insertbreak type:=wdsectionbreakcontinuous  'wdsectionbreaknextpage         end if         application.browser.next     next     each p in activedocument.paragraphs       if left(p.style, 9) = "heading 1"         p.range.select         selection.previous.insertbreak type:=wdsectionbreakcontinuous       end if     next     selection.find.clearformatting     selection.find.replacement.clearformatting     selection.find         .text = "^12": .replacement.text = "^m": .forward = true: .wrap = wdfindcontinue: .format = false: .matchcase = false: .matchwholeword = false: .matchkashida = false: .matchdiacritics = false: .matchalefhamza = false: .matchcontrol = false: .matchwildcards = false: .matchsoundslike = false: .matchallwordforms = false     end     selection.find.execute replace:=wdreplaceall end sub

my problem code doesnt check exist page break , add new page break there.
how change code macro check if there isnt page break add page break ?
(english not native language , hope explain clearly)

you have blank pages use page break macro here macro delete blank pages in word document 

sub demo() activedocument.content.find     .clearformatting     .replacement.clearformatting     .text = "^12[^12^13 ]{1,}"     .replacement.text = "^12"     .forward = true     .wrap = wdfindcontinue     .format = false     .matchwildcards = true     .execute replace:=wdreplaceall end end sub

reference:remove blank pages docx using word interop

sub pagebreack(isok)     if isok <> true          exit sub     end if     selection.goto = wdgotoline, = wdgotofirst      application.browser.target = wdbrowsepage     = 1 activedocument.builtindocumentproperties("number of pages")         if > 1             activedocument.bookmarks("\page").range.select             selection.insertbreak type:=wdsectionbreakcontinuous  'wdsectionbreaknextpage         end if         application.browser.next     next     activedocument.styles("heading 1").paragraphformat         .pagebreakbefore = true     end     selection.find.clearformatting     selection.find.replacement.clearformatting     selection.find         .text = "^12": .replacement.text = "^m": .forward = true: .wrap = wdfindcontinue: .format = false: .matchcase = false: .matchwholeword = false: .matchkashida = false: .matchdiacritics = false: .matchalefhamza = false: .matchcontrol = false: .matchwildcards = false: .matchsoundslike = false: .matchallwordforms = false     end     selection.find.execute replace:=wdreplaceall     activedocument.content.find         .clearformatting         .replacement.clearformatting         .text = "^12[^12^13 ]{1,}"         .replacement.text = "^12"         .forward = true         .wrap = wdfindcontinue         .format = false         .matchwildcards = true         .execute replace:=wdreplaceall     end end sub

Comments

Post a Comment

Popular posts from this blog

java - Run spring boot application error: Cannot instantiate interface org.springframework.context.ApplicationListener -

-
i have spring project , try make use spring boot , run @ embadded tomcat following : https://spring.io/guides/gs/rest-service/ this application //@configuration //@enableaspectjautoproxy @springbootapplication @componentscan(basepackages = "gux.prome") public class application { public static void main(string[] args) { springapplication.run(application.class, args); } } if use maven command: mvn spring-boot:run , project starts fine, need debug , run main method @ intelij, exception occurs: exception in thread "main" java.lang.illegalargumentexception: cannot instantiate interface org.springframework.context.applicationlistener : org.springframework.boot.logging.classpathloggingapplicationlistener @ org.springframework.boot.springapplication.createspringfactoriesinstances(springapplication.java:414) @ org.springframework.boot.springapplication.getspringfactoriesinstances(springapplication.java:394) @ org.springframework.bo...
Read more

reactjs - React router and this.props.children - how to pass state to this.props.children -

-
i'm using react-router first time , don't know how think in yet. here's how i'm loading components in nested routes. entry point .js reactdom.render( <router history={hashhistory} > <route path="/" component={app}> <route path="models" component={content}> </route> </router>, document.getelementbyid('app') ); app.js render: function() { return ( <div> <header /> {this.props.children} </div> ); } so child of app content component sent in. i'm using flux , app.js has state , listens changes, don't know how pass state down this.props.children. before using react-router app.js defines children explicitly, passing state natural don't see how now. using couple of react helper methods can add state, props , whatever else this.props.children render: function() { var children = react.ch...
Read more

Excel VBA "Microsoft Windows Common Controls 6.0 (SP6)" Location Changes -

-
i have excel workbook used generate quotations customers. there main page user inputs data, , there buttons generate various pdfs , send them customer. however, 1 user consistently getting error preventing generating , sending pdfs. i beleive "microsoft windows common controls 6.0 (sp6)". it's installed on users' computers. on mine, location "c:\windows\syswow64\mscomctl.ocx" on others "c:\windows\system32\mscomctl.ocx" the user experiencing issues on 32-bit machine, "mscomctl.ocx" file should in system32. have manually put in there, , pointed common controls reference in vba it. issue seems keep reverting looking in syswow64. since folder doesn't exist, can't find it, , can't produce pdfs. i thought perhaps issue user running older version of office (2007) there users on 2013 , 2016. thought perhaps mixture of 64-bit , 32-bit users. user gets sent workbook other users (as quotation process goes further, gets passed ...
Read more