Word VBA "Saveas" without hidden text? -

-

is there way programmatically saveas microsoft word .docm without including hidden text?

i'm having users click button few other things , opens save dialog save .docm file .html file, using in word vb editor:

with dialogs(wddialogfilesaveas)     .format = wdformathtml     .show end

it saves appears on page saves paragraphs hidden. (they're hidden in web display of html page, hidden content still in .html, marked mso-hideall tags.) save content not hidden, if possible, it's not in html file @ all.

i don't see provides here, i'm wondering if might know of way using vb.

i've been working on deleting hidden text using vba, it's tricky because have show first, select it, delete it, , parts hidden different each time depending on user selects in word .docm document.

update:

here's complete code have now:

public stractiveoption string  private sub optionconcept_click() stractiveoption = "optionconcept"  bookmarks("concepttext").range.font.hidden = false bookmarks("tasktext").range.font.hidden = true bookmarks("reftext").range.font.hidden = true     end sub  private sub optiontask_click() stractiveoption = "optiontask" bookmarks("tasktext").range.font.hidden = false bookmarks("concepttext").range.font.hidden = true bookmarks("reftext").range.font.hidden = true   end sub    private sub optionreference_click() stractiveoption = "optionreference" bookmarks("reftext").range.font.hidden = false bookmarks("concepttext").range.font.hidden = true bookmarks("tasktext").range.font.hidden = true   end sub  private sub formatsave_click() 'concept content = 3 'task steps = 4 'referencedata = 5  select case stractiveoption  case "optionconcept"  activedocument.contentcontrols(4).delete  activedocument.contentcontrols(5).delete case "optiontask"  activedocument.contentcontrols(3).delete  activedocument.contentcontrols(5).delete case "optionreference"  activedocument.contentcontrols(3).delete  activedocument.contentcontrols(4).delete case else     msgbox "invalid option" end select  dialogs(wddialogfilesaveas)     .format = wdformathtml     .show end end sub

what does: there 3 option buttons on page, , content controls hidden or unhidden depending on 1 user selects. code in private sub formatsave_click() reads 1 selected , tries delete appropriate hidden text.

problems:

everything in first subs works perfectly, down private sub formatsave_click(). after that, seems not able see hidden contentcontrols in order delete them. tried adding after 'private sub formatsave_click()'

activewindow.view.showhiddentext = true

but doesn't seem work.

also lot easier select content controls tag instead of index. tried this, without success:

activedocument.selectcontentcontrolsbytag("tasksteps").delete

"tasksteps" being tag name control (4).

update ii

(suggestion stuartd)

this isn't working delete hidden text, maybe don't have formatted correctly? 

private sub formatsave_click()  selection.find.clearformatting selection.find.font.hidden = true selection.find.replacement.clearformatting selection.find .text = "" .replacement.text = "" .forward = true .wrap = wdfindcontinue .format = true end selection.find.execute replace:=wdreplaceall  end sub

solution:

okay got original code work. happening:

vb deleted contentcontrols(4)

i next told delete contentcontrols(5)

except now, (4) deleted, contentcontrols(5) contentcontrols(4).

so changed numbering shown below, , works, , deletes correct ones:

private sub formatsave_click() 'concept content = 3 'task steps = 4 'referencedata = 5  activedocument.activewindow.view.showhiddentext = true  select case stractiveoption     case "optionconcept"      activedocument.contentcontrols(4).delete      activedocument.contentcontrols(4).delete     case "optiontask"      activedocument.contentcontrols(3).delete      activedocument.contentcontrols(4).delete     case "optionreference"      activedocument.contentcontrols(3).delete      activedocument.contentcontrols(3).delete     case else         msgbox "invalid option" end select  end sub

i looked @ debug telling me, stopping on second deletion in each series, , realized going on.

thanks suggestions.


Comments

Post a Comment

Popular posts from this blog

c++ - No viable overloaded operator for references a map -

-
i trying use map can make tag names reference number. when try , use it, in code error (6 in total every time reference map): src/main.cpp:25:45: error: no viable overloaded operator[] type 'std::map<std::string, std::string>' const char* idcs = node.child_value(tagmap[3]); this code: #include "pugi/pugixml.hpp" #include <iostream> #include <string> #include <map> int main() { pugi::xml_document doca, docb; std::map<std::string, pugi::xml_node> mapa, mapb; std::map<std::string, std::string> tagmap {{"1", "data"}, {"2", "entry"}, {"3", "id"}, {"4", "content"}}; if (!doca.load_file("a.xml") || !docb.load_file("b.xml")) { std::cout << "can't find input files"; return 1; } (auto& node: doca.child(tagmap[1]).children(tagmap[2])) { co
Read more

java - Custom OutputStreamAppender not run: LOGBACK: No context given for <MYAPPENDER> -

-
i wish write custom appender on basis of outputstreamappender . wrote following class package tests; import java.io.ioexception; import java.io.outputstream; import ch.qos.logback.core.outputstreamappender; public class myappender<e> extends outputstreamappender<e> { public myappender() { system.out.println("myappender created"); setoutputstream(new outputstream() { @override public void write(int b) throws ioexception { throw new unsupportedoperationexception(); } }); } } then wrote following runner: package tests; import org.slf4j.loggerfactory; import ch.qos.logback.classic.logger; public class runner { private static final logger log = (logger) loggerfactory.getlogger(runner.class); public static void main(string[] args) { //log.addappender(new myappender<iloggingevent>()); log.info("hello world"); } } finall
Read more

java - Cannot secure connection using TLS -

-
i'm trying establish secure socket connection between java client applet (built jdk 1.7.0_75-b13) , vc++ server application. as test vehicle, used vc++ client/server sample found in msdn forums, modified use schannel , able establish socket using cipher suite tls_rsa_with_aes_128_cbc_sha. works of tls 1.0/1.1/1.2. when try opening socket java applet same server application, connection rejected server reporting following: tls 1.0 acceptsecuritycontext failed: 0x80090327 tls 1.1 acceptsecuritycontext failed: 0x80090331 tls 1.2 acceptsecuritycontext failed: 0x80090331 this java code used create socket: debugprint("setting secure connection"); sslsocketfactory sslsocketfactory = (sslsocketfactory) sslsocketfactory.getdefault(); sslsocket sslsocket = (sslsocket) sslsocketfactory.createsocket("127.0.0.1", socketnumber); debugprint("starting handshake"); sslsocket.settcpnodelay(true); sslsocket.setsolinger(false, 0); sslsocket.s
Read more