Creating a custom table...

A couple of issues regarding table creation. I want to insert a set of tables in a document header, but so they appear in the middle (vertically) of the page concerned. I want them in the header so the user cannot inadvertantly modify the table contents directly without actively entering into the header: 1. I have a dialog where a user can specify the number of rows that must be in a table. For example if they enter 4 then the table must be created and inserted with 4 rows and 2 columns. There are always 2 columns - how do I achieve the table creation and insertion at a specific

Which field did I exit...

I am building a very complex form and need some assistance... In this form, I use sections to hide/show mulitple repeated sections within the form. Users click +/- buttons to add (unhide) or delete (clear all fields and hide) these sections. No problem. Works great. Within each section, use a scheme to differentiate my fields. Each section has ~40 fields. One of these is a drop-down field (not activeX) used to make a choice. Based on the choice, I want several fields to change. It's a form with rates, so I need different information if Fixed or Variable are chosen in the drop

Check For Valid Object Reference

How do you check if a reference is still valid? For example, if at the time you need to use a another document reference, how can you check that it’s still valid? Dim sourceDocument as document Set sourceDocument = documents.add … If not sourceDocument is nothing then … Here, the sourceDocument may have been closed before the last call, but in checking the the reference, sourceDocument isn’t nothing (it’s still looks valid), isn’t null (not really used much in VBA anyhow), or empty (it’s been allocated at some point). Currently, I am forcing an error: On Error Resume Next

Remapping Keys in Word 2007

I want to reassign the ">" key to "." and the "<" key to "," in Word 2007. I know how to assign keys to macros, but how do I reassign the key to its lower case equivalent (or another letter)?

Insert Title Field

How to insert Title Field on a cover page? If I would like to have the Document Title automatically updated in each chapter of the document, do I need to insert the title field in each chapter? Thanks.

CustomUI

Hello All, Is it possible to manipulate the pressed state of a toggle button on a CustomUI ribbon tab using Word Visual Basic in a document template? Many Thanks.

Unable to add table

Hello all, I am trying to add a table to a new word 2007 document i created through an excel macro. I wanted to add the data from the excel sheet to this table. After creating the document, i added some text through selction.TypeText("text") and added some paragraph marks through selection.TypeParagraph methods. I tried to add the table through the following code:- word.selection.EndKey mode:=wdStory, Extend:=wdMove Dim tble as Word.Table set tble = Word.Selection.Tables.add(word.range,2,8) On execution of the last line, all previously entered text is deleted from th

Add-InTemplates

