Word 2007 backward compatibility - RoutingSlips

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Data file in word I'm asked to build a datafile in word which will contain over 500 records and each record contains 5 fields (name,last name, biography,date of hire, picture of employee) thoese information and pictures are somewhere in our network . Any suggestions for a best approach? Thanks a lot:) Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96417
  - 2
    - Document as Outlook Attachment Hello I wonder if anyone could help me with this. I haven't done much programming full stop, and even less in Word. What I want to do is send a Word document based on a template as an attachment in Outlook. However, I want the cc field to always have the same email address in it. In addition to this I would like the users to be able to choose who they want to send to from their address list, add any other cc addresses and then type what they want in the subject and body of the message. The only code I have found so far can either prompt for an Email address or hard code one and then send the message. I want to open the message so that they can edit it before sending. Can anyone help? I'd really appreciate that. The code I have so far is: Sub SendDocumentAsAttachment() Dim bStarted As Boolean Dim oOutlookApp As Outlook.Application Dim oItem As Outlook.MailItem On Error Resume Next If Len(ActiveDocument.Path) = 0 Then MsgBox "Document needs to be saved first" Exit Sub End If 'Get Outlook if it's running Set oOutlookApp = GetObject(, "Outlook.Application") 'Outlook wasn't running, start it from code If Err <> 0 Then Set oOutlookApp = CreateObject("Outlook.Application") bStarted = True End If 'Create a new mailitem Set oItem = oOutlookApp.CreateItem(olMailItem) With oItem 'Set the recipient for a copy .CC = "emailaddress@thisemail.com" 'Add the document as an attachment, you can use the .displayname property 'to set the description that's used in the message .Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue, _ DisplayName:="Document as attachment" .Send End With 'If we started Outlook from code, then close it If bStarted Then oOutlookApp.Quit End If 'Clean up Set oItem = Nothing Set oOutlookApp = Nothing End Sub Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96413
  - 3
    - How do I set up a document so it always prints manual feed? How do I set up a document so it always prints manual feed and doesn't change the settings for my other documents Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96407
  - 4
    - Make Styles and Formatting Task Pane Visible I want to put a line in the auto open macro that will turn on the styles & formatting task pane. This gets me the task pane: CommandBars("Task pane").Visible = True but I can't figure out how to specifically get the styles and formatting pane. Thank you. Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96404
  - 5
    - Creating a Preview Window in a User Form (Word 2002) Ideally, what I'd like to do is create a UserForm that displays a list of Word docs in a particular directory in a ComboBox. As the user selects different documents in the ComboBox, another Control on the form displays the text of the document, preferably in it's Rich Text Format - but even regular text would be okay. Exactly like how the preview window woks in the AutoText menu. Here's the catch though, I'd like to be able to read from the documents without actually opening them. Sort of like the .InsertFile method, but instead of putting the text into a document, I would want to put that text onto a Control. The text that needs to be previewed from each document WILL be encapsulated in a uniquely named BookMark though. I know how to put the File names into the ComboBox, the part I'm stuck on is being able to read the BookMakrked text from another file WITHOUT opening it (if that's even possible). I would also prefer not having to open a new document or insert anything into the document the UserForm is attached too. Word Version Info: Word 2002 (10.6818.6817) SP 3 Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96398
  - 6
    - Remove Text I'm using the following code to remove some text form fields plus a logo i have at the top of my template. ub RemoveHeader() ActiveDocument.FormFields("Text12").Delete ActiveDocument.FormFields("Text13").Delete ActiveDocument.FormFields("Text14").Delete ActiveDocument.FormFields("Text15").Delete ActiveDocument.FormFields("Text16").Delete ActiveDocument.FormFields("Text17").Delete ActiveDocument.FormFields("Text18").Delete ActiveDocument.Shapes(1).Delete I would like to modify the code so that I can delete two words located at the top of the document. The word "Telephone" and the word "Facsimile." I have tried using the following, however, it does not work: Selection.Find.Text = ("Telephone") Selection.Delete Can someone tell me what I'm doing wrong? thanks, Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96386
  - 7
    - Macro won't run on "read only" document. I have assigned a simple sorting macro to my word 2007 table. The document is save in a file that has the access locked down making it "read only" to anyone who does not have access to change the document. I have set the macro security to low, but still can't get them to run for anyone who does not have access to change. Is there a way to get around this problem? -- Thank you. Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96383
  - 8
    - Can't save Word Macro I have written the same two or three marcos about a dozen times and Word keeps dumping them. It is as if is not updating the Normal template or something. Any ideas? Thanks- Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96381
  - 9
    - combobox that can be seen every pages Hi, Lets say I have a word doc. which is 30 pages. Every pages has its subject. 1-I would like to create a combobox, which includes the headings of these pages. So when I clicked any item in the combo, macro will automatically send me the corresponding page (my intend is make a kind of table of content). 2-the important part is, like toolbars, this combo should stay at the same position while scrolling, or changin the pages. Have a good day. Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96378
  - 10
    - How to change fonts in a word macro In this macro I want the first char to be in Bookman Old Style16pt Bold, then the rest of each entry in Arial 10pt regular. Public Sub MAIN() Dim Td Dim Yr Dim Mn Dim Mon$ Dim WD Dim Count_ Dim L Dim Dlg As Object Dim Fname$ Dim Info$ Dim eoln Dim L_$ Dim NC ReDim ArrM__$(11) ArrM__$(0) = "January": ArrM__$(1) = "February": ArrM__$(2) = "March" ArrM__$(3) = "April": ArrM__$(4) = "May": ArrM__$(5) = "June" ArrM__$(6) = "July": ArrM__$(7) = "August": ArrM__$(8) = "September" ArrM__$(9) = "October": ArrM__$(10) = "November": ArrM__$(11) = "December" WordBasic.BeginDialog 320, 200, "Calendar Month to Do" WordBasic.Text 10, 24, 100, 18, "Month :" WordBasic.Text 10, 6, 100, 18, "Year :" WordBasic.ListBox 70, 24, 120, 150, ArrM__$(), "Month" WordBasic.TextBox 110, 6, 56, 18, "Year" WordBasic.OKButton 210, 20, 84, 21 WordBasic.CancelButton 210, 49, 84, 21 WordBasic.EndDialog Dim MonYear As Object: Set MonYear = WordBasic.CurValues.UserDialog Td = WordBasic.Today() Yr = WordBasic.Year(Td) Mn = WordBasic.Month(Td) + 1 'default month is next month If Mn >= 13 Then Mn = 1 Yr = Yr + 1 End If MonYear.Year = Str(Yr) MonYear.Month = Mn - 1 If WordBasic.Dialog.UserDialog(MonYear) Then Yr = WordBasic.Val(MonYear.Year) Mn = MonYear.Month + 1 Mon$ = UCase(ArrM__$(MonYear.Month)) WD = WordBasic.Weekday(WordBasic.DateSerial(Yr, Mn, 1)) WordBasic.WW7_EditGoTo Destination:="Header" WordBasic.Insert Mon$ WordBasic.WW7_EditGoTo Destination:="Table" If WD > 1 Then 'goto the start date of the month For Count_ = 1 To WD - 1 L = WordBasic.NextCell() Next Count_ End If Rem Defname$ = "D:\doc\hakol\diary" + Left$(mon$, 3) + ".doc" Rem Defname$ = "D:\doc\diary.doc" Rem Fname$ = InputBox$("Diary Information File", "Enter File Name", Defname$) Set Dlg = WordBasic.DialogRecord.FileOpen(False) Dlg.Name = "d:\doc\diary.doc" WordBasic.CurValues.FileOpen Dlg WordBasic.Dialog.FileOpen Dlg Fname$ = Dlg.Name WordBasic.FileOpen Name:=Fname$, ConfirmConversions:=0, ReadOnly:=1 WordBasic.EditSelectAll Info$ = WordBasic.[Selection$]() 'Info Has all the text WordBasic.FileClose 2 'don't save For Count_ = 1 To 31 'no more than 31 days will be processed eoln = InStr(Info$, Chr(13)) If eoln > 0 Then L_$ = WordBasic.[Left$](Info$, eoln) If eoln < Len(Info$) Then Info$ = Mid(Info$, eoln + 1) Else Info$ = " " End If Else L_$ = Info$ Info$ = " " End If WordBasic.Insert L_$ WordBasic.ParaUp WordBasic.WordRight 1, 1 WordBasic.FormatFont Font:="Bookman Old Style", Bold:=1, Points:=16 WordBasic.CharRight 0 WordBasic.InsertPara NC = WordBasic.NextCell() If NC = 0 Then ' reached the End of the table, Goto start WordBasic.StartOfColumn 0 WordBasic.StartOfRow 0 End If If Len(Info$) < 2 Then GoTo Closedown 'no more days Next Count_ Closedown: Close 1 End If End Sub Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96373
  - 11
    - repeating data not updating all fields, only first I've created a 13 page form which reuses several pieces of data throughout. I've created a userform interface to the form template to gather the data and disperse the data throughout the document after opening the template. I've created bookmarks to correspond to the data, using the [] method of creating bookmarks. In every subsequent reference to the bookmark (where I want the bookmark to expand the data to what's entered on the userform) I've used cross-references. However, consistently only the first field referenced gets updated. All of the other fields remain as the cross reference { REF BName \h }, rather than expanding to the name entered in the BName field on the userform. I've used Greg Maxey's code in the userform With ActiveDocument .Bookmarks("Text1").Range.InsertBefore TextBox1 .Bookmarks("Text2").Range.InsertBefore TextBox2 ... etc. End With UserForm1.Hide and used the autonew macro for the create button with UserForm1.Show to execute upon the click of the create button. I feel like I'm missing something huge here ... like asking it to update ALL fields throughout the document. This is my first template, my first userform, my first bookmark, and my first crossreference use. Any ideas? --Mary Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96370
  - 12
    - File open? Hi, I'm writing a macro that tests to see if an Excel file is currently open. I've tried the following with no luck: if Excel.application.workbooks(File).open = true then ... end if Any ideas? Thanks, Jille Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96365
  - 13
    - Select the whole of a word document to copy Hi, How do I select the whole of a word document so that I can copy it. What do I use to copy it as I have tried "wordapp.copy" -- Regards Bill Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96361
  - 14
    - Is there an html code for no right click I'm looking for an html code that will not allow visitors to your site, right click on a picture to copy it. I have found a couple on different websites, one of them completely wipes out the site, (luckily I had a backup) and the other says that the code written for no right click doesn't really work. That if you disable javascript or go back into the site with a different browser, say firefox, then you would still be able to copy the pictures. Does anyone know where I can get a code that can't be worked around to copy? Any info would be appreciated. Thank you. Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96352
  - 15
    - data form auto open in Word. How do I get a data form to automatically open when opening word document? Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96351
  - 16
    - Merging fields using Access Database. I use this function in an Access Report to Format Peoples names properly. I wish to merge a word letter with my Access query but I don't know where in Word I would place this code or something like it. Can I use a variable to hold my result, in place of the merge fields drop down list which just lists each field individually? Any help would be appreciated. Thanks, Carol Private Function Name_Concatenate() Dim strFullName As String If ComLaw = True Then strFullName = FName1 & " " & LName1 & " " & "and" & " " & FName2 & " " & LName2 Else If IsNull(FName2) Then strFullName = FName1 & " " & LName1 Else strFullName = FName1 & " and " & FName2 & " " & LName1 End If End If Name_Concatenate = strFullName End Function Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96350
  - 17
    - Save as opens explorer window. Hi, How do I save a document but allow the user to designate where it will be saved. Like when you save word it opens the explorer window. -- Regards Bill Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96349
  - 18
    - Open a refernce doc , open another doc and copy contebts to refern Hi, so far I have the following. 'check whether to create a new word instance or use an existing session WordRunning = IsWordRunning If WordRunning Then Set WordApp = GetObject(, "Word.Application") Else Set WordApp = New Word.Application End If 'open up the reference document Set WordDoc = WordApp.Documents.Open("C:\Database\25KgPowder\Base.doc") ' With WordApp .Visible = True .WindowState = wdWindowStateNormal End With 'check on the access form which controls are active 'open that section document 'copy it 'and then paste it after the book mark in the reference document If (Me![Section11]) = True Then 'do something Set WordDoc = WordApp.Documents.Open("C:\Database\25KgPowder\Section11.doc") 'copy contents for pasting into original document '??????????????????? 'close the "Section11" document as not required anymore '????????????????????????????? 'paste this section to the template 'bring original document to focus 'locate the bookmark and paste section11 Set WordDoc = WordApp.Documents.Open("C:\Database\25KgPowder\Base.doc") Set WordDoc = WordApp.ActiveDocument Set WordRng = WordDoc.GoTo(what:=wdGoToBookmark, NAME:="frmBookmark") 'paste Else 'do something End If The if statements continue for another 10 conditions. I am automating from access. I open an existing document and if the access controls on the form are true, add sections to the existing document. How do I copy the second documents contents and add it to the original document after the bookmark in the original document? Then I want to close the second documnets session and move on tto add another section if the next access control is true. -- Regards Bill Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96348
  - 19
    - How to find any of a set of characters in a string Hello, How do I determine if one or more of a set of characters occurs in a given string? For example, I need to determine if d, D, or r occurs in the current .range object. I was hoping for something like: InStr(1, .range, "[aDr]") but that doesn't work. Any help would be appreciated! Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96341
  - 20
    - no spacing between cells in table Working in Word 2003. If you format a table using the Word menus/dialogs, you have the option of not allowing spacing between cells. (Table | Table Properties. On the Table tab, Options then remove checkmark in front of "Allow spacing between cells.") When I try to accomplish the same thing via VBA, it doesn't really remove the spacing, it sets the spacing to 0. Spacing at 0 doesn't look quite the same as "Allow spacing = False." Both of the following give the same results. 0 spacing, but "Allow spacing between cells" is still true (checked) in the Options dialogbox -- and the table looks a wee bit funny. Selection.Tables(1).Spacing = 0 And Selection.Tables(1).Spacing = False I can't find anything re. how to set between-cell spacing other than the Spacing property. Is there a way I can use VBA to essentially say "Allow spacing between cells = False"? Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96338
  - 21
    - Automatic Text Hi there, basically I am an estate agent and when a property has been sold I have to type a memorandum of sale with the sellers name, address, solicitors and the same for a buyer. Then I have to type 4 letters to go with that. Could anyone tell me how I could type the Sellers address on the memorandum of sale and it would automatically update the address on the corresponding letter. To save my self so much time. Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96332
  - 22
    - problem with colour I am a bit of a novice so the answer may be simple! When I print a document, whenever I use the colour red it comes out yellow. I have checked the ink status which is okay. Hope you can help!!! Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96330
  - 23
    - database error This is my macro code...: Sub ToDB() Dim csConn, rsRecSet As Recordset, strSQL As String, strUser As String strSQL = "INSERT INTO jbDBTable (CO, CREATED) VALUES ('xyz', date())" Set csConn = CreateObject("adodb.connection") csConn.ConnectionString = "data source=C:\Data\0\jbDB.mdb; Provider=Microsoft.Jet.OLEDB.4.0;" Set rsRecSet = CreateObject("adodb.recordset") rsRecSet.Open strSQL, csConn csConn.Close End Sub ...and this is my error with bugs: Run-time error: '3709': The connection cannot be used to perform this operation. It is either closed or invalid in this context. Any answers? -- Bryan Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96329
  - 24
    - How do I restore my Word program's blank document template? Somehow when I pull up Word it now shows a document I didn't think I had saved. Every time I hit the create new, this document comes up so I must have somehow saved the document as the blank template. How do I restore it to the default blank document? Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96318
  - 25
    - Forcing execution of an event.... Hy there, I wrote a very simple macro to automate printing of a document and as the "Manual Duplex" printing option isn't working properly, I'd like to handle with VBA everything. So what I did is to issue 2 Application.PrintOut calls, separated by a msgbox call. Unfortunatelly, the print doesn't begin until the sub is exited.... Any clue on how to execute immediately the first Application.PrintOut call? Thanks Here's the code: Sub PrintDuplex() Call SetPrinterProperty(DM_PAPERSIZE, DMPAPER_A3) Call SetPrinterProperty(DM_PRINTQUALITY, 1200) ActivePrinter = "\\ACRUX\Kyocera Mita KM-1650 (KPDL)" Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:="4,1", PageType:= _ wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _ True, PrintToFile:=False, PrintZoomColumn:=2, PrintZoomRow:=1, _ PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0 MsgBox "Turn paper sheet and press Ok when ready", vbOKOnly Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:="2,3", PageType:= _ wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _ True, PrintToFile:=False, PrintZoomColumn:=2, PrintZoomRow:=1, _ PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0 End Sub Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96307
