Select all shape in a page

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - List of cross-references based on custom style Hi, I have been trying to find a way to make it easy for our authors to cross-reference to Appendix headings. We use custom styles called App Heading 1 to 5. These appear in the Cross-reference dialog box under the Reference Type: Numbered Items. But so too do all the other numbered items. I would like to be able to do any of the following: 1. Filter the 'For Which' list in the Cross-Reference dialog box to show only the numbered items I want; or 2. Use a custom form to show a filtered list. I have been successful with programatically changing the settings in the Cross-reference dialog box using the SendKeys method to. But don't know how to filter the Numbered Items list further. I have created forms before, and suspect that I might need to use an array and maybe the GetCrossReferenceItems method, but not sure how to filter the list to specific items. Your help would be appreciated. Cheers, Jennifer H Tag: Select all shape in a page Tag: 98999
  - 2
    - Copying Image Hi I'm working on a task that copying all image a doc to another. I got stuck when I meet textbox. All the image after the textbox actually go into the textbox !!! There different types of image in doc, inshape, shape (texbox, line) I found a sth that can exist from a textbox while the cusur is inside the txtbox but How do i if the cusur is inside the txtbox or not? Thinking I am using: for each shapes select the shape selection.cut anotherdoc.activite selection.paste originaldoc.activite next Tag: Select all shape in a page Tag: 98997
  - 3
    - Bulk conversion of .dot to .doc Hi there, I need to change about 100 word templates to documents. Is there a quick way to do this in bulk, rather than renaming each one? I am doing this because I want these documents to be firm precedents and I need them to be based on one of our templates (usinng templates and add-ins). Thanks Tag: Select all shape in a page Tag: 98996
  - 4
    - Copy Figure/image Hi all, I have a question on copying Fig/image from the doc. Now I'm able to copy all Fig/image in the doc to another doc by copy and paste the Shapes and InShapes obj in the activedocument by VBA However when there are drawings that contains couples of Shapes, (e.g 3 text boxes and 3 drawn arrows to represent the relationship, 6 shapes represent 1 image) I can still copy these shapes, but I cant put them in the right order or position. The image is meaningful when all shapes are in order and right position These what I have now: For i = 1 To ActiveDocument.Shapes.count '*** 2 process the image 'select the image again Windows(originalFileName).Activate ActiveDocument.Shapes(1).Select Selection.Cut Windows(figFileName).Activate Selection.Paste Selection.TypeParagraph Windows(originalFileName).Activate Next The logic is to loop all shapes in the doc, then copy and paste them in a new doc Any1 can give me suggestion?? Tag: Select all shape in a page Tag: 98993
  - 5
    - How to determine Table Indent I used to use Table.Rows.LeftIndent property to determine a table's indent value. If this is value was set to wdUndefined then usually Table.Rows(0).LeftIndent is the most appropriate since some documents tend to indent all other rows slightly to enhance the appearance. I have found that some tables have vertically merged cells so individual rows cannot be accessed. However, Word reports the correct value from the Table Properties menu. Is there a way to obtain the indent value in VBA under these conditions? (Table.Rows.Leftindent returns wdUndefined and the table has vertically merged cells) Tag: Select all shape in a page Tag: 98985
  - 6
    - vba to select multiple shapes on a drawing canvas I need to select multiple and specific shapes on a drawing canvas after they have been drawn automatically with programming (using vba). I have all the objects below defined in my code: Dim myDoc As Document Set myDoc = Application.ActiveDocument Dim myCanvas As Shape Set myCanvas = myDoc.Shapes(strCanvas) 'this is a variable supplied by the 'argument in the procedure call Dim shpCanvasShapes As CanvasShapes Set shpCanvasShapes = myCanvas.CanvasItems Dim myShape As Shape Set myShape = shpCanvasShapes.AddTextbox (or AddAnyOtherShape...........) After I've done this several times, I need to go back and "group" 5 shapes that have been drawn on the canvas programmatically. Please point me in the right direction to do this in Microsoft Word 2003. -- Thanks! Mona-ABE Tag: Select all shape in a page Tag: 98984
  - 7
    - Regarding Templates and Xml programming to Generate Word 207 I have multiple xml files of the same schema I want to pull the data to the Content controls. Now basically I want to define content controls and map them to a xml file. I can do the mapping and creation, but my problem is using using the same template on all the xml files I want to genearte a Single word document but each page representing data from each xml file following the template designed the mapping of xml to content controls designed in the template should be done programmatically. can somebody tell me how to approach this problem. Greatly appretiate any kind of help Tag: Select all shape in a page Tag: 98983
  - 8
    - How to get the record macro to repeat through entire document, EOF, etc. Hi all: I recorded the is macro to help me covert a file to a specific format. The following works but I need it to repeat through the entire file: Selection.Find.ClearFormatting With Selection.Find .Text = "cn=""*""" .Replacement.Text = "oldr" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Selection.copy Selection.EndKey Unit:=wdLine Selection.Find.ClearFormatting With Selection.Find .Text = "newrdn:" .Replacement.Text = "oldr" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.PasteAndFormat (wdPasteDefault) Repeat End Sub Thanks for all your help in advance! JB Tag: Select all shape in a page Tag: 98981
  - 9
    - Record Copy and Paste Macro, want to repeat throughout the document Hi All!, I am new to writing macros in Word/VBA. I have recorded a macro that I need to repeat through the end of the document. All help is appreciated. Jon Tag: Select all shape in a page Tag: 98979
  - 10
    - Case SearchRange I am trying to find all of my Heading styles and move the right indent. I can't get this macro to work. What am I doing wrong? Dim SearchRange As Range Set SearchRange = ActiveDocument.Range With SearchRange.Find While .Execute Select Case SearchRange.Style Case "Heading 1", "Heading 2", "Heading 3", "Heading 4", _ "Heading 5", "Heading 6", "Heading 7" SearchRange.ParagraphFormat.RightIndent = InchesToPoints(0.4) Case Else 'Do Nothing End Select Wend End With Tag: Select all shape in a page Tag: 98978
  - 11
    - Macro Button that don't print Hello, I would like to add Macro Buttons to my form so users can activate a macro in a protected form. Is there a way to make it so the macro button shows up on the computer but does not show up on the printed copy? Warm Regards, Summer Tag: Select all shape in a page Tag: 98977
  - 12
    - Textbox Changes Hello, This is only my second time posting here and I'm pretty new with this so bare with me. I have a userform which a user opens that contains different text boxes linked back to bookmarked - cells in a table. It works fine except when I track changes it highlights the whole entire bookmarked area and says it was deleted. When I "accept all changes" only deletes the words/characters I originaly deleted. The problems is when other users go in to review it looks like very thing is going to be deleted. The code im using for the textboxes is below and I've tried the that turns track changes on or off but it still does the same thing. Private Sub Summary1() Dim BMRange As Range Set BMRange = ActiveDocument.Bookmarks("SummaryOfBP").Range ROBP_Sum.Text = BMRange.Text End Sub Private Sub ROBP_Sum_Change() Dim BMRange As Range Set BMRange = ActiveDocument.Bookmarks("SummaryOfBP").Range BMRange.Text = ROBP_Sum.Text ActiveDocument.Bookmarks.Add "SummaryOfBP", BMRange ActiveDocument.TrackRevisions = True End Sub Thank you for your help, Ben Z. Tag: Select all shape in a page Tag: 98976
  - 13
    - Troubleshooting Auto Text Hi, I'm having a problem keeping my Auto Text attached to my form. Here is what I have done so far. 1. Created a document (doc.) Created the Auto Text and added the macro to insert the Auto Text. 2. Protected the .doc and saved it as a template (.dot). When I open the template and run the "insert Auto Text" macro (which also unprotects the form and re-protects it) I get an error message that the Auto Text cannot be located. I then: 3. Unprotect the template and transfer over the Auto Text (Tools, Templates & Add ins, Organizer, etc) 4. Re-protect the template. 5. When I go to save the template I can only select the "save as" option. And when I resave the template I lost the Auto Text and all my macros. Does anyone have any suggestions for what I am not doing properly? Warm Regards, SMOO Tag: Select all shape in a page Tag: 98975
  - 14
    - Checkbox control change bypassing ThisDocument.Saved Hello, I have created a one page "checklist" consisting of a few tables for a user to enter information, as well as four checkboxes from the Control Toolbar. I have my own FileSave and FileSaveAs macros to force the user into entering some information prior to saving the document. I also used Document_Close to bypass the generic "Do you want to save changes..." prompt. If ThisDocument.Saved is false my Yes/No/Cancel box appears. Yes - call my FileSave macro No - set ThisDocument.Saved to True (to bypass the built-in "Do you want to save changes..." prompt and exit) Cancel - send Esc All of this worked well until I added the checkboxes. If the user makes a change to a table cell (e.g. they enter their name), and tries to close the document without saving, my prompt appears. If they click No, the document closes (no further questions asked). If they click one of the checkboxes and try to close the document, my prompt appears. After clicking No, the built-in "Do you want to save changes..." appears even if ThisDocument.Saved is set to True by the prior "No" click. How do I prevent a change to the checkbox from causing Word to prompt the user to save with its own dialog box? Private Sub CheckBox1_Click() ThisDocument.Saved = False End Sub Private Sub Document_Close() ... ' Present the user with custom options if an attempt is made to close the ' document without saving If Not ThisDocument.Saved Then intMsgBoxResult = MsgBox(strFileName & " has changed. Save the change(s)?", _ vbYesNoCancel + vbQuestion, "Checklist") If intMsgBoxResult = 6 Then 'Yes ' Ensure that if the user choses to save the document that the Name field is populated If strName = "" Then intMsgBoxResult = MsgBox("Please enter a Name prior" _ & " to saving the document.", vbCritical, _ "Checklist") SendKeys "{ESC}" ThisDocument.Bookmarks("YourName").Select Else Functions.FileSave End If ElseIf intMsgBoxResult = 7 Then 'No ' Prevent Word's default "save changes" prompt from activating ThisDocument.Saved = True ElseIf intMsgBoxResult = 2 Then 'Cancel ' Word's default "save changes" prompt will become activated, but ' close immediately SendKeys "{ESC}" End If End If End Sub Thanks, Mike Tag: Select all shape in a page Tag: 98971
  - 15
    - quote marks in vba Hi all I am just having a bit of trouble adding a find and replace to my vba long story short I want to find and replace the word qoutemark with a " how can I add this " to vba without it throwing up an error or changing """ to """" thanks Craig Tag: Select all shape in a page Tag: 98967
  - 16
    - Word automation Hi! I'm using word automation from HTML to open Word and various documents. The first time (when I open the application) Word and the document shows. The second time (when Word is already open) it dosn't always show Word, instead the minimized icon just flickers shortly in the task bar. I'd like the document to show/get focus every time. Any ideas? Thx! /e Tag: Select all shape in a page Tag: 98965
  - 17
    - How do I validate whether a string is just a number or not? How do I validate whether a string is just a number or not? if val like... if val <> ... someone suggested an imaginary function called isnumber if isnumber(val) = true/false this didn't work, any suggestions -- Chris Hayes Still a beginner (only 12 years) Tag: Select all shape in a page Tag: 98957
  - 18
    - Excel Macro Question Hi All, I'm dealing with an Excel issue that's driving me crazy and I was hoping someone could help me out with. I'm working on a spreadsheet for tracking projects. I would like to create a macro that would show the number of days a project has been opened for everytime the spreadsheet is opened or viewed. If anyone can offer any assistance, I would greatly appreciate it! -Tommy Tag: Select all shape in a page Tag: 98955
  - 19
    - How to import data into a word document from sql server express 20 I have a lot of valueable test data (html actually) locked up in a sqlserver express 2005 database table. I want to access this in word. I was looking for a word macro, which will connect to the database, and do a sql select from a colum in a table and display the content in word. I've looked for a simple example, but found none. Can someone help with a bit of 'How To' sample code. Tag: Select all shape in a page Tag: 98950
  - 20
    - Assigning a Macro to object, textbox, etc. Is there a way to assign a macro to an object or text box or even hyperlink text within the body of Word? I'm used to simply adding a command button on the sheet in Excel, but does not seem to be an equivalent in word. I was excited when I found the drop down on the floating textbox toolbar that led to the customize dialog, but that turned out to be just for the toolbars. I could not see any way to attach it to the textbox. My macro turns hidden text on and off. Distributing the solution with a button embedded in the text would be more obvious than a toolbar button. Any help appreciated TIA ed Tag: Select all shape in a page Tag: 98949
  - 21
    - Prompt User for Text File In Excel I can use the following code to prompt a user to open a text file. With this code only text files are displayed in the file open window. FileOpenName = Application.GetOpenFilename("Text Files (*.txt),*.txt", 1, "Find Text File", , False) Is there a way to get the same result in a Word macro? TIA. -- Ken Hudson Tag: Select all shape in a page Tag: 98933
  - 22
    - SaveAs error When a macro I have tries via ActiveDocument.SaveAs FileName:=DocName I am getting a run-time error 5152, This is not a valid filename. I have checked the variable DocName and it is a perfectly valid filename. Any ideas on what's going on here? Thanks, Gerry Pyle Columbus, Ohio Tag: Select all shape in a page Tag: 98925
  - 23
    - Table Cell Targeting Hello, I'm new to creating userfroms in Word. I did fairly well when working with Excel-Userforms but now im having some trouble and would appreciate any help. My question is how do you link a textbox with a specific cell in a word Table? I need it so when the user pulls up the form in the textbox they see whatever text is in the cell, they can then edit or type and it will then a change event would change the cell's text to match. I figured out how to use bookmarks to refer to a specific location but I could not get it to load back in the textbox. I appreciate any help, I hope it is a simple line of code im missing. Ben Z. Tag: Select all shape in a page Tag: 98923
  - 24
    - Macro Output to OE6 Change 'From' Field Hello, This macro works well. It formats/parses a document and merge exports it as and Outlook Express 6 email ( *.eml ) The only problem is that no matter what is in the very first line, which is the 'From' field, the finished email always reverts to the default email account in the 'From' field. So the first line reads: From: "John Doe" <john@domain.com> But since the default account in OE6 is otherdomain.com , the From field reads: From: "John B. Doe" <john@otherdomain.com> Any way to force text into that From field? Thank you. Tag: Select all shape in a page Tag: 98920
  - 25
    - Word Addin Hi I want to create a button on my Word toolbar so when the user will press it, will perform a certain logic which I'm writing in c# .NET. For some reason that I don't know the button was created on every office application except in Word. At first I thought that maby the resaon is the button creation so I just tried to put a MessageBox in the OnStartupComplete and OnShutdownComplete and still no MessageBox appeared. Can somebody here help me? -- Go OT Tag: Select all shape in a page Tag: 98918
