System.PrivateProfileString

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Script language in headers/footers I want to insert script language from a document assembly program into a header/footer so that it appears on the second and subsequent pages. I have tried this and it doesn't work. Any help is greatly appreciated. Thank you. Tag: System.PrivateProfileString Tag: 67571
  - 2
    - Time limit code - best way? What's the best way to time-limit distributed templates (mostly Word but Excel and PPT also) so that they stop functioning on a certain date or after a period of time? I'd like to avoid having to hard code date/time in the code but would prefer to use a setup procedure that takes the date of installation and sets the expiration date then. Should I be using the Registry or a hidden file or something else? Many thanks... Tag: System.PrivateProfileString Tag: 67565
  - 3
    - Macro to toggle "Balloons in Print & Web Layout" Dear All I'm trying to perform a very simple task: use a macro to toggle the "Balloons in Print & Web Layout" option on and off (Tools->Options->Track Changes). But I can't find the property to do this. Recording a macro doesn't show it up. After wading through reams of disjointed help pages and examples for .RevisionsBalloonWidthType and other properties of View and Applications.Options, I'm still none the wiser. Could anyone tell me where to find the appropriate property or method please? Cheers Richard Tag: System.PrivateProfileString Tag: 67551
  - 4
    - "Document contains macros" message when there are none This is a multi-part message in MIME format. ------=_NextPart_000_000E_01C54F2D.82D64410 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable In both Word 2002 and 2003 I've been receiving the security message = "This document contains macros, enable/disable" when I open certain = documents. However, using the VBE there are no macros in the document. I've = scanned the documents for viruses and found none. =20 These are documents that had macros ON them, but not put IN them. I had = put a document variable in these documents, but even after deleting that = (which I don't consider a macro), when I try opening the documents, I = still get the security warning. Has anyone else had this happen? Any ideas? =20 (I don't know whether I should be highly irritated or concerned.) I = certainly don't want others getting macro warnings when they try to open = my documents. Thanks so much. ------=_NextPart_000_000E_01C54F2D.82D64410 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2900.2627" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>In both Word 2002 and 2003 I've been = receiving the=20 security message "This document contains macros, enable/disable" when I = open=20 certain documents.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>However, using the VBE there are no = macros in the=20 document.  I've scanned the documents for viruses and found=20 none.  </FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>These are documents that had macros ON = them, but=20 not put IN them.  I had put a document variable in these documents, = but=20 even after deleting that (which I don't consider a macro), when I try = opening=20 the documents, I still get the security warning.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Has anyone else had this happen?  = Any=20 ideas?  </FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>(I don't know whether I should be = highly irritated=20 or concerned.)  I certainly don't want others getting macro = warnings when=20 they try to open  my documents.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Thanks so = much.</FONT></DIV></BODY></HTML> ------=_NextPart_000_000E_01C54F2D.82D64410-- Tag: System.PrivateProfileString Tag: 67541
  - 5
    - Find function problems I am having trouble with the .find function in MSWord. The following code snippet is run from a user form button click event. If the built-in Find Box is open when the button is clicked, the code fails (that is, fails to find an occurence of 'styleX' that DOES exist) and the msgbox "Error" is displayed. If the built-in Find box is closed, the code works. If The find Box is open and I click the button on the userform twice, it fails the first time (but doesn't crash because the error is trapped) and works the second time. However, when going back to the document text, the arrow keys and all shortcut keys are disabled until the document is closed and reopened. Is there a way to get this to work with the find box left open? Or, less elegantly, is there a way in VBA to close the find box and reopen it after the code runs? And why does any of this disable the arrow and shortcut keys? Thanks for any advice. ================================ Dim rSearch As Range Set rSearch = docSource.Range With rSearch.Find .ClearFormatting .Text = "" .Style = "StyleX" .Execute If .Found = True Then Set rTemp = rSearch.Duplicate GoTo NextPart Else MsgBox "Error." Exit Sub End If End With NextPart: Tag: System.PrivateProfileString Tag: 67539
  - 6
    - Table Styles Hi, I was hoping if someone can guide me here. I am trying to format tables in my documents. I want a macro that runs through documents and searches for tables and if table found it applies Style: Normal, applies style "Title" to table caption found before the table and applies style "Title" to first row containing headings. The question is how do I apply styles to tables easily. I am using Word 2000. I know in Word 2003 you have Table.Styles and it can be done easily. How do I go about doing this in older versions of word? Thank you for your help. Tag: System.PrivateProfileString Tag: 67536
  - 7
    - Finding and replacing in Word using macros Hi there, You'll have to forgive me because I'm sure there is an incredibly simple answer to my question. However, I can't seem to figure it out. I'm using the code found at this link: http://word.mvps.org/faqs/customization/ReplaceAnywhere.htm to replace the words "location"with the specifc location (i.e. "Vancouver"). But instead of replacing with a specific word everytime I need to replace with a word which is different everytime and entered by the user (the location needs to be entered in each report separately). I'd rather not have to go in to change the code for each report as this is inefficient. Please help! Thanks in advance. Tag: System.PrivateProfileString Tag: 67532
  - 8
    - macro to surrond selected text with parentheses I would like to write a macro in Word which allows me to surround any text I have selected with a set of parentheses. How can I do this? Tag: System.PrivateProfileString Tag: 67531
  - 9
    - Get a Range for 2nd line in cell I have a cell in a table from which I want to get a Range that includes only the second line of text in the cell. At the moment I am looping through the Characters collection, using the first and second return characters to identify the second line. The problem is when I go to get the range from them, I get a Type mismatch error. How do I get the Range from these two characters? Thanks for your help. Sub Test1() Dim c As Word.Cell, r As Word.Range Dim r2 As Word.Range charRange As Word.Range Dim lngStartOfRange As Long, lngEndOfRange As Long Dim rngStartOfRange As Word.Range, rngEndOfRange As Word.Range Set c = ActiveDocument.Tables.Item(1).Cell(7, 4) Set r = c.Range ' Find starting and ending character positions. Dim i As Integer, str As String i = 0 For Each charRange In r.Characters i = i + 1 If Asc(charRange) = 13 Then If rngStartOfRange Is Nothing Then Set rngStartOfRange = r.Characters(i + 1) Else Set rngEndOfRange = r.Characters(i - 1) End If End If If Not rngEndOfRange Is Nothing Then Exit For Next Set r2 = ActiveDocument.Range(rngStartOfRange, rngEndOfRange) MsgBox "Line 2 text: " & r2.Text End Sub Tag: System.PrivateProfileString Tag: 67523
  - 10
    - Text Boxes I have dug around the help files but have been unable to find any documentation on how to determine whether a paragraph or range contains a text box. By "text box" I am referring not to a text box control on a user form, but to the kind of text box that can be inserted from the main menu with \Insert\Text Box. Also, how can the contents of the text box be extracted -- I would like to remove the text box and leave the contents in the document. Thanks in advance, Tom Tag: System.PrivateProfileString Tag: 67517
  - 11
    - Can I detect when a MacroButton text would span more than one line As suggested by the MVPS site I put my hyperlinks in macrobutton fields to be able to get an event whenever the user clicks it. This is done programmatically from an addin written in VB 6 and works fine. The only problem is when the inserted hyperlink is too long. I then get the text "DisplayText cannot span more than one line!" and I understand this, but is there a way to detect the condition either by testing the length before or detecting the error after it has happened? I need to be able to tell my user what to do about it. Tag: System.PrivateProfileString Tag: 67514
  - 12
    - creating hyperlinked TOC for multiple documents Hi All, I want to create a hyperlinked TOC for multiple documents. I have created a file and used {RD chapname.doc} for the files. I have included the \h option in the TOC code. Why doesn't it work for multiple documents? It works fine when the TOC is in the same file. Does anyone know if word supports this? According to microsoft, it should work (lol) ... Thanks in advance, Susan susanb@sanrad.com Tag: System.PrivateProfileString Tag: 67511
  - 13
    - Unexpected empty lines when using MAcro to saveas document We export asci files from SAP/R3 and open them with a Word (XP SP3 English) macro like Documents.open export.txt In this file every record is on one line ended with CRLF (checked this with an hexeditor). But when we do nothing but saving (and implicit converting) the file using Activedocument.saves filename:="export.doc", fileformat:=wdFormatdocument SOMETIMES there is an unexpected empty line in export.doc, when it occurs it can be reproduced (I have an example) but when we first edit export.txt using notepad it sometimes dissapears and sometimes not. I think it's a bug or so, we need the conversion to Word format as we use this document as secondary merge file. We have isolated the problem to the saveas command in the macro when trying to do the same without macro (use file -> saveas) the problem does not occur. Please advice ?. -- MCSE Admin for medium organisation Tag: System.PrivateProfileString Tag: 67506
  - 14
    - Enable Disable Design Mode. hi! I want to Enable/Disable Desing mode in word documents. Scenario is as under: i have my own toolbar in word. which has a button same like the "Desing Mode" button on "Control Toolbox". I want to control "Control Toolbox" using this button (i.e To Enter/Exit in Design Mode). Regards, Ahmad Tag: System.PrivateProfileString Tag: 67505
  - 15
    - re:Macro that Prompts user to print. :( anyone Tag: System.PrivateProfileString Tag: 67497
  - 16
    - Calculations In Access Trying to make a calculation in Microsoft Access that would allow m to take the currency in one field, and multiply it by the quantity o an item in another field and place this calculated information in new field Tag: System.PrivateProfileString Tag: 67496
  - 17
    - Can I disable the "activate macros" prompt? I have a document that contains macros that I want to distribute to large user base. Is there any way to override the "activate macros prompt or do I need to talk them through setting their macro securit to "medium" and then activate macros everytime they open th document If the latter is the case, is there I way I can check to see if the have activated the macros, i.e. to flag to them that the macro aren't activated and what they need to do to activate Thanks Tag: System.PrivateProfileString Tag: 67495
  - 18
    - Date Problem using mail merge. I have specified in my Access database that I want my date format t be a medium date with the following layout 19-Mar-0 This would display fine and to the exact format in Access, but when pull it into a mail merge in Word, the format changes to: 3/19/0 Is there anyway that I can make it display like 19-Mar-04? Another problem I am having in access is I have a field called "Mus Use By:" where a user must manually enter a date on an item. The dat can be any time from now or till 2 years in advanced, How do I mak that field so that a user can manually enter that date easily? Not b having to type 16-Mar-04. I would like an easier approach. Thank You Tag: System.PrivateProfileString Tag: 67494
  - 19
    - Access password makes word mail merge error Everytime I open an access database exclusively and set a password, o add a password to a workgroup, the mail merge document that is usin the database tells me that the operations of the database are corrup and I have to go manually and search for a new database. Any ideas how I can protect my database and STILL pull information t the word document for mail merge Tag: System.PrivateProfileString Tag: 67493
  - 20
    - Macro that Prompts user to print. Hey All. I have made a document that has 8 (eight) labels to ONE page. Th document is divided into 4 rows by 2 coloumns. Each label goes into cell of its own I have made 7 macros so that a user can choose to print any amount o labels from 1-8 by just pressing any of the short cut keys The first macro is shift+F7 which would delete one of the first label and then print the other 7 The second macro is shift+F6 which would delte the first two label and continue to print the other 6. And so on.. This is all well and good. If a user wants to print 8, he needs to d nothing but print the document as it is, because it is at default, labels The challenge lies where I want a user to get a prompt when they pres print, whcih would have a box appear and say "how many would you like to print? the user then could input the amount they wish to print and the macr automatically interprets that amount and prints that exact amount So if a user wanted to print 9 labels, it would print ONE full shee of 8 and then on another sheet, it shall only print 1 Is there anyone out there that can do this? If you need more info t make the situation clear, just let me know. Thank You Tag: System.PrivateProfileString Tag: 67492
  - 21
    - odd symbols when I email to my editor I am using Microsoft Word - text Times New Roman - which is set standard on my computer and when I us the symbols ", ', ), (, " each on of the items comes out as just a bunch of symbols and it's getting frustraing . They said eithrer fix the problem or work elsewere....help? Tag: System.PrivateProfileString Tag: 67490
  - 22
    - FAQ - vba - Frequently Asked Questions - please read before posting - unofficial May posting FAQ = Frequently Asked Questions - brief - vba - unofficial This FAQ is posted weekly.- more or less Please save us all some time by reading it before posting to the news group. This newsgroup is about VBA - Visual Basic for Applications - which is the programming language for Word 97-2003 (macros). There is a longer FAQ with more questions and links that is regularly posted in the non-VBA Word newsgroups. You may want to check that out as well. --- BEFORE POSTING ANYTHING PLEASE READ THESE --- http://www.mvps.org/word/FindHelp/Posting.htm http://www.dts-l.org/goodpost.htm Reading these articles will help you get a quick and meaningful response to your question rather than just more questions for you. It may keep your message from being screened or bounced. A few basics, though: (1) Be nice; everyone answering questions here is a volunteer. (2) Post a question in only one newsgroup generally. If you _have to_ post in more than one, post a _single_ message and put both newsgroups in the header for that _single_ message. (3) Do not attach anything to a message. (4) The only really stupid question is the one you don't ask. (5) Do not use your real email address unless you want spam. (See bottom for sample.) The reasons for the requests are spelled out on the web page. A longer version of this FAQ is also on the Internet at http://addbalance.com/word/index.htm Newsgroup Archives: http://groups.google.com/advanced_group_search MVPs FAQ site: http://www.mvps.org/word/ To the extent there is any "official" FAQ, this is it. --- Also, before posting, you may want to look at the following questions to see if yours is among them. ---------- ---------- ---------- ---------- ---------- ---------- 1. I see a macro in a newsgroup I would like to try. How do I add it to my template? http://addbalance.com/word/macrosfromnewsgroup.htm or http://www.mvps.org/word/FAQs/MacrosVBA/CreateAMacro.htm 2. What are some good books for me to read about Word? http://addbalance.com/word/wordbooks.htm and http://www.mvps.org/word/Tutorials/BookRecommendations.htm 3. How can I run a macro automatically when a document opens, closes, is created? http://www.mvps.org/word/FAQs/MacrosVBA/DocumentEvents.htm 4. How can I distribute or backup macros / customizations? http://word.mvps.org/FAQs/MacrosVBA/DistributeMacros.htm http://addbalance.com/word/movetotemplate.htm 5. What is an MVP? http://www.mvps.org/word/AboutMVPs/index.html and http://addbalance.com/word/mvp.htm 6. I need to make a form to... Userforms are custom dialog boxes written using vba. If you want a fill-in-the-blanks form you want what Word calls an online form. Look in Word's help for that, and for more info on online forms follow the links at: http://addbalance.com/word/wordwebresources.htm#Forms especially Dian Chapman's series of articles If you want a custom dialog box that you code with VBA commands you want a UserForm. Take a look at: http://www.mvps.org/word/FAQs/Userforms.htm 7. Where can I find more information on the Web? http://addbalance.com/word/wordwebresources.htm#webvba http://www.mvps.org/word/FAQs/MacrosVBA.htm http://www.mvps.org/word/FAQs/Userforms.htm http://www.mvps.org/word/FAQs/Customization.htm http://www.mvps.org/word/FAQs/OfficeInterdev.htm Comments / corrections / additions may be sent to wordfaq@no.spam.addbalance.com. Remove no.spam from the address. (This is a "proofed" email address, I hope.) Posted 1 May 2005 Charles Kenyon (the editor) Tag: System.PrivateProfileString Tag: 67487
  - 23
    - How may I change the width of the text selector icon -- Telephonics Tag: System.PrivateProfileString Tag: 67485
  - 24
    - Open a web page in Word Can I use VBA in Word to open a web page on a web server? I can use followhyperlink to open a HTML file on the local system but if this is used for a file on a web server it opens the file in a new Browser window --- haddress = "file:///" & fname & ".htm" ActiveDocument.FollowHyperlink haddress Grateful for any assistance, Peter E Tag: System.PrivateProfileString Tag: 67479
  - 25
    - easy install of template (saveas fileformat:=WDformattempate) ERRO Hello everyone, I am working on distributing a VBA utility an want to distribute in the easest possible way for people to install and use. I would like to distribute it as a single Word .DOC file that will contain both the documentation and the VBA. The document will contain buttons to install the code in the .../WORD/STARTUP folder and also uninstall it. The utilility will be launched by a toolbar button. The fall back method (which is working) to distribute it as a .DOC (with document and Install button) and a seperate .DOT file. The install code is given below but there is a problem (isn't there always). 1. It will run correctly if I click the RUN button in the VBA editor but if I click a button in the document I get a "Runtime eror 4198. Cpommand failed" 2. Sometimes, when Word is restarted I get a message saying that the template in the STARTUP folder is "not valid" Does anyone have any suggestions on how to get around this problem so I distribute a single file. Thanks in anticipation of receiving lots of helpful suggestions, Peter http://members.dodo.com.au/bakerevans/ ------ Sub install() Dim destfile As String Dim sourceFile As String Dim thisfile As String Dim theMessage theMessage = "Do you want to install Word Purge?" & vbCrLf If MsgBox(theMessage, vbYesNo) = vbYes Then 'name of this file thisfile = Application.ActiveDocument.FullName destfile = Options.DefaultFilePath(wdStartupPath) & _ Application.PathSeparator & "Word Purge.dot" sourceFile = Application.ActiveDocument.Path & _ Application.PathSeparator & "Word Purge.dot" ActiveDocument.SaveAs FileName:=destfile, _ FileFormat:=wdFormatTemplate End If end sub Tag: System.PrivateProfileString Tag: 67478
- Next
  - 1
    - simple install a template (saveas fileformat:=wdformattemplate) ER Hello everyone, I am working on distributing a VBA utility an want to distribute in the easest possible way for people to install and use. I would like to distribute it as a single Word .DOC file that will contain both the documentation and the VBA. The document will contain buttons to install the code in the .../WORD/STARTUP folder and also uninstall it. The utilility will be launched by a toolbar button. The fall back method (which is working) to distribute it as a .DOC (with document and Install button) and a seperate .DOT file. The install code is given below but there is a problem (isn't there always). 1. It will run correctly if I click the RUN button in the VBA editor but if I click a button in the document I get a "Runtime eror 4198. Cpommand failed" 2. Sometimes, when Word is restarted I get a message saying that the template in the STARTUP folder is "not valid" Does anyone have any suggestions on how to get around this problem so I distribute a single file. Thanks in anticipation of receiving lots of helpful suggestions, Peter http://members.dodo.com.au/bakerevans/ ------ Sub install() Dim destfile As String Dim sourceFile As String Dim thisfile As String Dim theMessage theMessage = "Do you want to install Word Purge?" & vbCrLf If MsgBox(theMessage, vbYesNo) = vbYes Then 'name of this file thisfile = Application.ActiveDocument.FullName destfile = Options.DefaultFilePath(wdStartupPath) & _ Application.PathSeparator & "Word Purge.dot" sourceFile = Application.ActiveDocument.Path & _ Application.PathSeparator & "Word Purge.dot" ActiveDocument.SaveAs FileName:=destfile, _ FileFormat:=wdFormatTemplate End If end sub Tag: System.PrivateProfileString Tag: 67477
  - 2
    - Change Sentence Case Hi, I am trying to write a macro that will change the case of all titles to Sentence case. All titles are paragraphs that are bolded. Below is my code, but it doesn't work. Any help would be appreciated. Thank you! Sub TitleToSentCase() Dim r As Range Set r = ActiveDocument.Range With r.Find .Text = "(^013)" .Font.Bold = True .MatchWildcards = True . Execute Do While .Found r.Case = wdTitleSentence Loop End With End Sub Tag: System.PrivateProfileString Tag: 67473
  - 3
    - Wildcards Hi, Can someone tell me what I am doing wrong here. I am trying to find all instances of the following in my document: Appendix 3 Appendix 7.6 Appendix 8.8.9.9.9 etc I want to find using 1 expression. This is what I am using : (Appendix)([0-9|.| ]@{1,}) and it works fine but doesn't pick all of them. For example: I have Appendix 8.1.3, Appendix 8.1.4, Appendix 8.1.5, Appendix 8.1.6 So it picks up the first 2, skips the 3rd one and finds the 4th one...I don't understand why it does that? Can someone help me. Thank you in Advance. ~ mehj Tag: System.PrivateProfileString Tag: 67465
  - 4
    - autotext and tables I use a form to insert autotext into a doc. This particular autotext is in tabular format. My problem is that some of the rows when inserted will span multiple pages and the next row down will start after. (Which is a good thing) However some of the rows, when inserted will span multiple pages and then force a page break before the next row starts. I hope the above makes sense. Any ideas on how I can force the rows/cells to stay together? Whether it be some clean-up code or on insertion into the doc. Thanks, Dave Tag: System.PrivateProfileString Tag: 67461
  - 5
    - Setting VBA Project Password Here's what I ended up with. It was a difficult birth. http://www.standards.com/index.html?SetVBAProjectPassword Tag: System.PrivateProfileString Tag: 67458
  - 6
    - How can I create a library for Word VBA? Hi All, How can I create a library for Word(97 or later version) VBA? Is there any web site talk about this? Thanks Regards Tag: System.PrivateProfileString Tag: 67456
  - 7
    - Word Clipboard Full My Clipboard is full - 24 items. I cannot clip any more and I cannot delete any of these. I am an experienced user so don't want the usual suggestions. I do know my way around Word. Thanks a lot Charles Tag: System.PrivateProfileString Tag: 67446
  - 8
    - Nested Tables Helmut/JGM The other day the three of us where looking at the problem of drilling down to "deep" nested tables. Cindy Meister "shoved" me twice in the right direction and I think I have finally put together some code that will delete "ALL" empty paragraphs in a document. Cindy, if you are reading, thanks again!! The code is probably inefficient and ugly, but I haven't been able to break it in over a half hour of trying. The code as part of the complete Add in is available here in you care to have a look. http://gregmaxey.mvps.org/Clean_Up_Text.htm -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: System.PrivateProfileString Tag: 67441
  - 9
    - Disable form field using VBA Using Word 2002, is there a method to uncheck 'fill-in enabled' using VBA? For example, on exit of each checkbox in a group, determines if one is selected and then disables several other fields (so that tab moves to the next group). TIA, Mike Tag: System.PrivateProfileString Tag: 67436
  - 10
    - Msbbox - VBok for empty text boxes Hello, Created a template with a user form to collect information. Form text and combo boxes drop information into bookmarks. Everything here works fine. I have had no success in completing code to get a general message box to display if any of the text or combo boxes have been left blank when the user clicks the submit button. I would like the user to receive the msg. and click OK to return to the from I am placing my attempt in the cmdSubmit_Click() Still new to VBA... -- Thank-you and all suggestions are appreciated. Tag: System.PrivateProfileString Tag: 67429
  - 11
    - Inserting a document that will print inside another document How do I insert a link to another document and have the second document print as if it was part of the original document Tag: System.PrivateProfileString Tag: 67428
  - 12
    - Error 5102 I am opening a new document based on a template from Access. When I move to the 2nd bookmark, it gives me "Error 5102: You entered multiple destinations for a page, line, footnote, endnote, or comment." The bookmark is on the template and I checked spelling, etc. but have no idea what is causing. Can anyone shed some light on this? Thanks. David Tag: System.PrivateProfileString Tag: 67427
  - 13
    - Get a cell value from excel Hi, Firs of all, thank you for reeding my question. I would like to get a cell value from a excel file into a word file, using macros programming. I mean, developing a macro able to read a cell. Thanks Tag: System.PrivateProfileString Tag: 67423
  - 14
    - DATES I have a form in Word which needs to be 2-sided when printed and contain calendar dates - one for each day - to be filled in by hand by people without computer access. Preferable format "Friday, April 29, 2005. Can be moved to Excel. Any help is greatly appreciated. Tag: System.PrivateProfileString Tag: 67418
  - 15
    - Copy text to XML element I open a Word doc based on a template. In the template I have attached a schema and added some elements to the doc, one of which is called "FirstName.". What I am trying to do is set the value of the FirstName element to some text. I have tried several techniques such as dim wdApp as New Word.Application dim wdDoc as New Word.Document dim wdTemp = "C:\MyTemplate.dot" dim wdNode as Word.XMLNode wdDoc = wdApp.Documents.Add(wdTemp) wdNode = wdDoc.SelectSingleNode("/FirstName") wdNode.Text = "Nancy" when I do this, I get error msg 'object reference not set to an instance of an object" telling me that '/FirstName" is not a valid XPath, I think. I then try wdNode = wdDoc.SelectSingleNode("FirstName") wdNode = "Nancy" and get the same error. My question is how can I set the value of an XML element in a doc to a text value at run time? Thanks for your help Tag: System.PrivateProfileString Tag: 67417
  - 16
    - html Hello, I have a word document with a lot of html links. How can I download automatically all the html files of those links? Bye. Marcel Tag: System.PrivateProfileString Tag: 67416
  - 17
    - hyperlink; read-only I am trying to find out if it is possible to change the settings of a hyperlink so that a document will be opened as "Read-only". Thanks! Tag: System.PrivateProfileString Tag: 67414
  - 18
    - Opening webpage from vba without opening new IE window I can open a webpage from vba a couple of different ways: pAddress = "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & sAddress Shell pAddress, vbNormalFocus Shell ("C:\Program Files\Internet Explorer\IEXPLORE.EXE _ www.washingtonpost.com"), vbNormalFocus But these open a new IE window each time. Is it possible to load a webpage into an existing IE window, without open a new IE window? Thanks, Larry Tag: System.PrivateProfileString Tag: 67411
  - 19
    - VBA question, can't get this macro to work i can't get the replacement text area to work. It finds the right information, but i can't get the insert section break to work. PLEASE HELP!!!! With Selection.Find .Text = " APR 1-2005 " .Replacement.Text = Selection.InsertBreak wdSectionBreakNextPage & " APR 1-2005 " .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Tag: System.PrivateProfileString Tag: 67410
  - 20
    - Storing Child word documents inside Master documents using Word's document objects. Hi All, I am trying to store a word(Child) document inside another word document (Master) in such a way that the Child document can't be seen when the Master is opened (Master and Child will be inside a single file). By default, when the document is opened, the Master document is shown. The Child will be shown when I click my Active X's "show child document" menu item. To achieve this I tried to store the Child document inside my ActiveX but quickly found that I can't store more than approx 200KB (I may be wrong in the exact size) of Child document. I then tried to store the Child document inside Document variable of Master Doc. The Document variable is hidden so seemed OK. I broke my Child document in chunks of 100 KB and stored in recognizable Document variables of Master document Object. So far so good. I tried this on Windows 2000 Server with Office 2003 and it worked but on Windows XP after creating 2 such Document variables containing the Child documents it started giving strange data e.g. If the Child document size is 60 KB whle storing, on retrieving I get 100 KB!! which then crashes by application while checking. This is only happening in Windows XP Home Edition and Professional. Now questions; 1) Is there any other way to store word document inside a word document programmatically ? 2) Any reason why is it failing to give me the correct data? 3) On programmaticall removal of the document variables, the size of the Master document remains the same, why ? Thanks for reading.. Regards, Wahaj Tag: System.PrivateProfileString Tag: 67409
  - 21
    - AutoExec macro in Word project won't run when Outlook is running I have an AutoExec macro in a '.dot' project saved in the StartUp folder. It is supposed to run everytime I run Word. It does, except that if I have previously started Outlook (with Word selected as Outlooks e-mail editor), the AutoExec will not automatically run. Why? How can I get the AutoExec macro to run regardless of Outlooks presence. Thanks. Ed Tag: System.PrivateProfileString Tag: 67405
  - 22
    - "Getting rid" of tem,plate information I have a document, based on a certain template. This template is placed on a server. When I mail documents based on this template to customers, and they try to open the document, Word starts searching for the template in the customers. It takes a long time, and only when Word "are sure" the template is not there, it opens the document. This is annoying to my customers. Is there anyway I can remove the connection between document and template, before mailing the document, maybe using Document_Close() or someting like that.? Jan Tag: System.PrivateProfileString Tag: 67403
  - 23
    - thezaurus for English Language How can I get a thezaurus for English Language to use it in Word? I do not have it, because I use a Polish version of Office Package. Thank you Tag: System.PrivateProfileString Tag: 67402
  - 24
    - Deleting text in bookmarks very slow... Hello, I've run into a problem in my C# add-in for Word. One of the operations that the add-in has to do is going over all = bookmarks in a document and removing the bookmarks and its content if = certain conditions are true. Originally, I tried the following: bookmark.Range.Text =3D ""; Unfortunately, it did not work correctly in all cases (for example, if = the bookmark spanned table cells). So I used the following: Microsoft.Office.Interop.Word.Range range =3D bookmark.Range; bookmark.Delete(); range.Delete(ref missing, ref missing); when "missing" was initialized thus: object missing =3D System.Reflection.Type.Missing; That works correctly but, according to the profiler, is 4-5 times = slower! Since this operation is performed in a tight loop, on a document with a = lot of bookmarks that need to be deleted, this slowdown is VERY = noticeable. The breakdown of the timing between the 3 lines is roughly: Microsoft.Office.Interop.Word.Range range =3D bookmark.Range; // = 3.6% bookmark.Delete(); // 13.8% range.Delete(ref missing, ref missing); // 82.6% So the culprit is the range.Delete() operation. I really need to speed this up! Any help is appreciated. Thanks, Alex. --=20 Address email to user "response" at domain "alexoren" with suffix "com" Tag: System.PrivateProfileString Tag: 67397
  - 25
    - How I can change the default font size in normal.dot via VBA Hi There I need to change the default font from Times New Roman 12 pt to Times New Roman 11 pt in Normal.dot. I know how do to that manually but I need to change the font by VBA in a master template and then update all the users Normal.dots by pushing out the master template. would you please let me know what I'm doing wrong in below code any help would be appreciated. Many Thanks, Leila Sub AutoExec() ' ' ' Font End Sub -------------------- Sub Font() With ActiveDocument.AttachedTemplate.Styles("Normal").Font .Name = "Times New Roman" .Size = 11 .Bold = False .Italic = False .Underline = wdUnderlineNone .UnderlineColor = wdColorAutomatic .StrikeThrough = False .DoubleStrikeThrough = False .Outline = False .Emboss = False .Shadow = False .Hidden = False .SmallCaps = False .AllCaps = False .Color = wdColorAutomatic .Engrave = False .Superscript = False .Subscript = False .Scaling = 100 .Kerning = 0 .Animation = wdAnimationNone End With 'Selection.Style = ActiveDocument.Styles("Normal") End Sub Tag: System.PrivateProfileString Tag: 67393

Hi All,
When I use System.PrivateProfileString I cannot read the results of a
certain key.

I've tried a couple of different things to make it work to no avail.

Any pointers?

If aStyArrStyleType(i) <> "wdStyleTypeCharacter" Then
For z = 0 To lTabCount - 1

strTabPos = "Tab" & Format(z, "00") & "Pos="
strTabAlign = "Tab" & Format(z, "00") & "Align="
strTabLeader = "Tab" & Format(z, "00") & "Leader="

aStyArrParaTabPos(z, i) = System.PrivateProfileString(strIniFileLoc,
"Style" & Str(i + 1), "Tab" & Format(z, "00") & "Pos=")
aStyArrParaTabAlign(z, i) =
System.PrivateProfileString(strIniFileLoc, "Style" & Str(i + 1),
strTabAlign)
aStyArrParaTabLeader(z, i) =
System.PrivateProfileString(strIniFileLoc, "Style" & Str(i + 1),
strTabLeader)
Next z
End If

.ini file contents

[Style 1]
Name=List1
Size=11
FontType=Times New Roman
StyleType=wdStyleTypeParagraph
Tab00Pos=
Tab00Align=
Tab00Leader=
Tab01Pos=0.635
Tab01Align=6
Tab01Leader=0
Tab02Pos=1.629833
Tab02Align=0
Tab02Leader=0

Top

Re: System.PrivateProfileString by Word

Word
Thu May 05 20:50:54 CDT 2005

G'day jb@jb.com,

I normally use Format$(expression) to convert numerics to alphas.

Steve Hudson - Word Heretic

steve from wordheretic.com (Email replies require payment)
Without prejudice

jb@jb.com reckoned:

>Hi All,
>When I use System.PrivateProfileString I cannot read the results of a
>certain key.
>
>I've tried a couple of different things to make it work to no avail.
>
>Any pointers?
>
>If aStyArrStyleType(i) <> "wdStyleTypeCharacter" Then
> For z = 0 To lTabCount - 1
>
> strTabPos = "Tab" & Format(z, "00") & "Pos="
> strTabAlign = "Tab" & Format(z, "00") & "Align="
> strTabLeader = "Tab" & Format(z, "00") & "Leader="
>
> aStyArrParaTabPos(z, i) = System.PrivateProfileString(strIniFileLoc,
> "Style" & Str(i + 1), "Tab" & Format(z, "00") & "Pos=")
> aStyArrParaTabAlign(z, i) =
> System.PrivateProfileString(strIniFileLoc, "Style" & Str(i + 1),
> strTabAlign)
> aStyArrParaTabLeader(z, i) =
> System.PrivateProfileString(strIniFileLoc, "Style" & Str(i + 1),
> strTabLeader)
> Next z
>End If
>
>.ini file contents
>
>[Style 1]
>Name=List1
>Size=11
>FontType=Times New Roman
>StyleType=wdStyleTypeParagraph
>Tab00Pos=
>Tab00Align=
>Tab00Leader=
>Tab01Pos=0.635
>Tab01Align=6
>Tab01Leader=0
>Tab02Pos=1.629833
>Tab02Align=0
>Tab02Leader=0

Top