Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Cox and Telus will not act unless they have a police file number so you may as well flood microsoft.public.word.vba.general my home Usenet group. have a nice day.Me I am nearing about TrueCrype -- Allahdad binds the institute in support of hers and effectively places. -- Michael Yardley Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103383
  - 2
    - select information to print in template I am trying to determine if this is possible in Word 2000 and if so, figure out which tool would best support this type of automation. Basically I am trying to create a word template that can be used as a form letter where the user would select particular verbiage depending on the terms of the transaction. The letter starts and ends in basic paragraph format but the body is separated into sections. For example: Dear Joe Schmoe, We are pleased to offer you the following. Line: $<<Insert field>> Term: << field>> months End of Term Options: ??This is where I am lost?? Additional Conditions: ???Another spot like above??? There are many variable End of Term Options/Additional Conditions etc. The users would like to select just one option (which can be almost a paragraph long in some cases) and insert it into this proper space for printing as if it had been typed. I have been looking at using Forms drop-downs, Pop-up lists and Active X controls but seem to be going in circles. I am quite new at VB and generally depend on recording a macro and tweeking it for specific usage. Any direction would be GREATLY appreciated. Sorry so long winded. Thank you for your time! Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103379
  - 3
    - Problems with Command Button with VBA code Hello, I created a form in Word. It is saved as a read-only template and it's protected so that users can only change the form fields. There is a command button called "E-Mail Document" that users can click and the document is e-mailed to a specific address. The form is meant to be used over and over again. I've tested the form repeatedly and the control button always works. However, my users are reporting that it is not working. When I go into the forms they are sending back, the VBA code is gone. How is this happening?? My code is below. Thank you! --------------------------------------------------------------------------------------------- Private Sub EMailDocument_Click() 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 Set oOutlookApp = GetObject(, "Outlook.Application") If Err <> 0 Then Set oOutlookApp = CreateObject("Outlook.Application") bStarted = True End If Set oItem = oOutlookApp.CreateItem(olMailItem) With oItem .To = "REDACTED" .Subject = "Site Visit Document" '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 bStarted Then oOutlookApp.Quit End If Set oItem = Nothing Set oOutlookApp = Nothing End Sub Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103378
  - 4
    - Fill combo boxes from Access tables I have a Word template (dot) with a UserForm that opens and has several combo boxes for the user to make selections. It then uses these selections to build a letter. I've also created an Access database with tables and fields to populate the various combo boxes on the UserForm in Word. I've managed to figure out how to do this with 1 combo box (cboHOName) on the form and 1 table/field from Access but now want to populate the other combo boxes as well from the other tables inside the same Access database. For example in tblOffices I have an Address1 and Address2 field with corresponding combo boxes (cboAddress1 & cboAddress2) on the Word UserForm and tblTitles with the EETitle field and combo box cboEETitle. I'm just not sure how to modify my code to incorporate these as well. Here's what I have, please help! Private Sub UserForm_Initialize() Dim dbDatabase As Database Dim rsTemplates As Recordset Dim i As Integer Dim aResults() 'Activates the Database connection. Set dbDatabase = OpenDatabase("K:\AcsData\ROTemplatesDB.mdb") 'Opens the Offices table. Set rsROTemplates = dbDatabase.OpenRecordset("tblOffices", dbOpenSnapshot) i = 0 With rsROTemplates 'Populate the combobox with the values in the cboHOName field. Do Until .EOF cboHOName.AddItem (i) cboHOName.Column(0, i) = .Fields("HOName") .MoveNext i = i + 1 Loop End With End Sub Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103377
  - 5
    - Encoding I am trying to learn about encoding, and have read a lot about it. However, what I can't find much on is some very practical issues that would explain a lot (at least to me). I figured that the programmers' forum would be the place to ask this simple question. It may seem naive, but I do not think it is. I have Word 2000 (Office 2000). When I open a new document, what is it that determines the encoding of that document? And, a follow-up. I can open rtf files with a text editor and see the encoding (or code page, a term I understand some people do not like). But how do I see the same for a .doc file? Believe me, this means a lot to me. Thanks for your serious answer. Hans L Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103375
  - 6
    - Medical Form I am creating a form in Word and would like to have two fields First one Provider Type Second one Specialty.... The only problem is that I would like the Second one to filter down to options that are available by the choice selected in the first one. Basically if you choose Physician in the first drop down menu I would like it to only supply the Specialties for the Physicians... meaning it would take out Hospital or Ambulatory and leave Pediatrics or Internal Med. Any suggestions?? Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103373
  - 7
    - How do you disable updating of links through VBA Hi, I am working on an app which (among other things) is resonsible for making a PDF of Word docs. That PDF part is fine. The problem is, the Word docs often contains OLE links for which the source is not available. When my print routine opens these docs, the links are converted to "Error! Not a valid link." in the same way that happens when I choose 'Update Links' when opening a Word doc that contains missing links, through Word. My printing routine is very simple. I just call Open(), PutActivePrinter() amd PrintOut(). My question is: is there any way to open a word doc in VBA and force Word to explicitly not update links? Thx in advance. Peter Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103372
  - 8
    - Access 2007 ->Word 2007->Access 2007 I posted this in the Access section but have not had much luck. I would like from a form in Access to launch a new Doc in Word. After the doc has been saved I would like to pass the path and filename to the Access field from where it was launched. I am hoping to use a Hyperlink or the new Attachment data type to store this info. Thank you in advance. Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103371
  - 9
    - Macro Execution is Too Slow -- Help! I have written a macro (with lots of help from this board) that copies the contents of two Excel worksheets into Word. Once the copy is finished, I need Word to go through a table and delete all rows where the font is formatted white. Below is the code. I've tried everything I can think to turn off screen updating and Word visibility, but it does nothing to speed up the code. Any help you pros can provide would be very much appreciated. Thanks! Sub PrintFlowchart() Dim oRow As Row Dim oRows As Range Set wdApp = New Word.Application Set wdDoc = wdApp.Documents.Add wdApp.Visible = False Word.Application.ScreenUpdating = False Excel.Application.ScreenUpdating = False Sheets("Flowchart").Range("A1:V57").Copy wdApp.Selection.PasteSpecial link:=False, DataType:=wdPasteMetafilePicture, _ Placement:=wdInLine, DisplayAsIcon:=False wdApp.Selection.InsertBreak Type:=wdPageBreak Sheets("Key").Activate Range("B2").Select ActiveCell.CurrentRegion.Copy wdApp.Selection.PasteSpecial link:=False, DataType:=wdPasteRTF wdApp.Selection.Goto What:=wdGoToTable, Which:=wdGoToFirst, Count:=1, Name:="" wdApp.Selection.Tables(1).Select If wdApp.Selection.Information(wdWithInTable) = False Then Exit Sub For Each oRow In wdApp.Selection.Tables(1).Rows If oRow.Cells(1).Range.Font.Color = wdColorWhite Then oRow.Delete End If Next oRow wdApp.Visible = True Excel.Application.ScreenUpdating = True Word.Application.ScreenUpdating = True Word.Application.Selection.HomeKey Unit:=wdStory End Sub Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103367
  - 10
    - Get a value from a Table Hey All, I have a table that is 5 columns wide by x rows long and would like to get the string out of the cell which can be the intersection of any row between 2 and x and the first column. Thank you very much. Tim Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103364
  - 11
    - Stepping thru protected table cells I have a table which contains rows with different formats (some with merged cells, some with split cells). It contains cells with form fields and cells with plain text. It is protected. There are some rows which, in cell 3, have a checkbox. If the checkbox value in cell 3 = true, I want to copy cells 2, 4 and 5 of this row to a new table at the end of the document or into a new table in a new separate document. Cells 2 and 4 are plain text in; cell 5 is a form field. I don't know how to do a copy statement for a range with some plain text cells and a form field cell. Also, this is pretty repetitive, so I was looking for something that would just step through the table without having to specifically refer to formfield Bookmark name, e.g. using a counter index to do the following: i = count(rows in table) use i to loop through the rows: row(i) : if cell 3 contains a checkbox with value = Yes, copy contents of cells 2, 4 and 5 to next line in new table* (*create the table when you run into the first instance of cell 3 checkbox=true) Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103363
  - 12
    - runtime error "-2147217843 on SQL server connection I'm having a problem with an SQL connection (MS SQL Server). Below is my current connection string: Dim myServer As String, myDatabase As String Dim myUID As String, myPassword As String myServer = "Paris" myDatabase = "Documents" myUID = "admin" myPassword = "test" sConnectionString = "driver={SQL Server};" & _ "server=" & myServer & ";database=" & myDatabase & _ ";uid=" & myUID & ";pwd=" & myPassword Set Conn = New ADODB.Connection Set rs = New ADODB.Recordset Conn.Open sConnectionString On execution I'm getting runtime error "-2147217843 [Microsoft][ODBC SQL Server Driver][SQL Server]Login failed for user 'admin'. The test my setup, I have made a connection to the database via the relevant wizard in Excel 2007, so the ODBC setup in Data Sources (Control Panel) is good. I'd really appreciate some input on this please. Any ideas what I'm doing wrong? Regards, Stephenc Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103355
  - 13
    - Use VBA to add certificate to Word Templates I have a collection of several hundred! WORD documents that need to be added a new certificate. Is it possible to do this using a vba macro? 1=2E add "certificate" macro to normal.dot 2=2E DO open file 3=2E start macro from normal.dot 4=2E save file LOOP Unfortunately it is not possible to record a macro that adds a certificate. I didn't find any hints in the groups until now. Any ideas? Greetings J=F6rg Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103353
  - 14
    - Use Macro on Document Open to Fill In data I am setting up a sheet with client data on it. For reasons I'm not going into now, the prime users of this sheet are not familiar with and will not us the address book. This means that most of the repetitive data has to be typed in, prefferable without forgetting any. I would like to use a macro and fields that querry for each item. I have that part working, but don't know how to make the macro execute when the document opens, without the user have to do anything. I would like for the users to click open and select the template and then be querried for everything. Can this be done? Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103340
  - 15
    - Populating blank sections Hi All, I have a word document with standard heading and sub heading sections.I wanted to write a macro which could populate the corresponding heading or subheading sections with some standard text.The only clause is that when heading is blank , I want the population to occur. else it must not touch the section. Current Document 1 Heading blank 1.1 Subheading not blank After Running the Macro 1 Heading Its a heading <change> 1.1 Subheading not blank <no change> Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103322
  - 16
    - Word 2007 Macros Disabled I created a number of macros in a word macro enabled template as well as auto footers. Without seemingly doing anything, my macros no longer work even though I went into the Trust Center and anutomatically enabled all macros. The macros, when run, insert the appropriate merge or insert codes, but not the actual footers or bookmarks. There doesn't seem to be anyway around this that I have discovered so far. Before I reload Office Suite 2003, does anyone know of anything else that might work to run the macros? Always appreciate the awesome feedback of these discussion groups. Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103316
  - 17
    - UserForm ListBoxes I have a userform based on the "Cascading ListBoxes" example from Greg Maxey's site http://gregmaxey.mvps.org/Populate_UserForm_ListBox.htm. It populates list boxes dependent on the value of the prior list box. How do I extend this functionality beyond 3 list boxes? For example, how would I add the color (List Box 4) and cost (list box 5) of the selected model? ListBox1 Data (Manufacturer) Dell (row 1) HewlettPackard (row 2) ListBox 2 Data (Category) Desktop =B6 Notebook (row 1) Desktop =B6 Notebook (row 2) ListBox 3 Data (Model) Dimension E520 | Dimension E521=B6 Inspiron 6400 | Inspiron 9400 (row 1) Pavillion d4650 | Pavillion a1650=B6 Pavillion dv9000 | Pavillion dv6000 (row 2) ListBox 4 (color) Blue | Silver | Red =B6 Black | Brown | Grey (row 1) Orange | Green =B6 White | Yellow (row 2) ListBox 5 (cost) $999 =B6 $1199 (row 1) $1000 =B6 $1200 (row 2) Thanks in advance for your help. Here is the code. Option Explicit Private Sub UserForm_Initialize() Dim myArray() As Variant Dim sourcedoc As Document Dim i As Integer Dim j As Integer Dim myitem As Range Dim m As Long Dim n As Long Application.ScreenUpdating =3D False Set sourcedoc =3D Documents.Open(FileName:=3D"M:\Data.doc", Visible:=3DFalse) i =3D sourcedoc.Tables(1).Rows.Count - 1 j =3D sourcedoc.Tables(1).Columns.Count ListBox1.ColumnCount =3D j 'Hide columns 2 and 3 ListBox1.ColumnWidths =3D "75;0;0" ReDim myArray(i, j) For n =3D 0 To j - 1 For m =3D 0 To i - 1 Set myitem =3D sourcedoc.Tables(1).Cell(m + 2, n + 1).Range myitem.End =3D myitem.End - 1 myArray(m, n) =3D myitem.Text Next m Next n 'Load data into ListBox1 ListBox1.List() =3D myArray sourcedoc.Close SaveChanges:=3DwdDoNotSaveChanges End Sub Private Sub ListBox1_Change() Dim myArray As Variant myArray =3D Split(ListBox1.List(ListBox1.ListIndex, 1), Chr(13)) ListBox2.List =3D myArray ListBox3.Clear End Sub Private Sub ListBox2_Change() Dim myArray1 As Variant Dim myArray2 As Variant myArray1 =3D Split(ListBox1.List(ListBox1.ListIndex, 2), Chr(13)) myArray2 =3D Split(myArray1(ListBox2.ListIndex), "|") ListBox3.List =3D myArray2 End Sub Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103310
  - 18
    - Unwanted dialog box in Replace macro I recorded a macro to remove all spaces from selected text, using the Replace command. When it finishes it asks me if I want to search the remainder of the document. Is there any way to prevent this box from coming up? Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103309
  - 19
    - Table protection I was looking at other posts and found out how to protect my headers and footers using the information in â??How can I prevent users from editing the header of a document in Word 2000 or higher?â?? (See below). Can you use this same idea to protect a table in my document? I have created a bookmark range around the entire table that I don't want users to be able to change and called it â??bktblâ??. How do you add a new Case that if a user clicks inside â??bktblâ?? it will go to right before the bookmark or how would you add a whole new macro? Private Sub wdApp_WindowSelectionChange(ByVal Sel As Selection) 'quit if active doc isn't attached to this template If ActiveDocument.AttachedTemplate <> ThisDocument Then Exit Sub 'get out of the header/footer if we're in it Select Case Sel.StoryType Case wdEvenPagesFooterStory, wdEvenPagesHeaderStory, _ wdFirstPageFooterStory, wdFirstPageHeaderStory, _ wdPrimaryFooterStory, wdPrimaryHeaderStory ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument Exit Sub Case Else End Select End Sub Fuzzhead Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103308
  - 20
    - Drop Down getting values from Excel Ok, so I always get these questions from my co-workers on Friday afternoon... We want to establish a spreadsheet (let's call it schools.xls) that has school names (and maybe 3 or 4 other fields). The users would populate the spreadsheet, then go to a Word doc that has a drop down box that feeds off of the values in the spreadsheet. We know that standard drop down boxes only allow 25 entries, so I've made a VB form that has a drop down box. I need to know how I can get code that links to the spreadsheet, grabs the values in column A and enters those as selections for the drop down box. Any ideas? Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103294
  - 21
    - Restarting the numbering with vba Hello! Is there a possibility to restart the numbering with VBA? I need to do that because when I insert as a link (always through vba code) a file that might contain a series of numbering paragraphs, this numbering continues in the next instance of the file. Is there a way to restart it for all the numbering series from 1 for each instance of the file? manually I would right-click on the begining of each series and restart it. if there was a collection for the ListFormat, that would be more helpful... Thanks for any advice! Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103289
  - 22
    - VBA normal.dot autoopen How do I get a reference to all of the special sub routine names in normal.dot that intercept certain events. A good example is "autoopen". When you call a sub autoopen it will intercept all open events no matter where the open takes place. For instance it will fire if you go file/open and it will fire if you open it from the file explorer tool. Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103286
  - 23
    - VBA normal.dot Is there a way to intercept the save action through VBA and normal.dot. This would be a generic save whether it comes through the file/save action of the menu or whether it comes from the "do you want to save this document" dialogue box Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103285
  - 24
    - Finding the index of an Array Item I have an ordered list of strings ( in other words, an enumeration). Given a string I want to find out: a. is it in the list, b. what is its position. Is most languages I would populate an array with strings and apply some sort of membership function. I have tried for hours now to determine if VBA has such a function and have been unable to verify whether it does or not. So I actually have two questions: a. is it possible to do this, and b. where is it documented> Thanks in advance for your help. -- Barry Carroll (Cleverly disguised as a trained SW engineer.) --------- Datalogic Scanning, Inc. assumes no responsibility whatsoever for any statements made by me. I''m entirely on my own here. Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103283
  - 25
    - Transition from Word 2000 to 2003 and template/mail merge issues I have several templates that pull merge data from an excel spreadsheet, all of which work just fine in Word 2000. However, when trying to open them in Word 2003 the following happens: 1. If Local Open, the database (.xls sheet) is no longer associated with the template. 2. After that doesn't work, if we try opening the template from Recent Files, the database is associated with the template. 3. The merge works on some but not all records, even though the merge is based on the first column in the database. I'm so confused, and I don't even know the right questions to ask you. Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103279
- Next
  - 1
    - Help with macro converting list elements. I am working on a macro that will convert MS Word markup into a BBCode. I have it partly working for list elements, but I cant seem to figure out the rest. The problem is when it comes to multiple levels of list elements, (see complex list below) Every time the bullets or numbering changes or is indented, a new list element should be generated. I am posting the MS word, the expected BBcode and the VB code i am using. Any help will be appreciated. Thank you -Matt- [MS word] List Bullets =B7 One =B7 Two =B7 Three List Numbers 1=2E One 2=2E Two 3=2E Three List Letters A=2E One B=2E Two C=2E Three Complex List 1=2E One a. One b. Two i. One ii. Two iii. Three c. Three 2=2E Two 3=2E Three [/MS word] [expected BBCode] List Bullets [list][*]One [*]Two [*]Three[/list] List Numbers [list=3D1][*]One [*]Two [*]Three[/list] List Letters [list=3Da][*]One [*]Two [*]Three[/list] Complex List [list=3D1][*]One [list=3Da][*]One [*]Two [list=3D1][*]One [*]Two [*]Three[/list] [*]Three[/list] [*]Two [*]Three[/list] [/expected BBcode] [VB code] Sub ConvertLists() Dim lCnt As Long Dim lLst As Long Dim rDcm As Range Set rDcm =3D ActiveDocument.Range lLst =3D rDcm.ListParagraphs.Count For lCnt =3D lLst To 1 Step -1 With rDcm.ListParagraphs(lCnt).Range .Select If .Characters.Last.Previous <> "]" Then .Characters.Last.InsertBefore "[/list]" .InsertBefore "[*]" .ListFormat.RemoveNumbers End If End With While Selection.Range.Paragraphs(1).Previous(1).Range.ListParagraphs.Count <> 0 lCnt =3D lCnt - 1 With rDcm.ListParagraphs(lCnt).Range .Select .InsertBefore "[*]" .ListFormat.RemoveNumbers End With Wend Selection.Range.InsertBefore "[list=3D1]" Next End Sub [/VB code] Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103278
  - 2
    - Automate compiling a template? As part of a software build process, I need to compile some VBA in a Word template. Currently we have to manually open the .dot file, open VBA (Alt+F11), select Compile from the debug menu, save the template and exit. Using Visual Build Pro I can script the opening, save and close using VBScript - eg: --------------- Dim oWord Dim oDoc Set oWord = CreateObject("Word.Application") Set oDoc = oWord.Documents.Open("C:\SomePlace\SomeFile.dot") ' xxxx Do Compile here? xxxx oDoc.Save oDoc.Close oWord.Quit Set oDoc = Nothing Set oWord = Nothing --------------- Is there a way to do the compile step from automation? Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103275
  - 3
    - Positioning Data in Indivisual Cells within a Table using VBA I am importing data from an AS/400 using OLE DB/ADO and wish to populate a table with data. I am reading a Primary file which has header information, and I need to load detail from two additional files into the Table. The number of rows within the table must be variable. I would like to control loading the table by cell. For example, load Name in Row 1, Column 1, Amount #1 in Row 1, Column 2, Amount #2 in Row 1, Column 3, Total in Row 1, Column 4....then read the next record and start loading in Row 2...and so on. So, my question is this; How do I load data into cells of a table and allow the table to be a variable length? Thanks, Romine Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103273
  - 4
    - Print to File Dialog box Currently using MS Word 2007.... Does anyone know how to control the "Print to File" dialog box that comes up after a user chooses that option on the File Print dialog? here is my current code: Sub CapturePrintFileName() Dim dlg As Dialog Set dlg = Dialogs(wdDialogFilePrint) With dlg .PrintToFile = 0 If .Display = -1 And .PrintToFile = 1 Then .Execute End If End With End Sub This brings up the dialogs as it should, but when the "Print to File" dialog box comes up, I cannot seem to interact with it. On the "OK" click of that form, i need to capture the Filename that the user types in. Can anyone help with this? Thanks! Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103271
  - 5
    - Sending an email from Word using VBA I have used the suggestion option 2 from //www.word.mvps.org/FAQs/InterDev/SendMail.htm to create an email from the content of the form in Word and send an email based on the contents of this form. Is there any way that once it has sent the email it can close Word and not save the active document? The form is filled in by the user and then they click on Send (command button) that takes the content of that form and sends it off in an email. However, Iâ??d like Word to then automatically close that form and not save the changes â?? is this at all possible? Many thanks Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103267
  - 6
    - Have question Can anyone help me find out what is wrong with my Word 2000? This just started last week. The only thing I can think of that I changed is that my virus protection ran out and I got rid of it since it wouldn't work any more and downloaded a new one. I then began having much trouble with my Office 2000 Professional. I finally got that resolved and now everything is working in Office 2000 Professional except Word. If I try to open any of the old documents that never left off the computer, I get this "c:\Documents and settings\ (my name)\Desktop\w2k5p4_EN.EXE.part" and the program will not open the documents. I thought I would try to open a new one and start from scratch, but I cannot open Word. I have tried everything else in Office 2000 and they everyone seem to work fine, but Word will not even open. Thank you. Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103262
  - 7
    - Macro Working with Word 2007 mail merge hi, i have created a macro to use html file as datasource. ActiveDocument.MailMerge.OpenDataSource Name:=filenme, _ ConfirmConversions:=True, ReadOnly:=True, LinkToSource:=True, _ AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _ WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _ Format:=wdOpenFormatAuto, connection:="", SQLStatement:="", SQLStatement1 _ :="", OpenExclusive:="", SubType:=wdMergeSubTypeOther though subtype is given it suppress the select table prompt but its not going for mail merge or is there any way to suppress the select table prmpt and go ahead with the mail merge Thnks in adavance, waiting for reply bye Priti Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103253
  - 8
    - Option buttons on forms How can I get option buttons to function on protected forms? Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103244
  - 9
    - Table Question I found out that if you protect a section of a document Shapes and Drawings do not work unless you unprotect the document first. The only reason I was looking at protecting section(s) was to force users to use a form that when saved would populate the tables in the document correctly. Without protecting the section(s), is there a way that if a user clicks in a table to update it will take them to my form instead to be used to edit or update the tables? Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103241
  - 10
    - VBA Macro Issues after 2000 to 2003 upgrade A few years ago I wrote templates for Microsoft Word and Excel containing vba code. The macros are used to search through designated word files, suck out particular bits of information, export that info to excel, and create cross-reference tables in Excel with that info. We use these templates a lot in my group. A few weeks ago I got a new laptop with Windows XP (instead of 2000) and Office 2003 (instead of 2000). I just tried using these macros for the first time since the upgrade, and I'm running into a lot of problems: 1) The Word macro that exports data to Excel runs EXTREMELY slowly -- it takes 5 minutes where it used to take 30 seconds. And that's if I save the file locally; over the network, I give up before I see anything happening. 2) Some of the indentation formatting is not correct after the Word macro is run. 3) Workbooks made from the Excel template have code to create a menu with buttons to run the macros. These menus never appear. 4) If I run the macros in Excel, I get an error at the following line, probably because the menu isn't there: If CommandBars(sortReqToolBarName).Visible = True Then Any advice is appreciated. I'm not even sure if this is the correct forum, so advice on where to go for help is also appreciated. I also posted in the Excel programming forum. Thanks very much, Susan Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103237
  - 11
    - VBA-How to bold some text in a table cell Word 2003 How to select only a portion of all text in a table cell and bold it programatically using VBA? the Cell was filled programtically in the following manner Doc.Tables(1).Cell(10, 1).Range.InsertAfter "some text - bolded text" Thanks, -- RobGMiller Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103235
  - 12
    - occuring error in vba programme the programme i wrote is to return the maximum, minimum and average of 100 numbers. But it keeps returning an error. Does anyone no whats wrong with it? what its missing? cheers Sub testing() Dim a(10) As Single, max As Single Dim min As Single, sum As Single Dim Average As Integer, i As Integer n = 100 max = a(1) min = a(1) sum = a(1) For i = 1 To 100 If max > a(i) Then max = a(i) If min < a(i) Then min = a(i) End If sum = sum + a(i) Next i Average = sum / n End Sub Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103220
  - 13
    - Paypal in a word document Is there a way to put "buy now" buttons from Paypal into a Word document? Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103218
  - 14
    - Preventing page break in table I have a table that I would like to prevent from spanning across pages. I created the following macro. Dim aTable As Table For Each aTable In ActiveDocument.Tables aTable.Select aTable.AllowPageBreaks = False Next aTable This works when the document is open, but if you save the document and open it again, the table is once again spanning multiple pages. Any thoughts or ideas. Thanks Bob Branaugh Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103207
  - 15
    - Macro to print page 1 Hi, I'm short on time and I'm wondering if anyone has a macro that will print page 1 of every document in a directory. Thanks, Mickey Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103203
  - 16
    - disable tab stop for option button I have a form with an option button group that I am setting up. In one scenerio the same option would always be selected. I ahve already set the value of that one to True and the others False. I have also locked all the buttons. However, when tabbing through the form all the buttons are still tab stops. How do I bypass the buttons alltogether? Any help would be greatly appreciated! Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103199
  - 17
    - Split a Document using VBA I have a very large word document (2721 pages) which contains a datafile too large to open in Excel. My aim is to split this data into manageable chunks for excel to open. The data source is currently 163,250 lines but will grow daily (unsure by how much) so I need to put the variable for the loop to be based on the size of the document. I have tried to use: varNumberPages = ActiveDocument.Content.Information(wdActiveEndAdjustedPageNumber) but the document cannot repaginate in time to give the correct result. my main issue is that i cannot say cut the first 1000 pages into a new document and repeat this another 2 times to get three documents (2 = 1000 pages & 1 = 721) although i am unsure this large a document will open in excel! Any help will be gratefully recieved. PaulW Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103195
  - 18
    - Duplex Printing I am using VBA to print duplex, but although it prints successfully back and front, the paper is upside down - that is, the printout starts where the footer is, and finishes where the header is. Is there a method to reverse this? Thank You -- Morag Mitchell Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103192
  - 19
    - Document containing many ActiveX controls prints out blank Hi all, I have a 9 page Word document that contains a large number of ActiveX controls from the form toolbar, i.e. textboxes, radio buttons and a couple of command buttons. I've used this because my customer's clients need to be guided through filling in a whole pile of data and I have used VBA to hide and unhide the controls depending on how the client starts filling in the document. It all works nicely in versions 97 through to 2007 so I was quite chuffed. However, when they (using Word 2003) or I (using Word 2002 or 2007) try to print it out, we get 9 nearly blank pages. The only things that get printed out are the lines around a table. The document is normally protected to allow data input only via the form, but even when I unprotect it the printing still doesn't work. I've Googled every combination of words that I can think of that might be relevant, but can't find anything that explains what the reason for the problem is let alone a solution. Can anyone help, please? Many thanks, Alan Cossey PS Getting the clients to use Infopath for data input is a non-starter. Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103187
  - 20
    - Disable word "Save As" for a specific document I was trying to disable the "save as" feature in a word document and I wrote the code: CommandBars("Menu Bar").Controls("File").Controls("Save As").Enabled = False it works but the button stay disabled after I close the word and open it again. Is that anyway to disable the "Save As" button only for the specific document which means didn't cross word session P.S. I will finally put this in my C++ application, which open the specific document and i want user only save the existing document in my system instead of save as. Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103180
  - 21
    - Word/normal.dot/Toolbars problem?? I have created a toolbar called CustomMacros and have placed a drop-down menu in it with various macros. A few macros that I don't use any more I have deleted out of the normal.dot and have dragged their labels off the menu bar, however, once I close out of Word the label still appears in the menu. I've also added another menu to the toolbar and split up the list of macros categorically since the list in the one menu was getting too large, yet when I close out of Word the changes I've made have been ignored and my original long-listed menu remains intact. So, the problem is any changes I make to the toolbar will not stick. Anyone know what's up with this? Thanks for your help. jerem Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103169
  - 22
    - Custom Macros, Toolbars and Buttons I have inherited a set of custom macros for creating and inserting images into a document. A custom toolbar and set of buttons are associated with this macro set. I am revising and enhancing the macro set, which includes adding new buttons to the toolbar and modifying existing buttons. I've tried everything I can think of and I can't do the following: a. change an existing toolbar button's macro asignment from an obsolete, deleted macro to its new and improved replacement (the new macro has a different name) b. add a new button to the toolbar and assign it to one of the new macros. As usual, I expect this is simple stuff and I'm just too blind to see it. Any help will be greatly appreciated. -- Barry Carroll (Cleverly disguised as a trained SW engineer.) --------- Datalogic Scanning, Inc. assumes no responsibility whatsoever for any statements made by me. I''m entirely on my own here. Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103168
  - 23
    - IF Statement / Macro --- I tried! I need to create an IF statement and need some help! I am building a table and I need to look at the "status" column in order to insert the appropriate value in the following column. Here is what I want my IF statement to do (in English)!: IF cell E2 = "Not Started", place a "1" in this cell IF cell E2 = "Active", place a "2" in this cell IF cell E2 = "Transferred", place a "3" in this cell IF cell E2 = "Completed", place a "4" in this cell otherwise, keep <blank> Now, I need this same thing to occur with all the cells that are populated in column E - so, I would need the same "IF" statement to apply to "E3, E4, etc". IS there a way I can copy the actual formula and it will automatically change to reflect the appropriate column number? Any help would be appreciated! Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103167
  - 24
    - Macro to copy styles from Normal Hi, I have the following statement designed to copy the user's styles from their Normal.dot (we are using roaming profiles) to the current doc, but it doesn't work. Any ideas on what I can change? ActiveDocument.CopyStylesFromTemplate Template:= _ "%appdata%\microsoft\templates\Normal.dot" Our path to each user's Normal.dot is the following: 'C:\Documents and Settings\shcha\Application Data\Microsoft\Templates THANK YOU! Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103158
  - 25
    - PageSetup + Section Breaks = Value out of range Run-time Error 4608 Hi All, I have seen this problem on a few forums and have found a solution that has so far worked 100%. If you don't want all the details skip to the second to last line. The problem occurs when using a VBA macro to set certain Page Setup Properties such as ActiveDocument.PageSetup.FirstPageTray=1 ActiveDocument.PageSetup.RightMargin=10 On trying this on some documents that contain section breaks an error is received Run-time error '4608': Value Out Of Range The only solutions I could find were to replace all section breaks with page breaks which in a lot of circumsatnces works fine. But if the section breaks are necessary then there are ways to correct the document. After hours of frustration I decided I needed to compare a working document with a broken document and the only way I could think to do this was to save it as XML and view it in a text editor. What I found was that there is an attribute in each section which has the XML of <w:docGrid w:line-pitch="360"/> or similar this XML can usually be found just before </w:sectPr>. Now in a healthy document this setting is the same in each section throughout the document. And in a document that causes the error the line-pitch is different in one or more of the sections. --Note if the setting is present in any one section then it must be the same value and included in all sections. There is also a simpler way I have found to correct the documents but I don't know if the method will have any side effects. You would think that if the 'line-pitch' was visible in the XML then there would be some where in Word that you could set this value. However in a normal English word setup it is impossible to find. Usually in Word on the Page Setup dialog there are 3 tabs Margins, Paper, Layout. But if you go into Start->Programs->Microsoft Office->Microsoft Office Tools->Microsoft Office 2003 Language Settings and add Korean, Chinese, or Japanese to the enabled languages you will get an extra tab called Document Grid and in here you can specify Grid setting. The normal value for line-pitch seems to be 360 in the XML for (A4 Paper). To achieve this through the word interface I have been selecting the radio button 'Specify Line Grid Only' and then setting the Pitch in the lines setting to 18 (set it to 17 then click the up arrow) make sure to apply to the whole document and run the VB code again this time no error. I was just about to ask for some help to achieve this in a macro when it struck me I can record a macro. ActiveDocument.PageSetup.LinesPage = 38 'achieves the same as all the above but is a little bit easier. Just thought I should share that knowledged with you. Rich. Tag: Good News Mr 142.179.22.210 flood microsoft.public.word.vba.general Tag: 103157

Cox and Telus will not act unless they have a police file number so
you may as well flood microsoft.public.word.vba.general my home Usenet group. have a nice
day.Me I am nearing about TrueCrype

--
They foster the dramatic lb and finish it near its database.

-- Michael Yardley

Top