- Next
  - 1
    - Find and reset particular styles [Word 2003]: I am trying to figure out a way to programatically apply the ".font.reset" method to all text of particular document style. Ideally I would like to do it using the Range method of Find, but the exact syntax is eluding me. More detail: I have set up a number of checkboxes to show/hide certain portions of a long document based on styles (by modifying the ".font.hidden" property of certain styles). However, I am finding that the document can get out of whack, where certain sections seem to have the "hidden" property applied even though it is not default for the style (probably because I am also using the bookmark method to show/hide certain contiguous portions of the document). I want an easy way to quickly reset text in particular styles to the style default. The non programatic way would be to use the Style pull-down and "Select all X instances", then click the style name and select "Reapply Style" from the dialog box that comes up. Thanks. Tag: Select all shape in a page Tag: 98912
  - 2
    - Re: Word 2003 VB IDE & VB2005 As to experience or age or what other relevant capabilities you'd like to hear: Unix, PASCAL, TURBO PASCAL, C, COBOL, FORTRAN, CLIPPER That's my background. There was no OO programming in those days ... Guess I'm not *that* young after all, hey ... whatchasay? (can't believe that I'm getting so excited here ...) And considering the fact that I will support (and keep on supporting) my customers on legacy VB6 files, what's wrong with having a personal opinion that VB.NEt is a state-of-the-art development platform???? What's wrong with you ... :-) -- Krgrds, Perry System: Vista/Office Ultimate VS2005/VSTO2005 SE "Perry" <drumper@gmail.com> schreef in bericht news:... > And btw, I can't remember having responded to you. > Far all I know, I was politely responding to the OP, giving some > personal opinions without trying to ... hurt ... someone. > so it appears. > > Cool down, have a beer (or a dozen) and relax! > > -- > Krgrds, > Perry > > System: > Vista/Office Ultimate > VS2005/VSTO2005 SE > > > > "Perry" <drumper@gmail.com> schreef in bericht > news:37434F2B-9298-4A78-9878-930551D9F9D8@microsoft.com... >> Let's start with >>> You do them no favor, leading them on the blind path of betrayal for >>> your own personal comfort. >> >> Oops. What's yr problem? >> >>> What folly! Cliche as it may sound, "Just how old *are* you, anyway?" >> 43, I guess in yr eyes far too young or at least far younger than you >> are, I take it ... >> >> Well, then it's good that my customers do the judging on: >> - my experience >> - my apps (and they're taking it) >> >> What's yr problem Karl ?? >> You a grumpy old man? >> >> -- >> Krgrds, >> Perry >> >> System: >> Vista/Office Ultimate >> VS2005/VSTO2005 SE >> >> >> >> "Karl E. Peterson" <karl@mvps.org> schreef in bericht >> news:%23KUpqI7eHHA.3932@TK2MSFTNGP02.phx.gbl... >>> Perry <drumper@gmail.com> wrote: >>>> I hope VB.net IDE will ship with SR1 or SR2 of Office 2007. >>> >>> What would lead you to such a hope? I don't recall that sort of change >>> *ever* occuring in a service release. And, I'm fairly certain, at least >>> one more full version of Office will ship before it happens anyway. >>> >>>> I've noticed some apprehension among VBA expert colleagues here in >>>> Holland. >>> >>> Wise folks. Take heed. >>> >>>> I'm trying to convince them into investing in VB.net. My message is >>>> finally >>>> getting through to >>>> them but only after having showed them apps I developed and >>>> demonstrating >>>> the richness of the IDE. >>> >>> What folly! Cliche as it may sound, "Just how old *are* you, anyway?" >>> >>> What possible benefit do your *customers* derive from your rich and >>> presumably fulfilling experience? That's the same lame reasoning that >>> have led many paid-by-the-kloc coders and other nocturnal aviators to >>> recommend the platform -- selfishness. Nothing else can more >>> adequately describe this argument. Those who actually *own* the >>> applications you're writing would be well advised to take note of your >>> position. You do them no favor, leading them on the blind path of >>> betrayal for your own personal comfort. >>> -- >>> .NET: It's About Trust! >>> http://vfred.mvps.org >>> >> > Tag: Select all shape in a page Tag: 98908
  - 3
    - Customize the filename field code We are using Hummingbird Document Management. On our templates I am using the "filename" field code but it is taking the verbiage from the "name" field in HummingBird where I only want the number. Is there a way to customize the "filename" field code to delete text I don't want? Tag: Select all shape in a page Tag: 98905
  - 4
    - HOW DO I SET UP A "REMOVE ME FROM E-MAIL LIST" MESSAGE I would like to have saved message that says : "If you would like to be removed from this mailing list `click here." so I can put it on some of my e-mail messages. Tag: Select all shape in a page Tag: 98899
  - 5
    - Finding a String in Word I can use VBA in Excel reasonably well. This is my first foray into word macros and I am having trouble. I am developing a macro that allows the user to select a text file to open. Then I format the file to fit the width of one page. No problems there. Next I want to insert page breaks. To do that I need to loop through each row of the file (that's what I would do in Excel anyway) until I find the phrase "REPORT ID:" without the quotes. When I find that phrase, I then want to find the next string of characters following that phrase and set it equal to a variable called "RptName." At that point I can end the loop. (In Excel I would use an Exit For line of code.) I then use that variable in a search and replace function to insert a page break. The RptName starts one blank space after the phrase "REPORT ID:" and can vary in length. If I were using Excel, I would use the InStr function to isolate the variable name but don't know how to get there in word. Feel free to amend the code below to make it more compact also, if you have a moment. ------------------------- Option Explicit Dim RptName As String Sub ImportRSDReports() Application.ScreenUpdating = False Dialogs(wdDialogFileOpen).Show Selection.WholeStory With ActiveDocument.PageSetup .Orientation = wdOrientPortrait .TopMargin = InchesToPoints(1) .BottomMargin = InchesToPoints(1) .LeftMargin = InchesToPoints(0.2) .RightMargin = InchesToPoints(0.2) .PageWidth = InchesToPoints(8.5) .PageHeight = InchesToPoints(11) End With Selection.Font.Name = "Lucida Console" Selection.Font.Size = 7 Selection.HomeKey 'I need to find the report name here and set it = RptName. With WordApp.Selection.Find .Text = RptName .Replacement.Text = "^m" & RptName .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True .Execute Replace:=wdReplaceAll End With Application.ScreenUpdating = True End Sub -- Ken Hudson Tag: Select all shape in a page Tag: 98894
  - 6
    - VBA Duplexing won't reset I'm back again :( As previously suggested, I've used the code from http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=116 to control the duplex property of my printer. It will in fact turn on the duplex option as intended, but once it does so it won't turn it back off, even though it says it did (through message box responses). Here is the code from my Document_Open and _Close events: ======================================== Private lngOrigSetting As Long Private boolOptionChanged As Boolean Private Sub Document_Open() '* retrieve the original duplex setting lngOrigSetting = GetDuplex MsgBox "Retrieved: " & lngOrigSetting '* turn on duplex if it isn't already on If lngOrigSetting <> 2 Then SetDuplex 2 boolOptionChanged = True MsgBox "After setting, retrieved: " & GetDuplex Else boolOptionChanged = False MsgBox "Duplex already on" End If End Sub Private Sub Document_Close() Dim lngCurrSetting As Long If boolOptionChanged Then '* retrieve the current setting lngCurrSetting = GetDuplex MsgBox "Retrieved: " & lngCurrSetting '* if current setting <> original setting then reset it If lngCurrSetting <> lngOrigSetting Then MsgBox "Resetting to: " & lngOrigSetting SetDuplex lngOrigSetting MsgBox "After setting, retrieved: " & GetDuplex End If End If End Sub ======================================== So, when I open the document the message boxes tell me: Retrieved: 1 After setting, retrieved: 2 If I check the File/Print.../Properties the duplex option is on and it will print double sided. When I close the document the message boxes tell me: Retrieved: 2 Resetting to: 1 After setting, retrieved: 1 Now, if I reopen the document and close it I get the same messages, telling me it is turned on and back off, *BUT* if I open any other file (Word, Excel, whatever) it will still duplex print it. If I open the document it will give me the same series of messages...turned on...turned off. I tried it on all 3 of our networked printers (all 3 are RICOH Aficio 1075 PCL 6) and I get the same results on each printer. If I go to the printer window from the control panel and check the printer's properties it will say that duplex is off but when I reopen anything it will still print it duplexed. Any help would be greatly appreciated...I've been at this for a few days. Ultimately I'd like to use the above code for documents with more than 5 pages so that they automatically duplex print w/o any user interaction. Thanks in advance... Tag: Select all shape in a page Tag: 98886
  - 7
    - Space between footnote reference and footnote text Hello, Is there a way to change Word's behaviour so that a non-breaking space is inserted after the footnote reference (between reference and footnote description/text) instead of an ordinary space? Since the footnote format we use is justified the space between footnote reference and text sometimes varies (since word spaces in general varies with justified text). We don't want that. We're ok with varied word spacing in general, but don't want the space between the reference and the text to vary. I suspect I need to rewrite Footnotes.Add somehow but I don't know how to do it. Thanks in advance, Joakim Andersson Sweden Tag: Select all shape in a page Tag: 98881
  - 8
    - how do I autostart a word document on disc I'm trying to get a word document to load and run automatically from disc when the disc is inserted into the disck drive. can it be done? Tag: Select all shape in a page Tag: 98880
  - 9
    - Resize images in a word document Hello, I have a word document with a number of .RLE files already inserted from an oscilloscope that I would like to resize. Can anybody please give me some code that I could use that would cycle round the images one by one and reduce them to 50% of their starting size? Many thanks in advance. Gary Tag: Select all shape in a page Tag: 98878
  - 10
    - avoiding empty lines with bookmarks Hi, I'm new to office macroes, hence the perhaps unlogically workaround suggestion. I have an accounting program (Microsoft C5) that is able to print invoices to a word .dot template. The template has simple bookmarks where the invoice fields should go. But sometimes fields have empty values and the leave a blank line in the document. I would like to able to check for an empty value (or maybe the bookmark is not even created?), so that I can remove the empty line in the creation of the invoice document. How is this best done? I have tried to tie a macro to the .dot bookmark that checks the length of it, but it seems, it is not executed. Also when I look at the created document the bookmarks can't be found. So it seems I can only access the bookmarks in the .dot file? Any hints and help is very much appreciated. Best regards Simon K Tag: Select all shape in a page Tag: 98877
  - 11
    - Word Fax to 1 address of Outlook I wonder how difficult is to get an very useful macro listing or addin for the every day duty in small offices. The routine (exactly as outlook have foreseen for E-mails) is: - prepare a comunication for someone using MSWord (fax or letter); - find out his fax number and/or address and insert it in the fax or letter; - save in a draft folder; - print and show it to the boss for his ok; - open the file, make changes, save it as document not to be modified; - print and send it. I have a macro (working with a MS Accessdata base) in this way and I am not able to find somewere the listing for doing the same using outlook address book. Some one has already done something like this? Thank you! -- dilettante Tag: Select all shape in a page Tag: 98875
  - 12
    - Fax and letters MSWOrd-MSOutlook Dear Microsoft, I wonder how difficult is to get some useful macro listing or addin for the every day duty in small offices. The routine (exactly as outlook have foreseen for E-mails) is: - prepare a comunication for someone using MSWord (fax or letter); - find out his fax number and/or address and insert it in the fax or letter; - save in a draft folder; - print and show it to the boss for his ok; - open the file, make changes, save it as document not to be modified; - print and send it. I have a macro (working with a MS Accessdata base) in this way and I am not able to find somewere the listing for doing the same using outlook address book. Why not? -- dilettante ---------------- 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=a3a0432a-f65c-4243-8341-8310db86b008&dg=microsoft.public.word.vba.general Tag: Select all shape in a page Tag: 98874
  - 13
    - "Select Encoding that makes your document readable...?????" Hiya I am trying to open a document that I complied for my MSc. I want to copy and paste it into a powerpoint presentation for a job interview I have. For some reason everytime I open it it coes up with the above message and then asks me to select the 'Text Encoding' I have no idea what this means and when I do actually open it all I can see are little square boxes and no text! I tried inserting my Office CD to install something that was missing??? but it didn't work. Please help! Tag: Select all shape in a page Tag: 98873
  - 14
    - Form Initialization I want to populate my UserForm with the contents of a document. I would like to have something like what is below. Any ideas? TextBox1.Text = Bookmark "LastName" Tag: Select all shape in a page Tag: 98865
  - 15
    - Range start and end in Word footnotes In a Word macrop, I am used to doing Selection.Find, and then doing various things to the found text. I keep track of where I am with Selection.Start and Selection.end, and also such things as ActiveDocument.range(Selection.Start + 5, Selection.End - 1), etc. I now need to do lots of work with very long Footnotes. I can find things by using the Footnotes Story, but Selection.Start and End seem to refer to the main Story, not my selection in the Footnote story. Does this make sense? How can I do the following, but in the footnotes section: Selection.find.execute .... "my text" ActiveDocument.Range(selection.start +2, selection.end -2).select selection.font.italic = true Tag: Select all shape in a page Tag: 98850
  - 16
    - why am i getting "object required" error message I tried the following code to try to populate a listbox with spelling errors. I found the code on the web. I am getting an "object required" error at the " For n = 0 To UserForm1.ListBox1.ListCount - 1" line. using word 2003 Sub mySpelling() Dim mySpellingError Dim n As Long Dim myFlag As Boolean For Each mySpellingError In ActiveDocument.Range.SpellingErrors myFlag = False For n = 0 To UserForm1.ListBox1.ListCount - 1 If UserForm1.ListBox1.List(n) = mySpellingError.Text Then myFlag = True Next If myFlag = False Then UserForm1.ListBox1.AddItem mySpellingError.Text End If Next UserForm1.Show End Sub Thanks for any help Tag: Select all shape in a page Tag: 98849
  - 17
    - MID function no longer working in Word 2003 macro We have a number of macros we've developed over the years and some of them have suddenly quit working on some machines. All our machines run Windows XP and Office 2003, but we've narrowed the problem down to only those machines which were 'built fresh' with Office 2003-the others started with Office 2000 & were upgraded to 2003. By comparing the machines on which it works to those on which it doesn't it appears the problem is a missing reference to the Microsoft Common Controls 2 but the problem appears with the Mid function. I find it hard to believe that the Mid function comes from the Common Controls 2-it's simply too basic a function. I can believe that it's part of the move to .Net, which replaces the Mid function with a .Substring method, but so far I haven't found a Substring method/function/whatever in Word VBA. Am I missing something? Tag: Select all shape in a page Tag: 98844
  - 18
    - Writing automation clients for versions of Office including 2007 I have code that binds to the PIA for Word 2000 that I need to keep running. One of my clients wants to upgrade to 2007 and I would like to make the same code work for both. All of the kb articles I have read imply this should be OK as long as I use the earlier references, but they only discuss the versions from 97 to 2003. When I try to use the code with 2007 I get IEHExceptions. Am I missing some documentation? or can anyone advise me whether what I want to do is possible (and give me a clues as to how to do it!) Thanks Tag: Select all shape in a page Tag: 98843
  - 19
    - Change Word page numbers into foreign language numerals. I have a document in Word created with Ethiopian language fonts. I would like to change the page numbers into Ethiopian numerals. All the numbers in the manuscript are between 1-2000. I can build a look uo table. Is there a way to serach for page numbers and replace them with the character's in the look up table?? Tag: Select all shape in a page Tag: 98842
  - 20
    - subtracting one month from current month to display month name w/ From this forum, I was able to find a script that will subtract one month from the current date for a "date field" in my document. Script: {QUOTE} {SET Delay 4} {SET m{ =mod({ DATE \@ MM } -Delay +11,12) +1}} {SET y{=INT({ DATE \@yyyy} + (Delay + { DATE \@ M } -1) /12 }} "{ m }-{ y}" \@ "MMMM yyyy"} The script works, but I do not understand what exactly line 3, the "SET M" is doing at the part of "11,12) +1. I understand it takes current month and subtracts 4 months in my example, but then what is the +11,12) +1 doing? My second problem is, as in this example, I am subtracting four months, which should give me, December 2006 - instead, I get December 2007. The year does not calculate based on the month. Although, when I test adding 23 months, versus subtracting 4 months, then my year adjusts correctly; it's somewhere in the subtracting that I'm having an issue with. All I need/want is to subtract one month from the current month, but if that month is January, the year needs to adjust as well. Any clarification on this script would be appreciated! Diane Tag: Select all shape in a page Tag: 98840
  - 21
    - Word 2003 VB IDE & VB2005 I've noticed some syntax difference. What are the major differences between Visual Basic in VB2005 and VB in Office 2003? -- Chris Hayes Still a beginner (only 12 years) Tag: Select all shape in a page Tag: 98839
  - 22
    - Word 2007 board? For the most part, Word 2007 questions seem not to be answered on this vba board. Is there a specialty board for such questions? I have tried to find one, but haven't been successful. Thanks. Ed (in Virginia) Tag: Select all shape in a page Tag: 98836
  - 23
    - list box sorting I have a listbox in a user form that is populated by records from and ACCESS table How can I get that lisbox to display the records alphabetically? I want to be able to select an entry. What is the way to get the listbox to respond similarly to the fill in bars you often see with many form fields that you fill in that will show you the matching choices (eg the address bar in IE) Thank you in advance Tag: Select all shape in a page Tag: 98834
  - 24
    - Enter key doesn't work Hello All, I am unsure if this is the correct newsgroup for this question so I have cross-posted to vba.general and to application.errors. My apologies if that is inappropriate. I created a template in Word 2003 and when I type in the document, the Enter key doesn't do anything. At all. * I am using Word 2003 on a WinXP Pro SP2 system w/ 2 GB RAM. * I have not assigned any macros, AutoText, styles, or anything to the Enter key and I am not using KeyBinding in my VBA code. * I am intercepting some Word commands but I can't believe they have anything to do with it. I am intercepting: - FileSave - FileSaveAs - DecreaseIndent - IncreaseIndent - NextCell - PrevCell * I did use KeyBinding in a previous incarnation of the template before I remembered I could trap the ...Indent and ...Cell commands. That keybinding did play with the Enter key. But after I removed the Keybinding code, I took another precaution and started a new document and imported the "Word Command" code module, which was wholly separate from the "KeyBinding" module. * The Enter key works as expected in other documents. Does anyone have an idea of what might be wrong? This is really perplexing me and I am frustrated beyond measure. Any insight is most appreciated. Thanks, - Jeff Tag: Select all shape in a page Tag: 98822
  - 25
    - Using Word 2003 template toolbars in Word 2007 I have a large number of Word 2003 templates with VBA dialog boxes and their own toolbars. The dialog boxes work perfectly in Word 2007, but how about the toolbars? Do I need to add the commands I had on the 2003 onto the Quick Access 2007 toolbar for each template? Thanks... -- CR Tag: Select all shape in a page Tag: 98819

Hi all

I need some help from all of u^^.
How can I select all shape object in a page?

I know I can select all shapes in the document
by activedocument.shapes.selectall

Many thanks

Top

Re: Select all shape in a page by Stefan

Stefan
Fri Apr 13 03:26:30 CDT 2007

Try this line of code:

ActiveDocument.Bookmarks("\page").Range.ShapeRange.Select

Note, however, that depending on what you are trying to do, it might
not be necessary to select the shapes at all.

--
Stefan Blom
Microsoft Word MVP

"vbaNOOB" wrote in message
news:59B23A31-6660-4FE3-AF01-3451B3885402@microsoft.com...
> Hi all
>
> I need some help from all of u^^.
> How can I select all shape object in a page?
>
> I know I can select all shapes in the document
> by activedocument.shapes.selectall
>
> Many thanks

Top