- Next
  - 1
    - Getting propertys of the Normal style I'm trying to navigate through the Word object model to find the properties of the Normal style used for that document - particularly the font name and font size. I'm trying to do this for a large number of documents, so instead of doing it manually, I want to navigate the object model from a VB application. But I haven't found a way to get to the Normal style and it's properties yet. Does anyone know how to do this? Thanks, Dave P. Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96305
  - 2
    - Variable Footers I need a way to create different footers for every page. Let's say the document is 5 pages long. The user is prompted as to how to start the numbering series. They will answer with a number only, say 3. The sequence follows such that page 1's footer displays 3 right-aligned. Page 2's footer would display 3A to left-aligned. Page 3's footer would display 3B right-aligned, and so goes the series for every page with incrementing letters and alternating alignments. Since I can't seem to control footers on an individual basis programmatically without sections interfering, what should I do? A couple things I've thought of are 1) making each page its own section, 2) inserting a docvariable field into each footer, then updating the field value with the correct page number. I am an experienced .NET/VBA developer but working with Word's sections is not intuitive for me. I will process documents that are generated out of my control, and I expect these documents to have one section for the entire document. I would greatly appreciate a recommended programmatic approach. Feel free to be very technical. Thanks ! Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96299
  - 3
    - Macro to change font Does any know if there is a macro that will change the font in all the tables in a document? Thanks, Mickey Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96296
  - 4
    - distributing a Word form with macros I've developed a protected form in Word that will be distributed as a Doc file to multiple users in an organization. It uses macros to validate user entries and perform calculations. The subroutines and userforms are in the Doc file itself, because I was told that asking folks to use a Dot to create instances of the form would be too complicated. Now I'm told that asking users to set Macro Security Level on Medium and click "Enable macros" when opening the doc is too confusing (despite clear directions complete with screen caps -- sigh). The people who will be maintaining the form insist that there is a way to ensure the macros will work regardless of the user's security settings -- and without saying "Enable macros." They say they have seen it, they just don't know how to do it. I've tried to figure out how this is possible, and have tried to find info on the web, but to no avail. Is there a way to distribute the form to multiple users, ensuring the macros will run regardless of their security settings and without requiring them to click "Enable macros"? Most users will be running Word 2002 under Windows XP or XP SP2. Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96289
  - 5
    - Placing a control on a document Hi all, I am new to Word VBA but have extensive experience with it in Excel and Access. I am sure this is simple: I need to put a control on the document, as opposed to the user's tool bar, and then give it a click or double click event, in order to start things rolling. Ideally I would want a command button but that does not seem to be an option, at least, I don't see it. What is the best way to proceed? Thanx, -plh -- Where are we going and why am I in this HAND BASKET?? Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96285
  - 6
    - string comparator Hi, I have two arrays of name and I would like to check if some of the names are present in both of the arrays. But the names can be mispelled, or differently entered in the two arrays, for example: -Alberto Parreira , albeerto parteira -alberto parreira , alberto juan fernandez parreira -alberto-juan parreira , alberto juuan parreira Do you have an idea of a function that could tell me: those two strings represents (at for example 80% sure) the same person ? Cheers Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96283
  - 7
    - *bold, _italic, <>heading in Word/VB I tend to write a lot of documents in text-only format, with the following conventions: This_is_italic This*is*bold [This is a footnote] <This is a chapter heading> In the case of bold/italic, I'd want any token that has _ or * in it. Normally, I don't do documents that are so long as to make manual conversion feasible. A year ago, when I had a non-profitable emergency, Klaus Linke was so kind as to write me a macro to do the most cumbersom conversion, for footnotes. The convention I use for bold and italic, I understand is much more problematic. The chapter headings I would need so I can have a table of contents. Right now I have no immediate need for this, but I am considering returning to that non-profitable undertaking. Incidentally, I used to use SCRIBE where the conventions were @i(This is italic) @b(This is bold) @foot(This is a footnote) @chap(This is chapter heading) @u(This is underline) @sec(This is a chapter heading) Furthermore, I've programmed in a number of languages (FORTRAN, ALGOL, PASCAL, C) so I don;t mind doing a little bit of coding so long as I understood (how to find) all the MS Word variable names. I'm attaching whatever VB macros I do have, and comments others have offered. If I seem a bit confused it is from the short attention span I have been able to afford to direct towards this project. .Text = "*\_*" .Text = "*\**" \*[!^13]@\* Sub Foot() Dim myRange As Range Dim boolFound As Boolean Dim myFootnote As Footnote Set myRange = ActiveDocument.Content Do myRange.Find.ClearFormatting With myRange.Find .Text = "\[*\]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchWildcards = True End With myRange.Find.Execute boolFound = myRange.Find.Found If boolFound Then myRange.Characters.Last.Delete myRange.Characters.First.Delete myRange.Cut Set myFootnote = ActiveDocument.Content.Footnotes.Add( _ Range:=myRange) myFootnote.Range.PasteAndFormat (wdPasteDefault) Set myRange = ActiveDocument.Content myRange.Collapse (wdCollapseStart) Else Exit Sub End If Loop End Sub Sub jb() ' ' Macro written by Maniac on May 16, 2006 ' Reformats text between two strings ' ' Specify search phrases (start / end) A$ = "abc" B$ = "def" ' Start at the beginning and reset all ' search formatting options ActiveDocument.Range(0).Select Selection.Find.ClearFormatting ' Loop repeats until first phrase not found While Selection.Find.Execute(A$) StartReformat = Selection.End Selection.MoveRight Selection.Find.Execute (B$) StopReformat = Selection.Start Selection.MoveRight ' Add formatting to the following section ' Options include: ' .Bold, .Italic, .Underline, .StrikeThrough (true / false) ' .Size = font size ' .Font.Color = wdColorGreen (Red, Blue, etc... see help) With ActiveDocument.Range(StartReformat, StopReformat) .Bold = True .Font.Color = wdColorBlue End With Wend End Sub - = - Vasos Panagiotopoulos, Columbia'81+, Reagan, Mozart, Pindus, BioStrategist http://ourworld.compuserve.com/homepages/vjp2/vasos.htm ---{Nothing herein constitutes advice. Everything fully disclaimed.}--- [Homeland Security means private firearms not lazy obstructive guards] [Urb sprawl confounds terror] [Remorse begets zeal] [Windows is for Bimbos] Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96282
  - 8
    - capture keydown/press events in a user form I'm trying set up a user form where I can assign shortcut keys to various subroutines. I know how to do the keybinding (assign the shortcut keys) once I get the keys in the text box -- but am totally stumped on how to "capture" the keystrokes the user might enter in the form's text boxes. Unfortunately I'm pretty much a newbie with programming in general and VBA in particular... Am working on trying to get something like the following to work, but even if I can get this running right, it seems I'd need to specify every possible key combo. I'm sure that can't be the most reasonable approach... I'd really appreciate any advice or help you can offer! Private Sub Texbox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) ' If the 'Alt' and 'E' keys are pressed, If e.Alt And e.KeyCode = Keys.e Then Texbox1.Value = "Alt + E" Else Texbox1.Value = "nope" End If End Sub Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96279
  - 9
    - startup templates at runtime Hello, I need to be able to copy a template in startup folder to allow another menu for a group of users. Whereas when i copied there, its showing new menu to ALL users. I am trying to find a way of loading a menu for a group of users - without having to setup different templates startup locations ... is there a way to load startup template at run-time ? or update "Templates And Addins" setting from a code ? Can anyone help ? kanwal Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96275
  - 10
    - Table of Contents Some years ago, I saw a macro that would remove excess TOC bookmarks from a Word document. Does anyone still have a copy of this? I would like to run it over some old and venerable documents that seem to have grown excessively Cheers Bob Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96273
  - 11
    - Can't record changing picture border Has something changed in Word 2007 macro recording. I highlight a picture in my document, start recording a macro, select Format and change the border, and stop recording. When I examine the macro in vba, it's totally empty. Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96271
  - 12
    - Documents convert to Hebrew after some manipulations Hi! I am experiencing a strange problem: I have an application that inserts some information in front of the main body of each document. It works great. However, documents from one particular user convert to Hebrew after my inserts. The text my application inserts changes from right to left. In the original document the language is set to English US. In the resulting document the language is Hebrew. I have no clue where to start my troubleshooting efforts. Is it on my side? Does the user have to change something on his? What can I do programmatically to eliminate this problem? Any ideas/suggestions/samples are greatly appreciated. Many thanks in advance, --Michael Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96270
  - 13
    - Import AutoCAD DWGS I have table of two columns and unknown rows. I would like to insert all the AutoCAD files located in FOLDER XYZ into the word document. However, ecah of the drawing files should be in a "cell" of the talbe. Then it needs to be scaled and that is it, off to the next folder. Any idea's: Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96268
  - 14
    - Word 2007 VBA can not set options.print... properties Has anyone else run into this (and found a reason/fix)? On one of our five test dev machines, Word 2007 has a weird bug. Start a blank new doc, go into the VBA macro editing area, add the line: options.printbackground=false (on our machine, you can use ANY of the print options for this test - printcomments, printbackgrounds, printdraft, etc.). they ALL fail... but the non-print options are fine.) If I try to run the macro, it breaks on that line with a runtime 4120 error bad parameter. I've changed it to options.printbackground=true - still no go. I've tried changing the default printer and restarting word. Still no go. Curiously, I can do a: msgbox options.printbackground and it will accurately read the value of the printbackground hckecbox from the word options, advanced, printing section. so... on this ONE machine, I can READ but not SET the options for printing programmatically. Any ideas??? Corrupt install??? Read only xml ini file or some other obscure weirdness???? Regards. Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96267
  - 15
    - MACRO to convert to hex I need to convert ascii characters (including unicode) to 4 digit hexadecimal representation. The alt+x (Selection.ToggleCharacterCode) functionality works for a single character, but I am trying to write a macro to convert every character in the file. I can't figure out how to parse through the document... any suggestions? Stephanie Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96266
  - 16
    - Forms and Table of Contents I'm a wannabe expert at forms. I have a pre-made document for engineers describing equipment which has a table of contents, places to insert images, Excel tables, and an Appendix added at the end (which will auto-fill into the toc). I want to have part of this document automated so the people filling in the forms can't make a lot of changes. How can I create a text fill-in within the table of contents? I've tried and because it is already a type of field I think that I probably can't do this. Also, I have several places in the document that once you type in the first text fill-in I want it to populate that information in about 10 different other places in the document automatically, including the TOC and header or footer. Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96256
  - 17
    - Deleting Blank Rows in a Word Table I have a word Template with several Tables on it. I need code which will examine all tables in the Template and do the following: 1. Delete any empty rows in each table 2. Delete any Table having Only a Header Row How would I go about writing this code? Thanks in advance for any help with this request. Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96251
  - 18
    - Date changes on memo when opened I'm having a problem. When I save a memo, then re-open at a later date, Word automatically changes the date in the memo to the current date. Anyone know how to fix this? Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96248
  - 19
    - Macro Question for Word 2003 I have been trying to record a macro that will delete a Frame and the Text Form field inside of it. I only want just that data which is at the top of the Page to be deleted for people who already have pre-printed letterheads. However, the Macro I record only works if my cursor is next to that information. Can someone please point me to a macro that can delete just that information at the top of the document regardless of the position of my cursor? Thanks, Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96245
  - 20
    - What happens to "Keep Text Only" I am a news hound and "collect" news stories and culinary-related news items. Usually, when I copy an article and paste it into Word 2000 (I am using Windows XP Home), I get a tiny "clipboard" icon (at the bottom of the document) which gives me the option to "Keep Text Only." But sometimes, the "icon" doesn't show up, and I am then at a loss on how to "Keep Text Only." Why does the icon sometimes NOT show up, and is there a way to either "force" the icon to show, or to "Save Text Only" without the icon? Thanks in advance. Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96241
  - 21
    - importing .rtf files into excel I have a rtf file which i need to automatically import using a macro in excel. But i am lost in finding a solution to this. I would like to open Excel and run the macro this would open the rtf in word and cut the information and paste it into excel. is this possible ? Thanks Dan Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96240
  - 22
    - Programming Compatibility Hello Word: XP (Rollout of 2003 soon) OS: Windows XP I want to set a documents Tools|Options|Compatibility to what ever version of Word a user is running. Example: if Application.version = "10.0" then activedocument.compatibility = 2002 elseif Application.version = "11.0" activedocument.compatibility = 2003 elseif Application.version = "12.0" activedocument.compatibility = 2007 end if Word's Recorder produces many lines for each version. I just want to simplify the process. Any assistance would be greatly appreciated. Regards Mike Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96234
  - 23
    - Copy table column from multiple word files into excel I have hundreds of word files in a folder. Each file contains a table with two columns. I want to copy the right most column from each word file into 1 excel worksheet, but opening each word file individually and copy/pasting will take me forever. Does anyone have code the will open each file in the folder, copy the column and past it into the next availble column in an excel worksheet? Thanks, ml Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96230
  - 24
    - Summing fields in a selection Hi All, I have this document where some data is imported automatically in to some fields. The document could look like this: Chairs 100 Sofa 200 Travel 100 Sum 400 Since it is in fields the Calculation Tool does not seem to work. (unexpected end of formula!) Can anyone help me with a macro that would sum the fields in a selection made with Alt So if I select (Via Alt) the numbers 100, 200, 100 then i could get a sum in a msgbox? Thanks in advance, Best regards, Bondi Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96229
  - 25
    - Using Internet Explorer to post data for a form inside word Hello, I'd like in a button in a Word 2000 document to submit data by posting an http request and catch the error which could happen (404 / 501 etc...) As I'm using NTLM authentification I need to use InternetExplorer object. So the idea is to do that kind of code : << Private Sub CreateDocButton_Click() Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "about:blank" IE.Visible = False Dim PostData() As Byte PostData = StrConv("<pouet>", vbUnicode) IE.Navigate "http://www.pouet.com/" & "document", Null, Null, PostData, Null End Sub Private Sub IE_NavigateError( _ pDisp, _ URL, _ TargetFrameName, _ StatusCode, _ Cancel) MsgBox ("pDisp : " & pDisp) MsgBox ("URL : " & URL) MsgBox ("TargetFrameName : " & TargetFrameName) MsgBox ("StatusCode : " & StatusCode) MsgBox ("Cancel : " & Cancel) End Sub Private Sub IE_NavigateComplete( _ ByVal pDisp As Object, _ ByVal URL As Variant) MsgBox ("navig complete") End Sub >> The fact is that neither IE_NavigateComplete nor IE_NavigateError are called even if the url is correct or not. I've tried to use Public WithEvents IE As SHDocVw.WebBrowser & Public WithEvents IE As SHDocVw.InternetExplorer however Word says me that : "the procedure declaration doesn't match the event description or the procedure of the same name". Do you know a way to correct this problem ? Regards, 75Blured. Tag: Word 2007 backward compatibility - RoutingSlips Tag: 96227