Can you make Add-In Templates editable? I experience problems with my computer at work quite often and every time an IT person tries to solve the problem they invariably blame all the macros I have in my Normal.dot. So in order to appease them (although I don't think the macros I use have anything to do with the weird problems I have) I removed them and put them in their own .dot template. Even with doing this, I am still experiencing odd things like Closing and choosing Save and the document saves but doesn't close and the problem of not being able to generate a TOC w/o getti

How to hide or disable toolbars and ribbon in word with vba or vb6

I am trying to hide or disable the ribbon and toolbars in Word 2007, within a VB6 program, but have been unable to get it to work. I am using early binding so that I can see the Word objects and methods, but have been unable to find a combination that will work on my files. Have tried Dim wrd As Word.Application Dim obar As Office.CommandBar For Each obar In wrd.CommandBars obar.Enabled = False obar.visible = False Next I assume there is something I am missing here. What would be the best way to do this? Thanks, Norm

Preventing users from entering the header

I have the following code from the wonderful Bill Coan over at the MVPs site. It's supposed to prevent users from editing the headers in the document. I've got this code in the template. Problem is, it's set up for Word 97 but I'm using 2007. It keeps crashing no the wdSeekMainDocument line toward the end. I saw a post that said I should change the ThisDocument to ActiveDocument, and I tried that, but that just made the code disappear altogether when I created a document from the template this is in. Any ideas? Option Explicit ''reserve memory for an application variable P

Option Button Question

I have a fax cover sheet which says the original will/will not follow after the fax. I have set up option buttons for the Will and for the Will Not, as well as bookmarks to insert an X depending on the option the user selects. How do I code the buttons to insert an X into the bookmark from the option button they select? And thanks very much for your help, as always.

Random AutoText entries

I'm creating a Word 2007 template for our procedures group. One of the fields is an AutoText field. I've entered the three options I want and those work great. But there are three other options already in the list that I can't seem to get rid of. The three options are the user initials, user ID, and company ID. The organizer tells me they're from the Normal template. Also, I just discovered if I have a non-template Word document open, the entire Quick Parts list shows up, and I definitely don't want my users accidentally clicking on any of those. Is there some way I can get t

Calculate form fields...

I have a form with several tables and fields within the tables. I've added buttons to expand/contract the table, enabling users to only see those rows they'll use. This keeps clutter off the page and makes the form more dynamic. I have no issues with this function; it's great! Let's call them Rows 2 through 14 My problem arises when the user clicks the minus button. To prevent data from being stored when it shouldn't, the fields in the deleted row are first cleared, then hidden, then disabled. This prevents tabbers from tabbing through hidden fields. So far so good. The p

Replace text in field code

I have some REF fields that point to bookmarks for document ranges that are deleted in my VBA code. I want the REF field to point to a new bookmark. I want to use something like the following myRange.fields("REF OQTempRHMappingSection \r \h").code = replace(myRange.fields("REF OQTempRHMappingSection \r \h").code, "TempRH", "TempOnly") Of course, this does not work or I wouldn't be writing this question. Is there a way to accomplish what I'm trying to do? If I reveal codes in the document, I can perform the edit manually. I think I should therefore be able to do it in VBA as

place cursor in a specified text box in a Word form

Hello, I have a Word form developed in vba and when a specific textbox is empty a message box appears to tell the user to enter some data before they can proceed. When they click ok to continue the cursor places itself in textbox4 on the form but I want it to be in the box they have left empty (in this case textbox5). I have used the SetFocus method but that doesn't seem to do anything, it still ends up in textbox4. Any ideas anyone? Thanks.

Trouble with FileDialog(msoFileDialogSaveAs)

Hi, I hope someone can help me. I close a document with the code below. It worked fine on my desktop. It worked fine on other desktops but not all. They would get the error message "Compile error ... can't find project or library" at msoFileDialogSaveAs and I am unable to figure out why. I began experimenting with the document on my desktop and now it won't run on mine either and I don't know what I did to change it. Does anyone have any suggestions as to what I've missed? With Application.FileDialog(msoFileDialogSaveAs) .InitialFileName = "New" & strD

Can you teach an 'old dog' new tricks? (Writing Macros)

I'm certainly giving my age away when I say that I started out with Wordstar for CPM. I then moved on to MS Word, in which I found it very easy to write macros. Working with DOS was an excellent prep for writing macros. In fact, after creating a library of macros, you could then write batch files to run them much like invoking a procedure in a computer program. My programming skills are as ancient as I myself feel in today's 'pedal-to-the-metal' technology. In college, I learned the following programming languages: Pascal, FORTRAN, COBOL, BASIC, C, C++, and VAX/PDP-11 Assembly la

Macro Recording Error

Word 2003 (11.8313.8221) SP3 I have run into a (apparently) random, but recurring error while recording macros: The macro records without a Sub line, displays fine in the editor, but crashes Word when I click inside the editor window. Any thoughts? Error Info: AppName: winword.exe AppVer: 11.0.8313.0 AppStamp:4a793d83 ModName: vbe6.dll ModVer: 6.5.10.40 ModStamp:48a4b5d6 fDebug: 0 Offset: 00075b00

Macro can't run!

I recorded a macro as follows: Sub Macro1() With Selection.ParagraphFormat .LeftIndent = CentimetersToPoints(0) .RightIndent = CentimetersToPoints(0) .SpaceBefore = 2.5 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceAtLeast .LineSpacing = 0 .Alignment = wdAlignParagraphJustify .WidowControl = False .KeepWithNext = False .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = Tru

Document Properties & Saving a File

Word 2003/Windows Vista It's my understanding that, when saving a file for the first time, Word looks at the Title document property and uses this to initialise the filename. I also understand (from reading the help topic "Troubleshoot file properties") that if the Title property is blank, Word then "extracts" a pseudo-value for the Title property from the first line of the document and uses this to initialise the filename. This extracted value isn't written into the Title property that's displayed on the Summary tab of the Document Properties dialog box, but it *is* displayed

Disable remaining formfields in the same row of a table.

Based upon a checkbox value in the form fields I am trying to disable or enable the remaining formfields in the table row. I believe the following code should work. but I am gettting a run-time error '5991' on the for each statement that says 'I cannot access individual rows in this collection because the table has vertically merged cells' Sub EnableActionFields() ' Enable or Disable the Actions formfields Dim ffname As String Dim ActField As FormField ffname = Selection.FormFields(1).Name For Each ActField In ActiveDocument.FormFields(ffname).Range.Rows(1)

Need an HTML replacement Macro

I need to perform a find/replace in a Word doc so that text encased in a specific html tag is replaced with a style mathing that tag. For instance, this: <em>some text here</em> <em>different text in this one</em> should be replaced with this: some text here <--(image that this is bold/italics) different text in this one <-- (same comment) I'm having trouble figuring this one out. Thanks in advance for any guidance.

Calculate Checkboxes to average total

I downloaded the Microsoft Word template "Employee performance review form (short)" which has checkboxes that rates the employee performance. Can someone assist in placing a value to each checkbox, then a overall rating that averages the numbers? Example the first category has ratings of 1 = Unsatisfactory and the first row is Job Knowledge and checkbox is clicked 1 = Unsatisfactory. The second row is Work Quality and the checkbox is clicked 4 = Exceeds Expectations. After all rows are rated, then an average would calculate in a box. I am currently using Word 2003.

Worked in 2003, not in 2007

I have a macro that was in my template which started life as a Word 2003 document. I've created a new template in Word 2007 and transferred all the code into the new document. Everything seems to work except one macro. This is supposed to grab the title of a given attachment, copy it into a new page of the attachment, and include the title. It always crashes on the Selection.Copy line. The only thing I changed was making the word "Attachment" all caps. But even if I change that back and use nothing but the original code, it crashes on that same line. Any ideas? Sub AttachAd

Macro to insert a text box in Word 2007

Does anyone know how I can insert a particular type of text box ("Simple Text Box")into a Word 2007 document using a macro (so that I can add it as a button to the Quick Access Toolbar)? It's easy enough to add a button to the Quick Access Toolbar to open up the Text Box Gallery (by using one of the pre-defined customise commands), but I just want to be able to open the "Simple Text Box" with one click, rather than having to select it from the Text Box Gallery every time. Many thanks.

continious page nos while inserting pages from 2nd doc to 1st doc

i have 3 pages template in 2nd page from macro i am inserting file doc2 where bookmarks are there for i=0 to 2 Selection.GoTo What:=wdGoToSection, Which:=wdGoToLast Selection.MoveUp Unit:=wdLine, Count:=1 Selection.InsertBreak Type:=wdSectionBreakContinuous Selection.InsertFile Filename:=mstrTemplatePath, Range:="mtaLoop", ConfirmConversions:=False, Link:=False, Attachment:=False For Each frmfld In ActiveDocument.FormFields Select Case frmfld.Name Case "mta070" 'ID

Need help for macro to add name to several places in a document

I need to run a macro that brings up a dialog box prompting me for a person's name then types the name in 3 places in the document (I usually put an asterisk * where I want the names to be placed in my effort to use find and replace). I tried using find and replace but that does not work in this macro as I can't get it to prompt me for the new name. I assume that I should use a variable but I am not sure how to get it to prompt me for the name then place the name in my document. Thanks for any help on this problem, Mark

tiLinking text in WORD

I would like to update a title and have it auto-update else where in my WORD document. IE: Update the title of document and have the TOC title update automatically

Extract date only from Windows serial date

I want to compare a user-specified date, such as 3/3/2010, with the date associated with a tracked change. The problem is ActiveDocument.Revisions(1).Date also returns the time of day. I have come up completely empty on the means of referencing the date portion only of the tracked change. Sure hope someone can educate me, as I'm sure I've got to be missing something incredibly obvious.

Show hidden text

I have a form with form fields. I'm trying to add functionality that will make visible hidden text by saying if "Add Objective" is selected in a dropdown, select bookmark "ShowObj3" and unhide that text. I know a macro will probably be more efficient, but can this also be accomplished using field codes. I'm not too savvy with macros so please make it as simple as possible. Thank you.

Powerpoint from Word

Hi, Is there a way to open an existing Powerpoint presentation and work with it from within Word VBA? -- Thanks for your help. Karen53

Help me to create an Armenian Spell Checker

I'm a member of Arak-29 Foundation team in Armenia working on various Armenian language programs (www.arak29.am). Our team-leader is Tom Samuelian, a lawyer and linguist. For some time, we have been working on Armenian orthography and dictionaries. There is no spell-checker for Eastern Armenian in traditional (Classical) orthography. For this reason, we have prepared in hunspell format (1) modified wordlist of over 60,000 base forms and (2) affix file with all declined and conjugated forms, (3) readme file. We wish to make this available under a GPL license as a

Is it possible store Word 2007 Macros in Normal.doc

I need to store macros with Word nott he Document in order to allow them to be drive indepenent. Is it possible store Word 2007 Macros in Normal.doc

Determine Length Of Mail Merge Field

Hi, I have a mail merge document that gets its information from an excel file. Is there a function in word that will give me the length of the one of the fields, i.e. mm_name? If not, is there a way to treat a phone number (555) 555-1212 as one word so the (555) is not on one line and 555-1212 on another. The user won't delete the space between after the ) or will the user start the phone number on a separate line. I am currently adding spaces before the phone number and if the mm_name is under 12 characters the letter looks okay, however if it is over 12 characters you som

Font formatting in VBE

I have some docvariables tied to docvariable fields of which some need to be BOLD fonts but others tied to the same field do not. If I bold the field in the document, then all the docvariables are bold which is not my intent. How can i selectively bold some but not all of the docvariables? I've tried to highlight the specific variable and "control-B" but it doesn't seem to have any affect. tx

after input, IF THEN to compare 2 #s & select answer fm a table

Using Word 2003, I would like to create a cell in a table. I want the user to enter a number in the cell. I want word to reference another table and find the cell or row where that number fits in. Example: I have a table with four cells. Cell A1 has 1-10 in it. Cell A2 has 11-20 in it. Cell B1 has 'YES' in it, and cell B2 has 'NO' in it. Then, I have another table or possibly, I add a row below the first table. It has three cells. In cell A1 I have text reading: Enter a number between 1 and 20. Cell B1 is where the number will be entered. Cell C1 is where the answer

List of fonts used in a Word doc -- the easy way

The VBA scripts that I have found all implement a character-by-character scan throu= gh the document, which can take a long time in later versions of Word. You can blame Wor= d's "formatting" feature for the slowdown. There=E2=80=99s a faster way: Save the document in .rtf format, then open the .rtf fi= le in a text editor such as notepad.exe. The fonts are listed in a font table ( {\fonttb= l ) located at the very beginning of the file. Each font entry looks something like thi= s: = {\f0\froman\fprq2\fcharset0 Times New Roman;} Any entries with a character set other than \fc

FilePrint Intercept 2010 - is it obsolete?

Hi, Is Ctrl P obsolete in 2010 as it is the old FilePrint screen that was intercepted? Ctrl P moves to Print and Preview screen (now one dialogue) (same as Ctrl F2). Sub FilePrint() intercepts old vba Print Screen - Is Ctrl P therefore obsolete in 2010 because FilePrint screen is for previous versions? All one can do in Print and Print Preview is press PRINT button there is no OK button. So how does one automate the PRINT button execution for old FilePrint() intercept macros when using Ctrl P to print? 'ActiveDocument.PrintOut Background:=False Can someone please c

Fill in fields with parameters values from macro?!

Hello, I have three letters that I need to send out on a regular basis. I want to have an Office application (Excel) call the word document and fill in the Company name and address. I need to have a Word VBA macro that can receive parameters and then substitute them in a document. I know Excel VBA very well, but not sure how to do this in Word. Question ====== How do you write a Word VBA Macro that can receive parameters and then subtitute fields in a document with the parameter values? For example: (Word VBA) Sub ChangeAddress(byRef CompanyName as string, Address

Sorting Tables in Order

Greetings all, I would love some advice/pointers on the following problem please! Our users use a Word Document to record Contact Session details, each contact session takes place on a different day and various detail about these sessions are recorded in a table. For every new session that takes place a new table within the document is created. Within this document, I have previously created a macro which will automatically create a new table and format it as with specific questions for the end user to complete. Within this automatically created table is an ActiveX DTpic

page number

Hi, I insert page number but It doesn't appear(in print preview). It is word 2003. Thanks

Word 2007 VBA Tables & Dates

Hello, I have an empty word document that only has 1 table that has 2 columns & 5 rows. In cell(1,1), I have: January 1,2010 and all I am trying to do in VBA is convert that to a date so that I can do some date math functions, but I can't seem to convert it to date. In the VBA code, i have: Private Sub Document_New() Dim tbl As Table Dim day1 As String Dim day2 As Date Set tbl = ActiveDocument.Tables(1) day1 = (tbl.Cell(1, 1).Range.Text) day2 = (tbl.Cell(1, 1).Range.Text) End Sub However, "day2 = (tbl.Cell(1, 1).Range.Text)" gives me a type

Automating Templates - Continued

Word 2007: have been working to build user form which is used to insert information into company letterhead: specifically name, email address and, when requested, the user's direct telephone number. I created a table in Word containing employee complete names, their email addresses and the direct phone numbers. The phone numbers aren't always included in the letter, but the users want an option to select it depending on who they are writing to. I have created the userform, have inserted code from the "Populate UserForm Listbox" instructions, which has gotten me to the part whe

Making a macro "auto open"

Hello, I have the following macro, which lets me set the zoom level for a document to 75%: Sub View75percent() ' ' View75percent Macro ' ' ActiveWindow.ActivePane.View.Zoom.Percentage = 75 End Sub My question is: how can I edit this to make it an "autoopen" macro, so that it will automatically open all existing documents to this zoom level? Many thanks, Josh Mandel

Switching between documents and windows

Hello, I want to cut and paste from one active document to another and keep the first document window on top. Code I'm working with: Dialogs(wdDialogFileOpen).Show ' user selects the Main.docx file ' Main.docx is activated by default ' select and copy stuff from Main.docx ' open Target.docx via Documents.Open FileName:="""Target.docx""" 'etcetera ' Target.docx is now active and it's window is on top ' paste stuff Now I want to make Main.docx activated and it's window on top. I can activate it easily enough by Windows("Main.docx").Activate But I can't figure out how to m

Name Directory

How do I forward a directory of names.

File in Use problem - again

I was having this problem a few days ago and posted here. Then, almost immediately, I solved it. Or thought I had. Now it's back and the steps I took the last time aren't fixing it this time. I have to believe this is something fairly fundamental and is caused by simply forgetting almost everything about the art of writing Word Macros. Here is the original post again. If anyone can help with this, I'd really appreciate it!! -- I'm revisiting some VBS scripts that I wrote several years ago to generate resumes for me (via Word macros) and would like some guidance. My VBS script

General Question about Macros

Can someone kindly remind me where macros are supposed to be put in Word 2007? Several years ago, I had to learn quite a lot about Word macros (for Word 2002) in the space of only a few days. I put together a bunch of them and got them all working satisfactorily. Unfortunately, I haven't had to touch them since and I feel like I've forgotten almost everything. I've also upgraded to Word 2007, which looks quite different in many respects to Word 2002. So I'm feeling rather clueless right now. I want to use these macros in Word 2007. Most of them still seem to work but I'm ha

Removing External Data

I have a spreadsheet that retrieves external data from a SQL Server database. The user clicks a button that executes a macro. The table returned has a named range. I want to provide a button to REMOVE the data. Can someone point me to an example of how to remove the data (ideally using the named range, but will be happy with any example completing the task). Thanks, MEG

user form that retrieves data from Microsoft Access query

I created a word document that displays a userform when the template is opened, when you click on the ok button on the userform the template should display data that comes from a microsoft access query. The thing is that this works perfectly for me with my non-administrators account. The problem is that whenever another user is trying to open this template no data is being displayed. I checked the permissions on the folder where the template is located and that looks fine. Anyone has any idea what I might be doing wrong here? Thanks in advance.