Centering an

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - 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: Centering an Tag: 67604
  - 2
    - 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: Centering an Tag: 67598
  - 3
    - 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: Centering an Tag: 67593
  - 4
    - 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: Centering an Tag: 67592
  - 5
    - 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: Centering an Tag: 67587
  - 6
    - 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: Centering an Tag: 67583
  - 7
    - 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: Centering an Tag: 67582
  - 8
    - 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: Centering an Tag: 67580
  - 9
    - 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: Centering an Tag: 67579
  - 10
    - 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: Centering an Tag: 67576
  - 11
    - 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: Centering an Tag: 67575
  - 12
    - 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: Centering an Tag: 67572
  - 13
    - 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: Centering an Tag: 67571
  - 14
    - 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: Centering an Tag: 67565
  - 15
    - 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: Centering an Tag: 67551
  - 16
    - "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: Centering an Tag: 67541
  - 17
    - 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: Centering an Tag: 67539
  - 18
    - 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: Centering an Tag: 67536
  - 19
    - 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: Centering an Tag: 67532
  - 20
    - 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: Centering an Tag: 67531
  - 21
    - 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: Centering an Tag: 67523
  - 22
    - 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: Centering an Tag: 67517
  - 23
    - 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: Centering an Tag: 67514
  - 24
    - 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: Centering an Tag: 67511
  - 25
    - 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: Centering an Tag: 67506
- Next
  - 1
    - 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: Centering an Tag: 67505
  - 2
    - re:Macro that Prompts user to print. :( anyone Tag: Centering an Tag: 67497
  - 3
    - 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: Centering an Tag: 67496
  - 4
    - 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: Centering an Tag: 67495
  - 5
    - 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: Centering an Tag: 67494
  - 6
    - 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: Centering an Tag: 67493
  - 7
    - 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: Centering an Tag: 67492
  - 8
    - 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: Centering an Tag: 67490
  - 9
    - 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: Centering an Tag: 67487
  - 10
    - How may I change the width of the text selector icon -- Telephonics Tag: Centering an Tag: 67485
  - 11
    - 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: Centering an Tag: 67479
  - 12
    - 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: Centering an Tag: 67478
  - 13
    - 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: Centering an Tag: 67477
  - 14
    - 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: Centering an Tag: 67473
  - 15
    - 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: Centering an Tag: 67465
  - 16
    - 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: Centering an Tag: 67461
  - 17
    - Setting VBA Project Password Here's what I ended up with. It was a difficult birth. http://www.standards.com/index.html?SetVBAProjectPassword Tag: Centering an Tag: 67458
  - 18
    - 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: Centering an Tag: 67456
  - 19
    - 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: Centering an Tag: 67446
  - 20
    - 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: Centering an Tag: 67441
  - 21
    - 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: Centering an Tag: 67436
  - 22
    - 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: Centering an Tag: 67429
  - 23
    - 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: Centering an Tag: 67428
  - 24
    - 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: Centering an Tag: 67427
  - 25
    - 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: Centering an Tag: 67423

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.

Top

Re: Centering an by Charles

Charles
Tue May 03 14:07:43 CDT 2005

It can't be inline. By definition, that means it is treated as a text
character. You need to have it floating.
--
Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide

See also the MVP FAQ: http://www.mvps.org/word which is awesome!
--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.

"Hambster" <Hambster@discussions.microsoft.com> wrote in message
news:0F9A456D-0177-490B-826E-449C88B7F9CF@microsoft.com...
>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.
>

Top