This code is failing at the HasRoutingSlip
Sub HasRoutingSlip()

If ActiveDocument.HasRoutingSlip = True Then

End If

End Sub

Error 5892
Method 'HasRoutingSlip' of object '_Document' failed

I realize this is a hidden property in Word 2007, but shouldn't it
still work? The code fails regardless if the Activedocument has a
routing slip or not.

Top

Re: Word 2007 backward compatibility - RoutingSlips by Doug

Doug
Tue Feb 06 01:52:23 CST 2007

.HasRoutingSlip no longer appears when you type ActiveDocument. in the VBE

What does appear though is a HasMailer item, but I cannot find any
information about it anywhere. Maybe it will do what you are after.
--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

<r2715seattle@gmail.com> wrote in message
news:1170718010.359779.63630@j27g2000cwj.googlegroups.com...
> This code is failing at the HasRoutingSlip
> Sub HasRoutingSlip()
>
> If ActiveDocument.HasRoutingSlip = True Then
>
> End If
>
> End Sub
>
> Error 5892
> Method 'HasRoutingSlip' of object '_Document' failed
>
> I realize this is a hidden property in Word 2007, but shouldn't it
> still work? The code fails regardless if the Activedocument has a
> routing slip or not.
>

Top

Re: Word 2007 backward compatibility - RoutingSlips by RobertSeattle

RobertSeattle
Tue Feb 06 09:35:05 CST 2007

Has Mailer is for the Mac. HasRoutingSlip is one of dozens of
properties/methods that are now deemed "hidden" in the Word 2007
object model. meaning it won't show up in the autocomplete. The
peculiar thing is that Microsoft didn't update the help files since my
example is basically right out of the help files - but it doesn't work
anymore. This property "should" still work for backward compatability
in my opinion - perhaps it is so little used that it didn't get
reported as a bug in the Office 2007 betas. Maybe they'll fix this in
a service pack.

Top