Loop thru bookmarks

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Formatting picture size in VBA I have a macro that inserts a picture into a form field. I want to include code within that procedure that formats the height and width of the picture to 100x70 pixels. Can someone help me with the code? Thank you. Tag: Loop thru bookmarks Tag: 67673
  - 2
    - make TOCs easier to format ala OpenOffice. I've been playing with the OpenOffice 2 beta and really like some of the features they have. Particularly, I find their TOCs and Indices easier to use (I've used Word extensively (97, 2000, XP, and 2003) for years as a technical writer, grad student, and now teacher). Also, what is stopping you from including the ability to save in pdf like WordPerfect and OpenOffice? A deal with Adobe? THAT feature is one reason OpenOffice made it onto my PC to begin with. It's becoming a very nice program, even for someone who uses a higher than average amount of Word's feature set. ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. http://www.microsoft.com/office/community/en-us/default.mspx?mid=624d99db-216a-445a-9f84-cd7f4d266c0c&dg=microsoft.public.word.vba.general Tag: Loop thru bookmarks Tag: 67671
  - 3
    - BuiltIn Doc Property - wdPropertyTimeLastSaved - does not update Hi All I want to use code prove that a document has been saved, or otherwise. Before saving the document (using ActiveDocument.Save) I use a message box to display the date/time the document was last saved i.e. the value of wdPropertyTimeLastSaved). I then save and display another message box with the new value for wdPropertyTimeLastSaved. The problem is that it the value doesn't appear to update the seconds field so, if I save the document at an interval of less than one minute, the two values are the same. Is there a way around this? Many thanks for any help in advance Mad Dog Tag: Loop thru bookmarks Tag: 67665
  - 4
    - Error Handling I am working on a macro to refomat fractions. Part of the process is to check the character before and the character after the range for a "/" character. I know that if my range start = the active document range start then an error will be generated. I am not very proficient or comfortable with Error Handling. Please have a look at the method I am using to handle this error and let me know if I have done it the way it should be done. Thanks. Note (this is just a part of the larger code so you can see how the error occurs and how it is handled) Sub FormatFraction() Dim OrigFrac As String Dim Numerator As String, Denominator As String Dim NewSlashChar As String Dim SlashPos As Integer Dim fractionRng As Range 'Type and select 4/5 at the start of a new blank document Set fractionRng = Selection.Range NewSlashChar = ChrW(&H2044) OrigFrac = fractionRng SlashPos = InStr(OrigFrac, "/") Numerator = Left(OrigFrac, SlashPos - 1) Denominator = Right(OrigFrac, Len(OrigFrac) - SlashPos) 'Skip improper fractions or checksum format e.g., 123/9 If Val(Numerator) > Val(Denominator) Then Exit Sub End If 'skip date formats e.g., 12/31/1958 With fractionRng On Error GoTo Handler 'Error is generated when fractionRng.Start = ActiveDocument.Range.Start If .Characters.First.Previous = "/" Or _ .Characters.Last.Next = "/" Then Exit Sub End If End With Continue: fractionRng.Font.Superscript = True fractionRng = Numerator fractionRng.Collapse Direction:=wdCollapseEnd fractionRng = NewSlashChar fractionRng.Font.Superscript = False fractionRng.Collapse Direction:=wdCollapseEnd fractionRng = Denominator fractionRng.Font.Subscript = True fractionRng.Collapse Direction:=wdCollapseEnd fractionRng.Font.Subscript = False Exit Sub Handler: Err.Clear Resume Continue End Sub -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: Loop thru bookmarks Tag: 67664
  - 5
    - Creating dynamacially Macro into new Document. Hi all I wrote a macro that splits mail merge document to seperated documents. is it possible to add AutoRun macro for each document? Because in the main document I am using an ocx and I am setting the licence properties with one line code statement. after spliting mail merge document, the licence must be setted for each document. Because of that I want to add AutoRun macro into each document with same code line. like this... Sub Autorun() TBarCode51.LicenseMe "Mem: LicenceName", eLicKindDeveloper, 1, "4564213", eLicProd1D End Sub Thanks alot in advance... Tolga -- Message posted via http://www.officekb.com Tag: Loop thru bookmarks Tag: 67662
  - 6
    - How do I get page count from a Word document object? I have a VB.NET application that manages .PRN documents created from Word documents. I want to expand the app to include the ability to transition the .DOCs into .PRN, one .PRN for every page in the .DOC. Everything works just the way it should now, as long as I know how many pages are in the .DOC up front. But the ideal situation would be if I can get the number of pages from the just-opened Word document object. Short of going back to define a NUMPAGES field on hundreds of .DOCs, how can I get the Word document object to give up that information at that time it's opened? Tag: Loop thru bookmarks Tag: 67651
  - 7
    - Greg Maxey - please get in touch Hi Greg I was wondering if I could get your email address? (We worked together on that Request for assessment thread.) Mine's chuckhenrich@eircom.net. Thanks! Chuck Tag: Loop thru bookmarks Tag: 67643
  - 8
    - InsertSymbol inserts symbol as formated text the first time Hi, I have a problem with InsertSymbol that I have seen nowhere else. I need to insert a character from a symbol font and want it to have symbol behaviour, i.e. if I mark a range containing the character afterwards and select another font, the symbol character won't change. This might sound simple and I thought it was, but generally it doesn't work the first few times... In a fresh Word application I use the code below to insert a symbol character with some other symbol font than Symbol and the first and sometimes first few character will be wrong: Sub InsertWayPointerSymbol() Dim rng As Range Dim i As Long Set rng = Selection.Range.Duplicate For i = 0 To 30 rng.InsertSymbol AscW("n"), "Marlett" rng.MoveEnd wdCharacter rng.Font.Name = "Times New Roman" rng.Collapse wdCollapseEnd Next i End Sub I assume this has something to do with the font not being fully initialized before I start, but can I force it to be somehow? I tried simply inserting one character and removing it first, but the problem is I do not know how many times I need to fix it. On some users machines the problem occurs for a longer time. Would I be guaranteed that it will work if I add a style containing the symbol font to the template that is used? Or can I programmatically create a style or something to force the font to be initialized? For readers familiar with WordML it might be helpfull to see the difference in wordml between the incorrect and correct character: Incorrect: <w:r> <w:rPr> <w:rFonts w:ascii="Marlett" w:h-ansi="Marlett" /> <wx:font wx:val="Marlett" /> <wx:sym wx:font="Marlett" wx:char="F06E" /> </w:rPr> <w:t>n</w:t> </w:r> Correct: <w:r> <w:rPr> <w:rFonts w:ascii="Marlett" w:h-ansi="Marlett" /> <wx:font wx:val="Marlett" /> </w:rPr> <w:sym w:font="Marlett" w:char="F06E" /> </w:r> Greatful for any suggestions! /Anna Tag: Loop thru bookmarks Tag: 67637
  - 9
    - Activating the Newly opened Document Hi All, I have the instance of Documents and i open up the new documents using Documents.Add method. When i open the first document, it comes in the foreground. But when i open the second one, the second one has to come infront. How can achive this? I mean, whenever i open the new document programatically, i want the new document is in the foreground and visible. Thanks in advance. Tag: Loop thru bookmarks Tag: 67635
  - 10
    - big mess!!help! I am in a real big mess. I just spent 4 days on a huge macro and I accidentally gave two textboxes the same name. When I ran the macro, I got a "DUplicate ~" error. I couldn't open the form and I saved the template and quit word. Now, when I try to open any macro from that template, word simply quits (the usual tell MS about this problem) box. How do I recover the file?? My backup dates back a week and I can't remember all the changes I made! Please help! Vince Tag: Loop thru bookmarks Tag: 67628
  - 11
    - Word VBA Performance and File Size We have a VBA app running on Word XP that just started to run much slower in our latest release. We didn't change anything in the VBA app that would account for this speed difference. The only thing we noticed is that the new file (a DOT) is much smaller than the old (faster) DOT file. Are there compile options in VBA that might account for the size and speed difference? Thanks! wolfereeno at yahhoo dot com Tag: Loop thru bookmarks Tag: 67618
  - 12
    - Can Word 2003 save to multiple html files? I'm trying to create multiple html files from one Word document. I'd like to be able to save as Filtered HTML but with new auto generated html files per section (i.e. heading1 and heading2 and toc and index) and still retain hypertext links. Can this be done via Word 2003? If not, what tool or process do I need to use? What does Word use to isolate the toc and section info for that help popup? (You'd think that they'd use their own tool/tools for doing so.....) Tag: Loop thru bookmarks Tag: 67617
  - 13
    - Fields Hi, Is there a way to determine whether the paragraph contains fields code? We use an addin feature that generates references at the end of document. I wanted to check whether the list was generated. Is there a way to do check whether p.Range has fields? Thanks. Tag: Loop thru bookmarks Tag: 67613
  - 14
    - Centering an I have placed a graphic in my document, using "Insert -- Picture -- From File...",and am unable to adjust programatically its alignment on the page. In VBA, alignment options are not available for members of the InlineShapes collection. Even in the dialog insode of Word, though, it doesn't allow me to select alignment. All of those options are greyed out. Can anyone tell me how to use VBA to set the alignment to "Center" for a single graphic, not the text before or after it. Also, if anyone can explain why the alignment options in the dialog box are greyed out, I'd appreciate it. Thank you in advance. Tag: Loop thru bookmarks Tag: 67605
  - 15
    - need to select range based on bookmarks I want the user to be able to select an end-point for a search and replace range. After some manipulations, I set the first bookmark like this: If ActiveDocument.Bookmarks.Exists("myStart") = True Then ActiveDocument.Bookmarks("myStart").Delete End If ActiveDocument.Bookmarks.Add Name:="myStart" Then I have the user choose an end point, and set the second bookmark: If ActiveDocument.Bookmarks.Exists("myEndPoint") = True Then ActiveDocument.Bookmarks("myEndPoint").Delete End If ActiveDocument.Bookmarks.Add Name:="myEndPoint" DeleteRange.DeleteRange Now I want to select that range, but I haven't been able to do it. I've tried the following, neither of which work. Any ideas? Dim myRange as Range myRange.SetRange Start:=ActiveDocument.Bookmarks("myStart"), _ End:=ActiveDocument.Bookmarks("myEndPoint") myRange.Select and Dim pos1 Dim pos2 Dim r As Range ActiveDocument.Bookmarks("mystart").Select Set pos1 = ActiveDocument.Bookmarks("mystart") ActiveDocument.Bookmarks("myEndPoint").Select Set pos2 = ActiveDocument.Bookmarks("myendpoint") pos1.Select Selection.ExtendMode = True pos2.Select Set r = Selection Thanks for any help you can give me. Tag: Loop thru bookmarks Tag: 67604
  - 16
    - word doc. open? hi everyone, g'd morning. in vba, do you know how to check if a word doc. is already opened in word for xp? thank you, william. -- Tag: Loop thru bookmarks Tag: 67598
  - 17
    - Document_Close event / Document.Saved flag We have an application which uses Word through Automation as a text editor. The application is used with Word97, Word2000 and Word2002. We are currently testng to release it for Word2003. We have our own DOT file which handles saving the content of the document and have thus defined the Document_Close method. If the user selects the X (cross in upper right hand corner of applicatoin), the Document_Close is called, however at this point, the Saved flag of the current document has be set to True - even if it was False just prior to selecting the X. Does anyone know if there has been any changes in the handling of the Saved flag wrt Word2003 - or does anyone have any hints ? Thanks for any help. Nikolai Tag: Loop thru bookmarks Tag: 67593
  - 18
    - word vba error <automation error> Hi All, Here is the code: Set objXL = New Excel.Application Set objwkb = objXL.Workbooks.Open(datafile) objwkb.Save '<--- Error in this code If I get this error, I only need to close the Word and re-open again. Then there will be no error. The error not happen all the time. It may happens after I copy the excel to the same directory. Thanks for advice. Regards Tag: Loop thru bookmarks Tag: 67592
  - 19
    - Convert MS-Word Documents to images I am using Office 2003 on Windows XP. I have several one page MS-Word documents saved as separate files. I would like to convert each of these to an image (e.g tif (preferred), jpg, png, or gif). The final image needs to include headers and footers. I would like to be able to do this using VBA. If someone knows how to do this could you please post example code? Thanks much in advance. Tag: Loop thru bookmarks Tag: 67587
  - 20
    - Hyperlinks in protected forms I followed the MVP site instructions for getting a hyperlink (MacroButton) to work in a protected form. In Word 2003, it works great. However, the hyperlinks are not active with previous of Word (i.e. 2000). Is there anything I can do to make the links (MacroButtons) works with the older versions? Tag: Loop thru bookmarks Tag: 67583
  - 21
    - Changing Excel links inside Word Documents Hello, Currently the company I am working for has lots of Word documents with embedded Excel objects in them which were linked using Word's Edit->Paste Special. We recently switched to a new server so I am in the process of writing a script that will allow changing of these links to be trivial to our word processing department. I did a search and saw a lot of posts about this topic, but none that really hit the problem I'm having on the head. I am currently using a VB Script that simulates keypresses to show field codes, do a find replace on the location, and hide the field codes. The problem is after I have changed the links, I cannot update any of the links in the file by selecting the link and pressing F9. It just tells me that the object could not be found. Now the weird part is, after I have changed the link code to the new location and try to update the link, the link changes back to the old location! I'm just wondering if anyone has seen something like this before and whether or not there is a way to fix it. The link paths are all UNC paths, not mapped drive letters and I'm pretty sure the files are in Word 95/6.0 format, but we are currently using Office XP Small Business. I'm not sure if that's the problem but I am hoping there is a way to fix it. This is the code I am using: Set WshShell = CreateObject("WScript.Shell") Dim wordFilePath wordFilePath = BrowseForFile() Set wordApp = CreateObject( "Word.Application" ) wordApp.Visible = True wordApp.Documents.Open wordFilePath WshShell.AppActivate( "Microsoft Word" ) WScript.Sleep 5000 WshShell.SendKeys "%{F9}" WScript.Sleep 5000 WshShell.SendKeys "^h" WScript.Sleep 3000 WshShell.SendKeys "Old UNC Path" WScript.Sleep 1000 WshShell.SendKeys "{TAB}" WScript.Sleep 500 WshShell.SendKeys "New UNC Path" WshShell.SendKeys "{TAB}" WScript.Sleep 200 WshShell.SendKeys "{TAB}" WScript.Sleep 200 WshShell.SendKeys "{TAB}" WScript.Sleep 200 WshShell.SendKeys "{TAB}" WScript.Sleep 200 WshShell.SendKeys " " WScript.Sleep 1000 WshShell.SendKeys "{ENTER}" WScript.Sleep 1000 WshShell.SendKeys "%{F4}" WScript.Sleep 1000 WshShell.SendKeys "%{F9}" WScript.Sleep 2000 MsgBox "This Word document is fixed. Click ""OK"" to begin using it!" Function BrowseForFile() Set objOpenDialog = CreateObject( "UserAccounts.CommonDialog" ) objOpenDialog.Filter = "Microsoft Word Documents | *.doc" objOpenDialog.InitialDir = "C:\DOCUMENTS AND SETTINGS\ADMINISTRATOR\DESKTOP" objOpenDialog.Flags = &H80000 + &H4 + &H8 intResult = objOpenDialog.ShowOpen BrowseForFile = objOpenDialog.FileName End Function Many thanks in advance for all the help I receive. Best Regards, Mike P.S. - I have tried doing this as a Macro inside of Word with some code that I found in the groups, but the same things happens with VBA. :( Tag: Loop thru bookmarks Tag: 67582
  - 22
    - Plugin not working on some other machine hi! i have a plugin for MS Word. It is working on my machine very well, but when i try it on some other machine, it crashes the Word. The values under the following Key in registry are as follow: HKEY_CURRENT_USER\Software\Microsoft\Office\Word\Addins\MyPlugin.Connect FriendlyName = "MyPlugin" Description = "This is a testing plugin" LoadBehavior = 0x00000003 Word is now completely opened and it crashed. So after that when i try to open word again. it displays a message box that the plugin "myplugin" has caused problem. Do you want to disable this plugin or not? Any body there to help me.................................? Thanks Rod Tag: Loop thru bookmarks Tag: 67580
  - 23
    - sum up column value in a table Hi All, If there is a table. 1st row contain three column. with data 0,0,3 (each value in each cell) 2nd row contain four column where the 2nd and 3rd column are 50% width of 1st row 2nd column. And the data is 0,0,30,40 (each value in each cell) 3rd .. nth row, each width same as 1st row without data The problem which I face is, if I need to to put total in 5th row, {=sum(C1:C4) \#,###,###.00 \* MERGEFORMAT} the MSword will give out: 33 (3+30) instead of 43 (3+40) which I expected to have. Is there any way to sum up with Macro with a (some) smarter way? Thanks for advice ~ Tag: Loop thru bookmarks Tag: 67579
  - 24
    - Data Missing in wdDialogMailMergeRecipients hi everybody, i m doing word2003 automation through C# [Web Applications].i m using user dsn in .OpenDataSource [connection] property. data is selected using sqlstatement and is able to use where clause in the sqlstatement. Then i m showing (wdDialogMailMergeRecipients) dialog which do contain the number of records as required by sqlstatement, as they have checked box marked infront of them. but the actual data is missing from the fields, no data is being displayed in the field values. the fields value are totally blank. can anyone suggest me how to overcome this problem. would like to see response to the problem soon. Satish panwar -- Message posted via http://www.officekb.com Tag: Loop thru bookmarks Tag: 67576
  - 25
    - how do I set advanced picture formatting properties? I have written a tool to manage pictures in documents. This includes formatting of pictures, so that users can set all the properties in a standardized way, by running a single macro (i.e. with a single mouse-click). I have this all working, but cannot access the Advanced properties. So we know which properties I am referring to, see the Format Picture dialog, Layout tab, Advanced button. I am mainly interested in the properties on the text Wrapping tab there, but these in the Picture Position tab would be nice too if I can access them. I am using Word 2002 on Windwos XP Pro. -- Stephenc Tag: Loop thru bookmarks Tag: 67575
- Next
  - 1
    - System.PrivateProfileString 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 Tag: Loop thru bookmarks Tag: 67572
  - 2
    - 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: Loop thru bookmarks Tag: 67571
  - 3
    - 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: Loop thru bookmarks Tag: 67565
  - 4
    - 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: Loop thru bookmarks Tag: 67551
  - 5
    - "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: Loop thru bookmarks Tag: 67541
  - 6
    - 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: Loop thru bookmarks Tag: 67539
  - 7
    - 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: Loop thru bookmarks Tag: 67536
  - 8
    - 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: Loop thru bookmarks Tag: 67532
  - 9
    - 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: Loop thru bookmarks Tag: 67531
  - 10
    - 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: Loop thru bookmarks Tag: 67523
  - 11
    - 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: Loop thru bookmarks Tag: 67517
  - 12
    - 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: Loop thru bookmarks Tag: 67514
  - 13
    - 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: Loop thru bookmarks Tag: 67511
  - 14
    - 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: Loop thru bookmarks Tag: 67506
  - 15
    - 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: Loop thru bookmarks Tag: 67505
  - 16
    - re:Macro that Prompts user to print. :( anyone Tag: Loop thru bookmarks Tag: 67497
  - 17
    - 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: Loop thru bookmarks Tag: 67496
  - 18
    - 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: Loop thru bookmarks Tag: 67495
  - 19
    - 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: Loop thru bookmarks Tag: 67494
  - 20
    - 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: Loop thru bookmarks Tag: 67493
  - 21
    - 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: Loop thru bookmarks Tag: 67492
  - 22
    - 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: Loop thru bookmarks Tag: 67490
  - 23
    - 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: Loop thru bookmarks Tag: 67487
  - 24
    - How may I change the width of the text selector icon -- Telephonics Tag: Loop thru bookmarks Tag: 67485
  - 25
    - 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: Loop thru bookmarks Tag: 67479

I want to loop through all the bookmarks in a Word table who's name starts
with "Pic" and set the font color to white. Help please?

Thank you.

Top

Re: Loop thru bookmarks by Jezebel

Jezebel
Wed May 04 16:39:33 CDT 2005

Dim pBookMark as word.bookmark

For each pBookMark in Table.Range.Bookmarks
If left$(pBookmark.Name,3) = "Pic" then
pBookmark.Range.Font.Color = wdColorWhite
End if
Next

"Wylie C" <WylieC@discussions.microsoft.com> wrote in message
news:69D26B8A-57C0-47C2-84C0-F83EBBEC7CEB@microsoft.com...
>I want to loop through all the bookmarks in a Word table who's name starts
> with "Pic" and set the font color to white. Help please?
>
> Thank you.

Top