Document map zoom

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - macro to copy clipboard to autocorrect entry, Word 2003 I type out medical reports on a lot of different patients, some of whom have odd spellings for their names. I have been putting the name for each report into an autocorrect entry. For example, if the patient's name is "Throckmorton," I might assign that to "uu." Then instead of typing "Throckmorton" and maybe forgetting the spelling, I just type "uu." I do this for each report, always using the same autocorrect shortcut "uu." What I would like to do is to be able to highlight or select the name when it first appears and then run a macro which automatically assign it to "uu." I have experimented with the macro recorder by highlighting the name, hitting <ctrl><C>, and then opening up the autocorrect dialog box and substituting the old patient name with the new one, but Word seems to put in the literal. There has to be some way of getting Word to paste the clipboard contents into autocorrect, perhaps via some kind of variable assignment. Regards, Alan Tag: Document map zoom Tag: 109492
  - 2
    - DropDown Field 25 Item Limit I have been meaning to post a Tips page on this subject on my web page for quite a while and so I dusted it off and finished it up today. I departed somewhat from the Microsoft KB Article 19856 suggestion to use a ComboBox and I used a ListBox instead because a formfield dropdown doesn't function like a combobox. The method lets you use one userform and on entry macro for as many textbox fields you want to use as for dropdown entry. It also sets the value in the dropdown to match the current value in the textfield. As always, I appreciate in constructive comments or suggestions for improvement. http://gregmaxey.mvps.org/FormField_UserForm_ListBox.htm -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: Document map zoom Tag: 109487
  - 3
    - calendar in word I have created a calendar for my form, however it works well in a new document and not in my form. I belive it has something to do wtih the fact that my form has several protected areas - the areaas where the date is to go gives me a VB system error message &H80004005 (-2147467259) Unspecified error. I think this is realted to the areas or sections that are protected although none of the sections where the calendar is to populate is protected. How can I get this to work properly? I want the to place the macro where all the dates are to go on this form. -- Thanks,, Kim Tag: Document map zoom Tag: 109486
  - 4
    - Textboxes and their influence on the behaviour of ranges Hi, I want to be able to parse the contents of a document, and possibly change a single word in the text. Unfortunately inserting textboxes seem to have strange effects on the document. If I have a document that has this content: "Hello world" I get this: ActiveDocument.Range.Text is "Hello world" ActiveDocument.Range(7, 12).Text is "world" However, if I add a Text box in front of "Hello world", so the document looks like this: --- BOX Goodbye world BOX_END Hello world --- I get this: ActiveDocument.Range.Text is "\x01\x15Hello world" ActiveDocument.Range(7, 12).Text is " \\* " ActiveDocument.Range(9, 14).Text is "\\* ME" What gives? Sincerely, Anders S. Johansen Tag: Document map zoom Tag: 109477
  - 5
    - Help with 'Save' command in VBA Hello, I am trying to create a macro that saves a file after the file has been printed to avoid the prompt which typically appears onscreen which asks the user if they want to save the current open file. As you know, Word will prompt you to save a file that you had already saved if you attempt to close the file after it has been printed. Printing the file seems to store printer data into the file which of course would technically count as a changed file, subsequently prompting the user to save changes. I try to avoid this message prompt with the â??ActiveDocument.Saveâ?? command at the last line of the subroutine below. The problem is that it does not seem to work. I am still prompted to save anyway even when saving after programmatically invoking the print command. Can someone shed some light on this? Thanks! If ActiveDocument.Saved = True Then Application.PrintOut Filename:="", Range:=wdPrintAllDocument, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _ ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _ False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _ PrintZoomPaperHeight:=0 ActiveDocument.Save End If Ellen Tag: Document map zoom Tag: 109475
  - 6
    - Bullets and Numbering disabled in Section? Hi, My name is Anthony, and I'm currently using Windows XP Service Pack 2. I'm also using Word 2003. I created a document with Text form fields in section 1. I created a continuous section break to create section 2, and I also clicked Tools|Protect Document|Check marked, "Allow only this type of editing in the document:"| Chose "Filling in forms" from the pull down menu| Clicked "Select sections"|and unchecked Section 2 regarding Protection. Afterwards, I clicked "Yes, Start Enforcing Protection". Now section 1 is uneditable, and users can only enter fields in the text form fields. I also see Formatting options such as Bullets and Numbering grayed out which I expect. But when I got to section 2, I don't get all the formatting options from the command menu (File|Edit|View|Insert|Format|etc.) which I expected. However, Bullets and Numbering is available from the Standard toolbar and it works fine on Section 2. What's causing this issue, and how can I get back the formatting items that are grayed in Section 2? Thanks again, Anthony Catbagan Tag: Document map zoom Tag: 109474
  - 7
    - Going to specific cells in a table I would like to know how I can program into a macro the ability for the cursor to goto a specifc cell in a table. For example cell F5. Thank you Tag: Document map zoom Tag: 109469
  - 8
    - SetMyTemplate problem I have a some autotexts stored in a template which is currently saved in c:\word startup\firm.dot. Some of the currently language is: If frmreplacepi.txtattyinitials = "agq" Then Set MyTemplate = Templates("c:\word startup\firm.dot") MyTemplate.AutoTextEntries("/agqpi").Insert _ Where:=Selection.Range, RichText:=True I need to change the location of the firm.dot to C:\Documents and Settings\USERNAME\Application Data\Microsoft\Word\startup, and then adjust the language to read: If frmreplacepi.txtattyinitials = "agq" Then Set MyTemplate = Templates("C:\Documents and Settings\USERNAME\Application Data\Microsoft\Word\startup\firm.dot") MyTemplate.AutoTextEntries("/agqpi").Insert _ Where:=Selection.Range, RichText:=True What do I use instead of "username" in this path so the macro works on every pc, WITHOUT having to add the name of each person to this path? I've tried %username%, etc, but no luck so far. THANKS SO MUCH! Kurt Tag: Document map zoom Tag: 109467
  - 9
    - Accessing Global Template Objects Hi, how can i access classes, autotext entries, etc. of a global template (like normal.dot) within a macro. public methods are accessible through the Application.Run "MyGlobalTemplate.MyMethod" command. Is it necessary to add a method for each class, autotext, etc. that return the object? thanks, Matthias Tag: Document map zoom Tag: 109461
  - 10
    - Macros for All users in a lab I have a macro that will automatically change the settings in the envelope wizard for our current setup of printers. the printer with envelops is different than the default printer used in the lab. Anyway, How can i set it up so when a users logs into the computer and uses word, it automatically puts this macro into action? I created a template with the macro in it so it also changes the font automatically but when i put it in the startup folder, the security settings don't allow the macro to run. How can i get around this? I can change security on the computers for macros, but then need to know how to change it for every user on the computer and new users to who sign in as well. Thanks Tag: Document map zoom Tag: 109450
  - 11
    - Script Editor Disabled in particular Word document Word 2003 SP2, Windows XP. I have a user who is able to open Microsoft Script Editor in any but one document. In this document the functionality is not there. She added a button to her toolbar to launch it and you can see that it is dimmed. Naturally she NEEDS to use it with this document, as it contains protection she wants to remove. I have tested this on my own PCs and have verified that it is supposed to work. Why is this not working in this particular document, and what can we do to get it working for her? Tag: Document map zoom Tag: 109447
  - 12
    - copying and pasting whilst preserving formatting i have microsoft 2002 i was trying to copy a blog article whilst preserving its formatting, into word. instead of showing the blog article as is, with its coloured text and its template, word simply copies the text and the pictures from the article without formatting. are there any options to allow word to allow the formatting to show? or am i just using an old version which doesnt support the preservation of formatting? thanks Tag: Document map zoom Tag: 109445
  - 13
    - form in if i'd like to do the following: { IF (bookmark1}="OTHER" "{FORMTEXT}" "{FORMDROPDOWN}"} i know the condition is being evaluated but in fill in mode the cursor skips the location. do i have a syntax problem Tag: Document map zoom Tag: 109442
  - 14
    - If not found ignore Hello from Steved Please how can I tell the below code that if "L [0-9 ]" is not found ignore and goto "R [0-9 ]" Thankyou. Selection.Find.ClearFormatting With Selection.Find .Text = "L [0-9 ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Selection.MoveLeft Unit:=wdCharacter, Count:=3, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=2 Selection.EndKey Unit:=wdLine Selection.TypeText Text:=", " Selection.Delete Unit:=wdCharacter, Count:=1 Selection.HomeKey Unit:=wdLine Selection.Find.ClearFormatting With Selection.Find .Text = "R [0-9 ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Selection.MoveLeft Unit:=wdCharacter, Count:=3, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=2 Selection.EndKey Unit:=wdLine Selection.TypeText Text:=", " Selection.Delete Unit:=wdCharacter, Count:=1 Selection.HomeKey Unit:=wdLine Tag: Document map zoom Tag: 109441
  - 15
    - Tables Selective Merge Hi I am trying to write a macro for a word problem. I have 2 tables like below: Heading 1 Heading 1 Name Abcdef abcdef abcdef abcdef Data Data Data Data 1 Xyz Juhdfjjknb 2 Def Dijwhcjco 3 Hgt Jascnjxnksjnx 4 Wxy Osuhchc ciwjqsdioj I have to take the first 2 rows of the first table and merge it with the first 3 columns of the second table in a new table with 5 columns. This is tobe repeated 400 times with tables with similar data. The final table should be like below: Heading 2 Heading 2 Heading 2 Heading 2 Heading 2 Name Abcdef abcdef abcdef abcdef 1 Xyz Juhdfjjknb 2 Def Dijwhcjco 3 Hgt Jascnjxnksjnx 4 Wxy Osuhchc Any ideas about how this could be done? Giri Tag: Document map zoom Tag: 109439
  - 16
    - One ComboBox for several Bookmarks In my form (table style) I keep re-creating my dropdown list for each bookmark how can I use the same drop down list for each different bookmark Tag: Document map zoom Tag: 109437
  - 17
    - Formfields in Tables (VBA) I am trying to find out the required VBA commands to establish whether specific formfields are present in specific table cells or any command that identifies whether any cell contains a formfield. Any help please? Tag: Document map zoom Tag: 109432
  - 18
    - Get currently selected item in InsertCrossReference dialog Hi, is it possible to retrieve the reference number of the item that is currently selected in the InsertCrossReference dialog? If I use the macro recorder, the created macro contains the reference number to the item that was selected at the time of the macro creation (e.g. ReferenceItem:="34"). But I need a macro where I can get a reference to the currently selected item in the list. Furthermore is there a method that returns the reference number of an item? The GetCrossReferenceItems method only returns a text string containing the number and description of an item. thanks, iS Tag: Document map zoom Tag: 109431
  - 19
    - combobox list I'm a rookie at VBA How do I show the symbol " within a drop down list the symbol is a double quote I'm trying to show it as inches without typing the word inch after each number Tag: Document map zoom Tag: 109429
  - 20
    - Form field depencency and documents with equal contents Hi, I've been making a form. I've got three questions. 1. Is it possible to let a form field use a kind of if statement? For instance: there is a checkbox and a drop-down form field. Can the text in a text form field be filled in automatically (from a predescribes set) based on the input of the checkbox and the drop-down field? Lets stay is the checkbox is checked and the drop down says <1000 then the text box displays "A". If the checkbox is checked and the drop-down states 'not interesting', the text field displays "Z". When the Checkbox is unckecked and the drop-down states 'not interesting', the text field displays "10". Or a different example. Thet text field 3 equals the higher number of text1 and text2. i.e. text1=2, text2=10 => text3=10 2. Is it possible to let the form field content depend on input in previous form text fields. For instance if 'form text field 1' is filled in with a number over 1000 the rest of the form (text, fields, contents of dropdown doxes) is different from when a number below 1000 would have been entered. 3. Is it possible insert the data from a form text field into the template of a different document. And to do this repeatedly between different source and destination files by users with only basic skills in using windows (for instance older people who use computers on daily basis, but do not have the flexibility to use advanced functions). For instance: I've got a form 1 with intake information and a form 2 used for further processing. Now I get information about several projects for which I fil in separate form 1's. Once these are filled in I pass them on to a second person who wants to fill out a form 2 per project. Some data is the same, I want the second person to be able to extract the data from form 1 into form 2. It would be great if ou could help me along. I'm a intermediate computer user. I use 'advanced functions' of word and know a little about programming. Currently using Word 2003. Thanks, Maarten Tag: Document map zoom Tag: 109428
  - 21
    - Opening a document in SharePoint from Word Hi When Microsoft word 2007 is opened and the Open dialog box is opened, a user can navigate to My Network Places. From there, a SharePoint site can be selected and the appropraite document library can be opened to view files. A file can then be selected and opened. In my document library I have a created a new column. Can I change the view of this document library (seen from Microsoft Words open dialog) to include my custom column? Lucy Tag: Document map zoom Tag: 109426
  - 22
    - Dynamic display of data from SQL to excel Hi All, I am very new to VB and macros. I need your help in completing the tasks assigned to me. Please help. I have been reading many webpages and groups in vain. The following are the tasks i need to accomplish 1. In excel open a userform with a combo box that lists the tables in the DB. (If it is not possible I dont mind hardcoding it) 2. When user selects a table, another combo should select a list of columns in the table. 3. The user should be able to multiselect the columns and then the values should populate in excel. If there is anyother way to do this, pls give your inputs. Thanks Priya Tag: Document map zoom Tag: 109425
  - 23
    - can I put in a timezone toggle button if I want to toggle all times in a document between eastern and central, can I put in a button at the top of a word document to do that? Tag: Document map zoom Tag: 109414
  - 24
    - I open word 2007 document the ribbon will not apear I have Office Home and Student 2007 I open adocument the ribbon is not above to use the document also says non-commerical use Tag: Document map zoom Tag: 109413
  - 25
    - How to determine if a .doc file is already open? Hello, friends, This may not belong here, but I could not find the proper group. In c#.net 2005, we use office interop to start different .doc files. The source code are as the follows: object fileName = fullPathFileName; object newTemplate = false; object docType = 0; object isVisible = true; if (wordApp != null && wordApp.Documents != null) { Microsoft.Office.Interop.Word.Document doc = wordApp.Documents.Add(ref fileName, ref newTemplate, ref docType, ref isVisible); wordApp.Visible = true; } The above worked for the first document opening without problem. What we want to do is: We need to check if the next given fullFileName is already open. If yes, we just bring it to front, rather than to open a duplicate one. Otherwise, open it using above code. The source code for this checking are like the follows: if (wordApp != null) { foreach (Microsoft.Office.Interop.Word.Document doc in wordApp.Documents) { if (String.Compare(doc.FullName, fullPathFileName, true) == 0) { doc.Activate(); return; } } } However, we found the doc.FullName had the value Document1 for the first open .doc file, therefore, failed the checking, and always caused a previously given fullFileName being opened again. Any ideas, reference paper or snippet? Thanks a lot! Tag: Document map zoom Tag: 109410
- Next
  - 1
    - how to add and validate a field in word from an application? Tag: Document map zoom Tag: 109406
  - 2
    - UserForm field fill-in issue I have a combobox on a UserForm that I want to use to "push" data to the various fields. The problem I see is that no matter what I use- the AfterUpdate event or the OnChange event, the fields don't get filled until the enduser clicks on the form. How can I get the form to paint itself automatically without this user input? Here's the comboboxx code: Private Sub PTNAME_AfterUpdate() [DOB] = [PTNAME].Column(2) [FNAME] = [PTNAME].Column(1) [ACCT] = [PTNAME].Column(3) [LNAME] = [PTNAME].Column(0) End Sub Any ideas? Tag: Document map zoom Tag: 109401
  - 3
    - Reference Template in a UNC location Hi there, i cannot create a reference to a common template stored at a UNC location (\\srv\common\template.dot), instead the reference points to a temporary template on my local disk (...ApplicationData\.... \~w...dot). if i copy the same template to a local folder and reference it afterwards the reference works. is this a bug or a security issue? thanks, matthias Tag: Document map zoom Tag: 109400
  - 4
    - old macro on a new office version hallo i am using a macro in windows 98, word 97. now that i am trying to instal it on winxp, word2003/2007 it doesnt work exactly like it used to. does somebody knows if i should add a parameter to the macro in order to make work properly on the higher version. -- michal Tag: Document map zoom Tag: 109399
  - 5
    - Retaining orientation and page numbers when inserting docs Hello, I am trying to insert a.doc into b.doc using InsertFile and to retain the page orientation in a.doc. I also have page numbering in a header in b.doc. If I just InsertFile I lose the orientation. If I insert a SectionBreakContinuous and then InsertFile I keep the orientation but my Page numbers restart from 1. Is there a way to keep the Orientation and not restart page numbering? Thanks Tag: Document map zoom Tag: 109397
  - 6
    - Repeating macro I am trying to learn how to write macros in Word 2007, and I need to develop a macro that will repeat a certain task a specified number of times. To initialize the macro, the user will enter in the number of times the task will be repeated, so the macro will keep performing the job until the specified limit has been reached. Tag: Document map zoom Tag: 109393
  - 7
    - Inserted picture not showing up in Word My mum wants to put a picture into a word document for her journal. She says that this has never been a problem before, but this time the picture is not showing up. Its just a huge blank box. However it's showing in 'Print Preview'. I tried to insert the same picture on my laptop into word and it worked first time. So I emailed the word document to her, so she could copy if from my word document to hers, but the picture still didn't show up! Does anyone know how to get it show up? It must be a setting in her copy of Word right?! Tag: Document map zoom Tag: 109392
  - 8
    - Sound Recorder OLE I have two solutions possible for a problem. Left clicking on a Sound Recorder OLE linked to a wav file results in the sound clip playing but no way to stop it. Annoying if the clip is long and just a "peek" is needed. If you right click you can chose Edit Sound Object and the Sound Recorder window opens, but you have to click on play to start it. 1) Can the default OLE verb be changed so "2" so the Recorder is opened rather than the sound just being played? Or is athere a command to stop the Playback available in VBA? or 2) Is there a VBA Method available (after opening the Soud Recorder with a macro) to start/stop the playback, i.e. manipulate the buttons on the Object programmatically? Thanks. Tag: Document map zoom Tag: 109385
  - 9
    - Automate rich-email sending (no attachment) I have a word document with some images in Word 2003. If I manually select File->Sent To->Mail recipient I am able to send the word document as formated, as an email message. I need a way to automate this from VBA macro. Tag: Document map zoom Tag: 109384
  - 10
    - Attached Templates Because I have all our templates on the server, I end up having trouble replacing the templates after editing because of "open files". I'd like to start detaching templates from ordinary documents upon opening. I have a global macro file that gets saved in everyone's startup folder. I'd like to add the following vba to this file: With ActiveDocument .UpdateStylesOnOpen = False .AttachedTemplate = "" End With so that whatever document gets open, if there is an attached template, it would get removed. Eventually (I hope), none of my templates will show up under "open files" on the network. Would this work? What would I call the macro to have it automatically run no matter what document gets open? Tks . . . Brenda Tag: Document map zoom Tag: 109383
  - 11
    - Menu Bar Option disappears Using Office XP 2003 Created a template for use with our documents containing macros and numbering styles etc which I put on as Menu bar drop down options. Have also just upgraded to Workshare Professional 5.0. from Deltaview 2.9 Now, when you save a document which uses this template, the Menu bar option disappears. The only way to get it back is either close out of the document or go to tools, templates & add ins and either attach the same template again or tick or untick the automatically update styles box. Any ideas what is causing it? Tag: Document map zoom Tag: 109382
  - 12
    - find string and move file to folder Using WinXP Pro, Office 2003 Pro I would like to look at each .doc in a folder, search it for a particular string, if the string is present, move it to a different folder, else, look at the next one until the files in the folder have all been searched for the string and separated. Does anyone out there in MVPland know of an example online that I can look at and adapt to my particular needs? Thanks for the nudge Joanne Tag: Document map zoom Tag: 109380
  - 13
    - Shortcut to C# code via VBA in Word 2007? Hello, I asked this question in the Visual Studio Tools for Office forum, and was told it could not be done without VBA code. How do I create a keyboard shortcut (defined by myself or overriding a built-in one) to call some c# code? I already have a command button for my code on the Ribbon, and an item in the context menu, but what I really need is a keyboard shortcut. I am a c#/.net developer unfamiliar with VBA, so please include all steps in getting the necessary VBA code to work... Tag: Document map zoom Tag: 109379
  - 14
    - macro to remove password doesn't work Hi All, I recorded a macro in Word to remove a password in a word file but it doesn't work. The document has a password for editing, however when I open the doc it asks me to type the password. In the macro I open the Options Tab and remove the password then I close the options window and save the file. The password is then empty. However when I close the file and open it again I still have to type the password and when I look at the Option window again the password is back. Is this magic or what? When I don't use a macro but do everything by hand the password is gone and it is saved correctly. Marco Tag: Document map zoom Tag: 109374
  - 15
    - Drop downs won't retain entry macros: Drop downs won't retain entry macros: I created a rather large template for our staff to use when filling in information about "xyz"... When they click the first parent drop down the corresponding information populates in the child drop down. Some what like a cascading drop down. My problem is the staff filled out all of the information for the first section of the year on "xyz". It is now the second section and time to reopen the "xyz" file and update the information. When they click the parent drop down that contains the populate vb macro to populate the child drop down the "run macro on entry" is empty. I can go in and choose what macro i want but i would have to do this with over 100 questions. Shouldn't word have retained the macros in the drop downs? every one of them are empty. Therefore when I click the first Parent drop down, the second one is blank unless i go in and select the macro that was originally in that field. I'd be happy to send a copy of the document to anyone that would be interested in giving me a hand... ANY help would be greatly appreciated Tag: Document map zoom Tag: 109349
  - 16
    - message box issues I am working on a form "A" and i have created a Message box that has 'yes' and 'No' options. if i click on the yes button then it should open up a new form "B" for me,But if i click on the No option then it should let me stay in the same form that i have been working previsiouly. I have this code here.Can anyone help me as to what i am missing here. Private Sub Form_Open(Cancel As Integer) If IsNull(CompanyID) Or IsNull(InspectorID) Then MsgBox "", vbYesNo + vbCritical + vbDefaultButton2 If Response = vbYes Then DoCmd.OpenForm "", , , , acFormAdd Else If Response = vbNo then Exit Sub End if Tag: Document map zoom Tag: 109347
  - 17
    - Resolution 922849 -- older version of word documents Our tech support downloaded the service pack onto one of my coworkers computers. She received the "this file was created in an earlier version of word... cannot be opened due to a registry policy setting" erro. After searching for help on this site I found the link for the resolution -- 922849. But I cannot find the DWORD value the form is reffering to. I found her file under: HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\11.0\Word\Security but there was no FileOpenBlock subkey. Could it be located elsewhere? Is there something else I should be looking for? I would like to resolve the issue for her for EVERY document as opposed to just accepting this particular document. She's going to be receiving a lot of older files via e-mail that were created in an older version of word. Tag: Document map zoom Tag: 109345
  - 18
    - Object variable or With block variable not set error in macro Ok usually I would just take my time and try to figure this out on my own but time is short and I willing admit I am way out of my league. I found the code on gmayor.com for splitting mail merges. The macro works to the extent that it will give the first record but then errors out with Object variable or With block variable not set. Does anyone see what is obviously wrong here? And a side question is how do I get these to be saved as .pdf files? Thanks in advance for any help Sub SplitMergeLetter() ' splitter Macro modified to save individual letters with ' information from data source. The filename data must be added to ' the top of the merge letter - see web article. Selection.EndKey Unit:=wdStory Letters = Selection.Information(wdActiveEndSectionNumber) Selection.HomeKey Unit:=wdStory Counter = 1 While Counter < Letters Application.ScreenUpdating = False With Selection .HomeKey Unit:=wdStory .EndKey Unit:=wdLine, Extend:=wdExtend .MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend End With sName = Selection Docname = "F:\Test\" & sName & ".doc" ActiveDocument.Sections.First.Range.Cut Documents.Add With Selection .Paste .HomeKey Unit:=wdStory .MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend .Delete End With ActiveDocument.SaveAs FileName:=Docname, _ FileFormat:=wdFormatDocument ActiveWindow.Close Counter = Counter + 1 Application.ScreenUpdating = True Wend End Sub Tag: Document map zoom Tag: 109344
  - 19
    - VBS Script to remove protection from all word docs in directories We have literally tens of thousands of documents that are protected and some are even password protected. I am trying to find a way to remove the protection from multiple files without having to open every one and skip those with a password. Any help is appreciated. -- Regards, Samson Tag: Document map zoom Tag: 109343
  - 20
    - Thanks a lot hi everyone, thanks a lot for all your code. i've tried helmut's and it worked like a charm, i'll try the others once i've got some time for this again. cheers, thomas Tag: Document map zoom Tag: 109340
  - 21
    - digital certificate having a bit of a problem with '07 not allowing macros to run on one of my computers, which I created on another. Both openings are from trusted locations, but non-generating computer (the one that is trying to run it, not the one that created it). More specifically, the macro will run, but it won't let me edit it. any ideas? -- Boris Tag: Document map zoom Tag: 109328
  - 22
    - what character is enter I have the following code: Sub quitarenter() For cnt1 = 1 To characters.count char = Selection.Characters(cnt1).Text If char = Chr(10) Then Characters(cnt1) = Chr(13) End If Next. what I want to do is: I'm importing from acrobat reader to word, a lot of (change of line) characters appear in between sentences, what I want to do is to delete those (change of line) (chr 10) to space and continuation of the sentence. Remarks, I ran the code and it did not work, frist of all the "characterscount" after the "for" didnt work, and then the code never found chr(10) (change of line) any suggestions?? TIA Tag: Document map zoom Tag: 109319
  - 23
    - Save Selection with VBA? This is a multi-part message in MIME format. ------=_NextPart_000_009A_01C855FB.DF21B6A0 Content-Type: text/plain; charset="Windows-1252" Content-Transfer-Encoding: quoted-printable Hi, can someone tell me if there is a Save Selection VBA (whatever is = highlighted) and Save As give doc name way to do this? One can print = selection but can one save selection with VBA? Many thanks... ------=_NextPart_000_009A_01C855FB.DF21B6A0 Content-Type: text/html; charset="Windows-1252" 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=3Dwindows-1252"> <META content=3D"MSHTML 6.00.6000.16587" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>Hi, can someone tell me = if there is a=20 Save Selection VBA (whatever is highlighted) and Save As give doc = name way=20 to do this? One can print selection but can one save selection with = VBA? Many thanks...</FONT></DIV></BODY></HTML> ------=_NextPart_000_009A_01C855FB.DF21B6A0-- Tag: Document map zoom Tag: 109310
  - 24
    - Limitation of a form field of 255 Characters Hi!! I am trying to use a macro to fill in a field in a form with a paragraph I copy from an EXCEL cell. The problem is that this paragrph has more than 255 characters so it doesn't seem to work directly. I have seen some article that sugest to use the clipboard as a way to overcome this problem. Then, the code I have programmed is as follows: Range("T"&fila) returns the paragraph from the EXCEL cell. wdFF is defined as Object in wordFile.Formfields. rngx is defined as Range If Len(Range("T" & fila)) > 255 Then wdFF.Result = Left$(Range("T" & fila), 250) MyDataObj.SetText "" MyDataObj.PutInClipboard MyDataObj.SetText Mid$(Range("T" & fila), 256) MyDataObj.PutInClipboard Set rngx = wdFF.Range rngx.GoTo rngx.Select With wordFile.Selection .Collapse wdCollapseEnd .Paste End With Else wdFF.Result = Range("T" & fila) End If The macro works fine until it arrives to the sentence "Set rngx = wdFF.Range" where it stops and says that formats are not compatible (rngx is defined as a range). Any idea of how to solve the problems with the code? Does the rest of the code for the macro look fine? Tag: Document map zoom Tag: 109296
  - 25
    - Dropdown Button Values Hi, I have done a form and I have included a dropdown button that allows to select among 6 different values that are predetermined. Now, I would like to have a second dropdown button that allows to select among 4 different values, but the issue is that those four values depends on the value previously selected in the button 1. In summary, Dropdown1 values (1, 2,3,4,5,6) and for Dropdown2 values as follow: - Dropdown1 =1 then a,b,c,d -Dropdown1=2 then e,f,g,h ..... and so on. Any idea of how to do this? Should I use a macro that fills in the values for the second dropdown button once the value for the first one is selected? Any suggestion on how this code should look like? Tag: Document map zoom Tag: 109295

n Word 2007, I can zoom the document map by pressing SHIFT-F6 and then using
the zoom bar at the bottom of the Word window.

However, the macro recorder will not record this action.
How can the action be done programmatically, i.e. in VBA ?

Top

Re: Document map zoom by Stefan

Stefan
Wed Jan 23 03:52:27 PST 2008

There might be a better way, but this macro seems to work:

Sub ZoomDocMap()
On Error GoTo errhandler
SendKeys "{ESC}", True
ActiveDocument.ActiveWindow.DocumentMap = True
SendKeys "+{F6}", True
ActiveWindow.View.Zoom = 200 'Specify the desired zoom
SendKeys "{ESC}", True

errhandler:
Exit Sub

End Sub

--
Stefan Blom
Microsoft Word MVP

"PeterH" wrote in message
news:9F536677-9385-4D26-9DC1-414A888F465D@microsoft.com...
>n Word 2007, I can zoom the document map by pressing SHIFT-F6 and then
>using
> the zoom bar at the bottom of the Word window.
>
> However, the macro recorder will not record this action.
> How can the action be done programmatically, i.e. in VBA ?
>

Top