Show today's date
Hi! Every day I write a report. In the heder of that report is todya's date.
Is there any way that I can write code (or some other way) so that the date
in the header is always todays date? Thanks! Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109129
Get a list of a word document reviewers
I would like to write a macro that will display a list of the document
reviewers to the macro user for selection. The macro will then be able
to jump to the next revision made by the selected reviewer.
However, i could not find a simple way of getting the list of
reviewers (as appears in the Reviewing tool bar). The only way i could
think of, is walking through all revisions and look for the author of
each one, but this may take tool long.
Any idea? Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109127
Dynamic userforms
Hello,
I have created a Word template with a userform attached which appears
on-screen for the user to fill-in and subsequently insert information into a
letter. The macro which initiates this pop-up userform works great. However,
it would be nice to place a date field into the userform that displays the
date a developer last made a change to either the macro or userform
associated with my template. Essentially, I would like to have a dynamic
form in the sense that it displays the date when the template is saved. As
you know, changes to macros and forms only take effect when the associated
template is saved. I know this feature can be done with Javascript for
webpages. Is there something similar under the hood of VBA for Word?
Iâ??m trying to take the headache away from the developers so they will not
have to manually insert a date each time they save changes to the macro
and/or form. Not only would this be invaluable to developers for quality
assurance but it would keep the end user informed to updates.
Thanks!
Ellen Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109126
Code to remove 'Enter' Symbols
I recieve Text files that come from a HTML form and they are delimited by
comma. One of the fields allows people to paste in account information that
has a set format and adds in TABs and Line breaks or the symbols you get get
when you hit enter.
I need to scrub this out of file. Is there any little script that I can run
in Word that would remove these?
THanks!
Mark Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109125
Function shortcut help
Hi,
I recently saw some VB code and there was a shortcut and I was hoping
someone knew what is its correct term.
When creating an object that required parameters (or a function), rather
than putting blanks or nulls in optional parameters, the code named the
param and gave it a value.
In other words, if the function was defined as
functionName(optionalParam1, optionalParam2, optionalParam3, optionalParam4)
it could be called as
functionName(optionalParamName3=paramValue3, optionalParamName4=paramValue4)
or something like that. I would like to read more about this, but what is
it called? Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109117
Macro to Search for Keyword in Files
I'm trying to set up a search for keywords in a specific set of files. I
don't want to have to go through and check the multitude of boxes over and
over again.
Ideally a macro button to execute such a search would be a Godsend.
Anybody have any ideas?
Thanx. Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109114
Serial Number Macro Problem with zeroes
I use the following macro in Word 2003 to produce sequentially numbered
certificates & have 2 problems with it.
Sub SEQserialnumber()
'
' SEQserialnumber Macro
' Macro created 11/09/2007 by Sharon
'
Dim Counter As Long
Dim Message As String, Title As String, Default As String, NumCopies As
Long
Dim Rng1 As Range
' Set prompt.
Message = "Enter the number of copies that you want to print. Get
it right you can't stop it!"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
' Edit from Jay Freedman to enable user to specify serial number
Message = "Enter the starting serial number"
Title = "Serial Number"
SerialNumber = Val(InputBox(Message, Title, Default))
'Next line added to cause Ask field to fire pop-ups
ActiveDocument.Fields.Update
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
Counter = 0
While Counter < NumCopies
Rng1.Delete
Rng1.Text = SerialNumber
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Recreate the bookmark ready for the next use.
With ActiveDocument.Bookmarks
.Add Name:="SerialNumber", Range:=Rng1
End With
'Next line added to update { REF SerialNumber }
'This is more selective than just updating all the fields; in
'particular, the Ask fields (which have .Type = wdFieldAsk) won't be
'updated the second time.
Dim Fld As Field
For Each Fld In ActiveDocument.Fields
If Fld.Type = wdFieldRef Then Fld.Update
Next
ActiveDocument.Close SaveChanges:=False
End Sub
Problem 1: I know find out that serial numbers begin with zeroes e.g.
0000001 to 0000005. If zeroes are entered they do not print and they must do
so to much pre-printed labels.
Problem 2: The 2nd serial number instance is not printing. This is a
mergefield in the document as below.
{ REF SerialNumber \*MERGEFORMAT }
I would be truly grateful for some help with both of these, thanks. Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109107
Word Macro opening Mail Merge Template
I am attempting to upgrade a Word Macro from Word 2000 that runs as a
forground task scheduled via windows scheduler on a unattended server.
During the running of the macro it opens a template built for mail merge that
latter dynamically attaches to a CSV data source.
The issue I am having is that under 2003 opening the templete stops with
"Opening this document will run the following SQL command:" goes on to list
the CSV data source file path which I believe is a request to attach the data
source.
I need to suppress this request message. Currently the template is being
opened with "Documents.Add Template:=Tmplt, newtemplate:=True,
documenttype:=0"
The current folder contains the template named in the variable "Tmplt".
Suggestions?
--
Ron H Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109099
Convert Microsoft Word document to jpeg, multi-page TIFF image
Website: http://www.joyprinter.com
Joy Image Printer is a high-performance virtual printer which enables
you to convert any printable document into standard BMP, GIF, JPEG,
PNG and TIFF image, and keep the exact look and feel of the original
document. Since the converted image has the complete information from
the original file without altering characters or fonts, you don't
need
to install the original software to view the document.
Key Features:
(1) Installs as a standard Windows printer, works for all Windows
applications directly
(2) Converts any printable documents like doc, xls, ppt, rtf, html and
CAD into images
(3) Supports BMP, GIF, PNG, JPEG and TIFF formats
(4)Creates Thumbnails for Printing document
(5)Dynamic file and folder generation based on macros
(6)Supports both single and multi-page TIFF file formats Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109098
Subroutine Library
I am looking foran efficient way to build a subroutine library. I have
thought of just using an excel file with a lot of mofules or using access.
They each have drawbacks. How are you managing your subroutines? Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109095
Remove "TEXT" from CommandBar
This is what I am using to remove but in this instance it is not suitable -
it does not remove it? I use this in 2003/2007 - any help would be
appreciated to get "Style" TEXT removed from CommandBar would be
appreciated!
'If you want to remove the item from the menu, you can do it like this:
Sub RemoveDoStyles()
Dim cb As CommandBar
Dim ctl As CommandBarControl
CustomizationContext = NormalTemplate
Set cb = CommandBars("Text")
For Each ctl In cb.Controls
If ctl.Tag = "Style" Then
ctl.Delete
End If
Next
End Sub
This is the macro that puts the "Style" TEXT on the CommandBar?
Sub DoStyles()
Dim StyleCount As Integer
Dim J As Integer
Dim x As CommandBar, z As CommandBarComboBox
On Error Resume Next
StyleCount = ActiveDocument.Styles.count
Set x = CommandBars.Add("AllMyStyles", msoBarPopup)
Set z = x.Controls.Add(msoControlComboBox)
z.Caption = "Active Styles:"
For J = 1 To StyleCount
If ActiveDocument.Styles(J).InUse Then
z.AddItem ActiveDocument.Styles(J)
End If
Next J
z.Text = Selection.Style
x.ShowPopup
Selection.Style = z.List(z.ListIndex)
CommandBars("AllMyStyles").Delete
End Sub Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109091
Is word at end of the line
When I seach for a word with the code:
Selection.Find.ClearFormatting
With Selection.Find
.Text = " on"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Is there a way to determinine is the word is the last word on that line? I
want to certain words to be moved to the next line if they are at the end of
a line. Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109087
assistant goodbye
At the beginning of your code, you set isVisible = Assistant.Visible
If the end of your code has
.Animation = msoAnimationGoodbye
...and then you finish up with
Assistant.Visible = isVisible
But if the assistant wasn't visible when the user start the code, then this
last line does away with the previous line of animation, so that the
assistant just disappears. ...is there a way to fix this? Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109085
Am I at the end of the document
In my code I have:
Selection.EndKey unit:=wdLine
...this puts me at the end of that line. It's there a way to tell if that
is the last line in the document?
thanks. Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109082
Unicode Find Question
Can Unicode be used in the range.Find function?
In this case, the Cyrillic font word is pasted in a textbox (MS Forms 2.0
library) that a range.Find.execute() routine uses as its Find.Text. How do
you assign an entire Unicode word to Find.Text? Word 2003, Windows XP. Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109078
Formfield Question
I have a document and in it there are 35 checkboxes (Formfields). I have a
form to edit the document but I canâ??t set the checkboxes in the document as
checked/unchecked base on how the form is filled out. How do you write a
macro so that if the checkbox in the form is checked/unchecked it will
check/uncheck the checkboxes in the document? Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109076
Supress blank text
Using Word 2003 with Windows XP
My VBA skills - Fair
I have a template which I inherited. It is a monthly activity report for
off site workers. The template contains 6 areas for acitivity reporting.
Each area has 25 entry possiblities.
In the first area - Meeetings - off site employees are required to report
the meetings they attended. There is MeetingDate1, followed by
MeetingReport1 all the way down to MeetingDate25 and MeetingReport25.
What I would like to do is find some way of supressing any of the Meeting
fields that are blank when the report prints. Right now, the report prints
over 5 pages but most of the time there may be only 10-15 lines of actual
text. Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109075
Copy borders
I want to copy all borders of an HTMLDivision object to a selection.
The HTMLDivision will be deleted before the copy. What is the best way to do
this without doing so for each individual border? Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109074
Help with Clipboard / moving data
Hello,
I have a word vba app (word 2003) that has to get a lot of data from the
clipboard, then parse it / display some of it.
The clipboard data is in a table format, copied from another application
that I can not access programmatically and get zero help from the IT dept
here. When I copy it onto the clipboard, all of the stuff that I want is
in the first table, but it also copies some text and possible a picture
file after the table (which I subsequently ignore when parsing the data)
Currently, I copy the data onto the clipboard from the other application,
then paste it into a new document, then the table/data is read into an
array and the sorting etc takes over and every thing is good. The orginal
paste is deleted
Is there a way to get the table data directly from the clipboard into a
multicolumn array? I have only the vaguest idea what a dataobject is in
connection to this and how this could be used with the clipboard object,
the word help file is pretty slim.
Thanks,
Jim
jimoc@comcast.net Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109067
Checkboxes
I have a template and in it there are 20 checkboxes. I have created a user
form to edit the template. How do I save the checkbox info in the form back
to the checkboxes in the template? Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109047
Merging Bookmarks
I have a Word 97 form with bookmarks. I have a command button with
code that sends the bookmarked data to an Access database. I want to
include in the code a way to check Bookmark A. If Bookmark A contains
no data, insert the data from Bookmarks B and C into Bookmark A.
Thanks for any help you can give me
Ron Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109046
Problem in macro referencing a Com Class built on Dotnet 2.0
Hi Everyone,
I am having a hard time working with Com dll with Word 2003. This is my
first post in this forum and i desperately need help. I thank you in advance.
Scenerio:
I created a Com Class in VB.Net 2.0, which has some public properties,
functions. I use WebClient in the class to download data. I created the setup
using Deployment Wizard containing Test.dll and Test.tlb. I Install it in a
test system and reference the Test.tlb in a word Macro. i can create an
object of my com class. Set a property with text. Display the property in a
msgbox. The Code as follows:
Dim obj As New Testproject.TestClass
obj.MyStr= "The Macro works"
MsgBox (obj.MyStr)
Problems:
When i run the macro it gives me error as:
-2147024894
File or assembly name Testproject, or one of its dependencies, was not found.
Regards
Rohim Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109045
Help text not showing
Help text that I have added to a form field does not show on the status
bar.... so, I tried putting it into the Help key (F1) but the help text does
not appear.
Any suggestions? Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109042
Control Color for Multipage pages
I am able to set the backcolor for a Multipage, but the individual pages
(and their tabs) maintain the color (apparently) of System:ButtonFace. There
is no 'BackColor' in the Properties list at the left for the individual
pages. Is there a way to control the color of the individual pages, and
their tabs.
Ed (in Virginia) Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109032
Changing chemical notation
Hello, I have very large documents with chemical formulas and notation (ex.
CH4 or H2SO4 but never 3H2O (The three is at the biggining of the word))
I would like to:
For each word in the selection (after I selected something) chek if there is
a number sticked (and after) the first and or second and or third ......
letter; if so the to change all the numbers in that word to subscript numbers.
I dont have any experience working with word VBA (some with excell VBA)
thanks a lot Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109030
Can I Use VBA to register global templates?
Does anyone know how to use VBA to write a windows registry key that tells
Word where a global template is located?
My Problem:
I have several workgroup templates that contain references to one global
template which contains a ton of code I use again and again from my workgroup
templates.
As I create the templates, I use "Tools, References" to set the references.
At that point I am logged in as myself and my global template is in the
default word startup folder (in the user profile).
(I want to keep the folder in the default location so I am not affecting
other people who may also be programming for Word and expect to put their
templates there.)
WHAT IS HAPPENING: Several different people may log onto any given computer.
As they do, a login script copies their templates into place for them. WHEN
THIS HAPPENS, sometimes my reference gets broken. It seems it is not looking
to the current startup folder for the global template -- rather it looks to
the other person's location. Internet research tells me when Word looks for
referenced, it looks in a location listed in a registry key for that template
first.
I tried using vba to look for broken refs and fix them, but this isn't
working because my templates crash with a "can't find project or library"
compile error due to other code in them, before they can even run the "fix
references" code.
I BELIEVE the problem is that the windows registry key for the global
templates is still listing the template in the previous users profile and it
is either an old version of the template, or not in a "trusted" location and
won't load due to macro security.
If I could run a line of code in an autoopen macro in my global template
that sets that windows registry key to the current users Word startup
directory I THINK that would fix the problem. But I have no idea what they
key is or how to write to the registry.
Sorry so long! Please help...!!!! Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109021
clip and copy do not work on toolbar or keyboard
I am unable to activate clip and copy toolbar buttons on either my keyboard
or the toolbar. The Paste works okay. I have gone into the customize on the
Edit menu and tried to correct that way but the changes I make are not
retained after I close the customize window. Does anyone have any
suggestions. I have just had to install everything as my XP totally crashed
and installed XP Office Professional Suite which has Word 2003 etc included. Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109017
Appending REF Field data to a csv file
I'm trying to write a macro to take REF field data in MS Word and save/append
that data in a csv file.
So far, I've been able to pull the REF field data and put it in a variable
named sOutput.
(i.e. [sOutput = sInvno & ", " & sDate & ", " & sPartno & ", " & sSerno & ",
" & sDesc & ", " & sStatus & vbCr])
The output of this variable outputs each of the data points comma separated.
I want to take this data, append it to a csv file and automatically save it
without any user interaction. I haven't been able to find any code that can
help me.
Can somebody help me out?
Thanks, Davis Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109011
Printing contents of a section twice
First I am using Word 2003. My macro needs section 2 to be printed twice in
a certain order, for example, Client #1, two copies, Client #2, two copies,
Client#3, two copies, etc. The number of clients can vary, but the beginning
page number in the macro is always Page 2. Then I only need to print 1 copy
of Section 1 and one copy each of Sections 3-9. Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109010
How to "unset" table parameters
Hello,
I have written two macros for copying and pasting table formats.
If the first table does not have a preferred width set, the value is
9999999. The second table may have a preferred width but since I want to make
the same as the table copied, I cannot set the preferred width to 9999999
because I get an error. How then do I "unset" this parameter? Also, the
preferredwidthtype of the first table does not appear to be
wdPreferredWidthAuto.
I have a similar problem with cell widths but the width returned is
255919243. I get an error with this one as well.
Peter Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109009
Error closing files and quitting Word 2007 SP1
I'm using C# for Word interop and can't find another newsgroup so here goes.
I'm creating an instance of Word 2007 SP1 and successfully loading in a
file. However, when I ask it to close all documents, it fails with a COM
error of "Command Failed", HRESULT -2146824090.
The code I'm using is as follows:
// To open the document...
// Not included all variables, but should be obvious what they are...
object format = WdOpenFormat.wdOpenFormatAuto;
this.wordApplication.Documents.Open(
ref theFilename,
ref missing,
ref isReadOnly,
ref oFalse,
ref missing,
ref missing,
ref missing,
ref missing,
ref missing,
ref format,
ref missing,
ref isVisible,
ref missing,
ref missing,
ref missing,
ref missing);
And to close all documents...
object saveChanges = WdSaveOptions.wdDoNotSaveChanges;
object missing = System.Type.Missing;
this.wordApplication.Documents.Close(ref saveChanges, ref missing, ref
missing);
When I open another document I get another window for Word which I don't
want (all documents must open in the same window).
Any suggestions welcome.
Thanks.
Haydn Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 109002
triggering formfield formatting
I have a legal document set up as protected for filling out forms, and some
of the field forms have formatting applied to dates & currencies. When I
populate the document programmatically, the field formats I need
aren't applied until I manually tab through the doc. I tried the code below
but it doesn't do the trick.
TIA,
Eric
Private Sub TabThruForm(doc As Word.Document)
Dim k As Integer
Dim frmFlds As Word.FormFields
Set frmFlds = doc.FormFields
For k = 1 To frmFlds.Count
If k <> frmFlds.Count Then frmFlds(k).Next.Select
Next k
frmFlds(1).Select
End Sub Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 108998
adv: Design reports in Word
This is a bit off-topic but should be of interest to auite a few here.
If you are looking for a reporting solution where you can design the reports
in MS Office (which is a lot faster) - please take a look at Windward.
Windward Reports, the leader in enterprise report generation, has released
the worldâ??s first enterprise reporting software that enables use of Excel as
a design tool. The Windward Reports Server Engine is perfect for users
creating both java reports and .net reports alike, and now allows users to
design reports in both Microsoft Word and Microsoft Excel as well.
Windward, a leader in with its design-in-Word reporting software because of
its ease of use, now adds the advantages of Excel to its portfolio of
simple-to-use, superior reporting products. Windwardâ??s new AutoTag 6.0
reporting software uniquely uses Excel to intelligently figure out sums and
number formatting, and allows users to build a table which supports
calculations. AutoTag 6.0 still outputs to Word, or any other output format,
to produce reporting documents.
Why is this Excel release so important? Simply put: Freedom. By creating an
easy-to-use design tool which allows users to design their reports in Excel
(in addition to word), Windward is freeing up thousands of IT man-hours
normally allocated to report design, and including Excel business users in
their â??power-to the peopleâ?? philosophy. Now, non-technical business users who
prefer Excel, can design their own reports and stay within their comfort zone
while doing so. Windward Reports AutoTag for Excel doesnâ??t just look like
Excel, it IS Excel.
How Does It Work? Begin with a worksheet. Using the AutoTag pull-down menu,
select a data source such as an SQL database or XML file. (AutoTag works in
conjunction with the Windward Reports Standard Server Engine, which gives
your PC the ability to communicate with your organization's data sources,
such as its SQL databases and XML files.) You use standard Excel commands to
format and edit the report, and you assign tags to the data fields using the
AutoTag pull-down menu. When finished, you save your template and, if you
wish, verify that tags are correct with AutoTag's "validate" function.
What makes this unique? With AutoTag for Excel, your number formatting
always carries through â?? it doesnâ??t matter if you output to RTF, PDF, or any
other type. And, by using Excel templates you have a way to easily, and
automatically generate reports that perform calculations on a collection of
values! For instance, you might use Excel to sum all of the line-item
amounts that are generated by an AutoTag. While AutoTag was always easy to
use, this additional capability offers functions not available in a
word-designed template, allowing the software to be used by more people, in
more ways.
When you generate the report Windward Reports merges this template with the
data you have selected. The finished report, with all of your formatting,
positioning and design, is available in minutes instead of hours or even days.
Download a demo or check out a sample report at
http://www.windwardreports.com. For more information on how you can use Excel
or Word to design your reports, call 303-499-2544. Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 108997
Excel cell reference in Word Macro
I have an Excel Spreadsheet that contains some information and I'am try to
reference to one cell in the Excel workbook. This cell needs to be entered
into a New Word document Macro so I can go to our Company Intranet and open
the word document that contains the information I need. The information
needed form our Intranet is to be copied and entered into a New Word documeny
that is to be printed.
Example of code.
e = Excel cell
of = "http//www.psc.uss.com/documents/ECP/02/01/" & e & ".doc"
Documents. Open FileName:=of
The above works when I put the Excel cell information in the Macro. I can
then copy all the information needed and the rest of the Macro runs fine.
I am new at writting code for Word, but do a good job of Excel code.
Please help.
Thanks,
ekreider Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 108993
help! email attachment is blank
I've created a document template with a userform. When I pull up a new
document, I want to be able to "fill in the blanks" on the user form, update
the document, and have it sent automatically to a specific email address. I'm
using Word 2003 and Groupwise. So far so good ... it sends the document to
my email, but when I open the document from my email, it is a new - blank -
document, not document with saved information. Here is the code I'm using:
Private Sub Commandok_Click()
Application.ScreenUpdating = False
With ActiveDocument
.Bookmarks("text1").Range.Text = TextBox1.Value
.Bookmarks("text2").Range.Text = TextBox2.Value
.Bookmarks("text3").Range.Text = TextBox3.Value
End With
Application.ScreenUpdating = True
Unload Me
Temp = ActiveDocument.Name
'Open a GroupWare session Object
Set GWApp = CreateObject("NovellGroupWareSession") ' login to GW
'Login using () will login to the open account or run the login
'script if none was opened.
Set gWAccount = GWApp.Login()
'Create a new message in the Mailbox
Set gwMessage = gWAccount.MailBox.Messages.Add
gwMessage.Subject = "Complaint Form"
gwMessage.BodyText = "Please review the enclosed complaint form"
gwMessage.Recipients.Add "nikolatv@ah.org"
gwMessage.Attachments.Add Temp 'Add an open workbook to the attachments
gwMessage.Send 'Send out
MsgBox ("Your message been successfully sent!")
ActiveDocument.Close
End Sub
I'm missing something, somewhere ... any help at all would be MUCH appreciated Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 108984
Table Cell Data AddIn
I just posted a modification of my Table Cell Data Addin to my website:
http://gregmaxey.mvps.org/Table_Cell_Data_Word2007.htm
This version is for Word2007 and it uses Ribbon customization to display the
data in a "Table Information" tab that I added to the Table Tools tab.
I think it is pretty neat, but I am just a dabbler in XML and I am not sure
if there will be any ill effects of using the Ribbon in this perhaps
unconventional manner. I would appreciate any thoughts or advice on that
matter.
Secondly, if you download the Addin and look at the code, you will see that
I had a problem suppressing the display of the calculation results. My goal
is to show the results only after the Calculate button is depressed, but
then hide that label (e.g., set it to "") when the selection is moved. The
problem is with the value that the .Calculate method returns. It is a
Single and if the value is bogus (e.g., attempts to calculate a selection of
letters) it returns still returns 0. As a work around I picked a relatively
unique number .000000009000000001 and set the Calculation result label to ""
if the result of the calculation is .00000000090000000001. This of course
means that if the actual value of a calculated selection is
.00000000090000000001then the label will not display the answer. I am
looking for a way to set the Calculation result button to "" initially and
then reset it to "" when the selection is moved.
Thanks.
--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word. Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 108983
cancel a macro in progress
Are there shortcut keys that will safely cancel a macro in progress? I am
speaking of macros that ask the user for input (i.e. a number or date).
Sometimes the people I support realize they chose to run the wrong macro or
otherwise want to stop the one they started. I want to give them a safe way
to cancelling the macro in progress that will still be available to them at a
future time.
Any ideas would be appreciated. Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 108982
Update Text In All Footers
Hi Everyone,
I have a VB macro that I need to add something to. I am trying to amend the
text in all footers.
I need the text to show:
"Document Title v1.0 " & "_" & PNAME & "_" & PCODE & ".doc"
where PNAME and PCODE have already been defined earlier.
Can anyone help?
Thanks! :)
Dave Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 108979
go to last page of the document -word 2003
Hi,
I'm trying to program a macro. One of the steps is to go to end of document
and change the header.
I'm unable to find the command (or write the program) to go to last page of
the document. (I don't have number of pages neither bookmarks)
Thanks
--
meme Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 108970
New Word 8 publisher features vs publisher 97+
As a new Mac user waiting for a compatible program to my old MS Publisher
that I can use on my Mac, I learned of the new publishing features in Word 08
that will be bundled in the MS Office 8 for Mac.
What I would like to know is if the new Word publisher option has at least
the same features as the old MS Office. If not, what is missing and why?
Can anyone direct me to where I can find the answers to my questions if no
one can answer them on this forum? Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 108968
How do I get spell check to work in my MSN Email
I've tried everything and cannot get spell check to work in my MSN Email.
Says I don't have dictionary for language choosen. I'm set for English. How
do I correct this. Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 108967
M-I,5.Persecut ion . my respon se to t he harassment
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
-=. my response to the harassment -=
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
My first reaction. in 1990/91 was to assume that if I broke contact then
they would not be able to follow. and would lose interest. So I did the
things that have been suggested by. other people; I sold my television,
stopped listening to the radio. and tried to withdraw away from the sources
of abuse as much as possible. I reasoned that they must have more. important
things to. deal with and that normal people would simply leave me alone if
it were made difficult for them to continue. their harassment.
I reckoned without the sheer vindictiveness of the abusers. They did. not
let up but instead "got to" people around. me, mainly people at work, to do
their dirty work. for them. I went to see my GP, who refused to believe what
he was being told, and refused to direct me on to. anyone who could be of
practical assistance. It was not. until three years had passed that the GP
admitted the matter was. outside his competence and suggested going to the
police.
In the summer of 1994 we called. in counter-surveillance experts from a
private detective. agency to sweep our house and telephone for bugging
devices. They conducted a thorough search and found. nothing; but as noted
above, since. the existence of surveillance was being forced in my face by
the harassers, you would expect them to have taken the possibility. of a
counter-surveillance sweep into account. when planning the type of devices
to. be employed.
In Easter 1995 I made a complaint to my local. Police station in London, but
the. police have not expressed any intention to do anything about the
continuing harassment ("we're not saying it's. happening and we're not
saying it isn't happening" were. the words used). I think the officer I
spoke to at Easter wasn't aware of it happening, although. other members of
the police force obviously. do know.
From April 1995 until the present time the matter has. been discussed in a
lot of detail. on the Usenet (Internet) "uk.misc" newsgroup. That discussion
has given birth to the article which you are now. reading. My hopes in
posting to Usenet were that wider publicizing would discourage. the security
services from. continuing their harassment, and "draw people out" into
concurring with the truth of what was being said.. Neither of those have
followed, but the discussion has served. a purpose in allowing this
structured report to. be created.
8944 Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 108964
M'I-5 Persecut ion ' purpose in publ icizing i t; censorsh ip in u k.* newsgroups
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
-= purpose in publicizing it; censorship in uk.*. newsgroups -=
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
The postings. to uk.misc newsgroup generated a very defensive reaction from
Usenet readers in the UK. So much so, that. they tried strenuously to
suppress what was being said, both by breaking the rules. of netiquette in
their responses on the forum, and directly by action to revoke. the account
from which the postings were. issued.
Yet the postings were within the normal. boundaries of behaviour for
uk.misc, and other less partisan. spectators did not see justice in the
censorship which was. effected, as the following excerpt shows;
:Karen. Lofstrom (lofstrom@lava.net) wrote
:>It. does seem that the frequency and the size of his posts are
:>approaching net abuse. However, IMHO, they. aren't quite there yet. If
:>his postmaster were to act in this instance, it would. raise troubling
:>censorship. issues.
The inescapable. conclusion of the censorship effected on the uk.*
newsgroups is that the. British are intent on their wrongdoing remaining
concealed, and therefore seek to subvert and suppress freedom. of speech,
not only in their own country where the. media shows xenophobic bias and
bile against all. perceived enemies within and without, but also in other
countries which have their. own statutes to guarantee the basic human right
of. free speech.
It is absolutely necessary. to bring their hate campaign out into the open
where it can be placed under scrutiny and the harassers. seen for what they
are. That is the only. way of making it impossible for the security services
to carry it out. There. is a wider dimension, though. Xenophobia as
demonstrated by. British people and institutions over the last few years
belongs to the same stable as racial hatred. In one case, two youths. on a
Tube train made that racism explicit. by referring to their victim as a
"soft toy, not up to. British Standards". Doubtless others victimize partly
on the basis of. race (isn?t it odd that they chose to torment someone who
is not ethnically. English?) while expressing their abuse in terms of
another genetic attribute,. namely mental illness. All xenophobia on a
genetic basis is wrong, but. while racial insults are illegal, abusing the
mentally ill is neither against the. law nor subject to similar condemnation
when it is. exposed.
6514 Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 108963
Range.Calculate
Does anyone know how Range.Calculate manages to define the "range" of a
selection of cells to just those cells and exclude adjacent cells?
I created a simple 3 column x 2 row table and put the number 2 in each cell.
Then I selected the middle column and ran this code:
Sub Test()
Dim oCell As Word.Cell
Dim i As Single
MsgBox Selection.Range.Calculate
MsgBox Selection.Range.Cells.Count 'Returns 4 as unfortunately is expected.
For Each oCell In Selection.Range.Cells
On Error Resume Next
i = i + CSng(Left(oCell.Range.Text, Len(oCell.Range.Text) - 2))
Next oCell
MsgBox i 'Again returns 8 as unfortunately expected.
End Sub
It is the same range, but somehow Range.Calculate knows to process only the
values that are actually selected, and not the entire selection range. How
does it do this?
Thanks
--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word. Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 108962
M`I'5.Perse cution ` abu se in set-u p si tuations a nd in public
-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=-=-=-=-=-=-
-= abuse in. set-up situations and in public -=
-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=-=-=-=-=-=-
Strangers in the street have recognized me on sight many times, and. shown
awareness of. the current thread of abuse. To give you one example, in 1992
I was. seriously ill, and a manager at work somewhat humorously said that
"it wasn't fair" that people. were bullying me. A few days later, I attended
for the first time a clinic in London. as an outpatient, and on my way out
was. accosted by someone who asked if "they had paid my fare", with emphasis
on the word "fare". He repeated the word several times. in this different
context;. that they should have paid my "fare", each time emphasizing the
word.
For two and a half years from the. time their harassment started until
November. 1992 I refused to see a psychiatrist, because I reasoned that I
was not ill of my own action or. fault, but through the stress caused by
harassment, and that a lessening of the. illness would have to be consequent
to a removal of its immediate cause, in. other words a cessation of
harassment. I also. reasoned that since they were taunting me with jokes
about mental illness, if I were. to seek treatment then the abusers would
think that. they had "won" and been proved "right". Remember, the constant
theme of any. persecution is, "we must destroy you because you're X",
whether. X is a racial or other attribute. In this case the X was "we
persecute you because you have brain disease". The similarity of this. logic
to Nazi attitudes to the mentally ill. is striking.
The same. manager who'd said "it wasn't fair" asked me in winter 1992 why I
didn't seek help from a. psychiatrist; was it, he asked, because "they would
think they had won" if I sought treatment? That was. something I'd never
said at work... again, taken separately it proves nothing, but. many such
things over a period of months proves conclusively that people. in the
company knew what was going on, and in quite. a lot of detail.
Usually harassment. in public lacks the level of finesse of "paying your
fare". Most people's. imagination does not go beyond moronic parroting of
the current term of. denigration. That is not surprising given the average
level of the abusers; if. they do not have the intelligence to distinguish
wrong from right then neither will. they have the capacity for anything
other than mindless repetition of. a monosyllabic term calculated to fit
into their. minds.
The first incidents of verbal assault in public were. in again in the summer
of 1990, although they increased in frequency and venom with. time. In July
1990 the first public incident occurred on. a tube train on the Northern
line. Two men and their girlfriends recognised me;. the women sprang to my
defence, saying "He looks perfectly normal, he doesn't look. ill". Their
boyfriends of course knew better, and. followed the party line; one of them
made reference to an "operation", apparently to work at the. tube station
but implicitly to a visit that I had made to. hospital a couple of weeks
previously.
In August 1990 going home from college, soon. after getting on a tube train
at Gloucester Road I was followed by a. group of four youths, who started a
chant of abuse. That they were targeting me was confirmed by. other people
in the carriage, one of whom asked the other "who are they going on at,. is
it the bloke who just got on?" to which the second. replied "yes, I think
so". I was tempted to reply, but as. in every other instance the abusers are
enabled in their. cowardice by physically outnumbering the abused; any
confrontation would result in my being. beaten up, followed by a complaint
to the police. that "he attacked us", and of course he's ill, so he must
have been imagining that we were getting at him. Shitty, aren't. they?
But the shittiness of the four youths on the tube train. is as nothing
compared to the episode. on the National Express coach to Dover in the
summer of 1992. While. going on holiday to the Continent I was verbally set
upon by a couple travelling sitting a few rows. behind. The boy did the
talking, his female companion contributing. only a continuous empty giggling
noise. He spoke loudly to ensure other people on the coach heard,. always
about "they" and "this bloke". but never naming either the abusers or the
person he was talking about. He. said "they" had "found somebody from his
school, and he. was always really stressed at school". They must have dug
deep to find enemies there; perhaps someone who dropped out of. school,
someone who didn't do too well later, who was jealous and keen to. get their
own back? The boy also said "he was in a bed and. breakfast for only one
night and they got him". By a not unexpected coincidence I had been. in a
B&B in Oxford a week previously, which had. been booked from work; other
things lead me to the conclusion that the company's. offices were bugged for
most of the 2 1/2 years that I was there,. so "they" would have known a room
in the B&B had been booked. (But I'll bet. "they" didn't tell the company's
managers their. offices were bugged, did they?).
After a few minutes of this I. went back to where they were sitting and
asked where they were travelling. The. boy named a village in France, and
the. girl's giggling suddenly ceased; presumably it permeated to her brain
cell what the purpose. of the boy's abuse was.
This and other set-up situations. are obviously calculated to provoke a
direct confrontation. which would bring in the police, with the abusers
claiming that they were. the ones attacked. Again in 1992, outside the
house where I was living in Oxford I. was physically attacked by someone -
not punched, just grabbed by the coat, with some verbals thrown in. for good
measure. That. was something the people at work shouldn't have known
about... but soon after a couple of people were talking right. in front of
me about, "I heard he was attacked". The. UK police have a responsibility
for preventing assault occurring, but. they do not seem to take any interest
in meeting. that responsibility. I suppose their attitude is that harassment
does not come within their remit unless it involves physical. assault, and
they will only become involved once that happens. That is of course. quite
the wrong. attitude for them to take, but as I now understand, the police
investigate only the crime they wish. to investigate; if they do not take
your complaints seriously then there is nothing you can do to. make them
take. action.
4084 Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 108961
M`I,5-Perse cution ` w hy won' t th e Bri tish po lice do thei r job and pu t a sto p to i t?
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
-= why won't the British. police do their job and put a stop to it? -=
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
The British police obviously do know what. is taking place. Besides my
interpretations of what individual officers. have said which forces that
conclusion, it would be inconceivable for. them to be unaware of something
on. this scale.
If they know, then they will know that the abusers have broken laws in. the
UK and abroad. Recently the UK introduced. laws against electronic spying
which. carry a penalty of several years jail if caught. If the police know
illegal harassment is taking place, and do nothing about. it, then they are
failing. in their responsibilities.
Last Easter. (1995) I went into the local police station in London and spoke
to. an officer about the harassment against me. But I couldn't provide
tangible evidence; what people said, in many cases years. ago, is beyond
proof, and without something to support my statements. I cannot expect a
police officer to take the. complaint seriously.
The current situation with regard to the police is not. one which allows a
breakthrough in dealing with the problem. On. the one hand, most individual
officers at a local police station may not know about. the ongoing assaults,
so a complaint at that level will. not yield results. Yet the police as an
organisation do know of. the harassment, and they must be aware that a
complaint has been made at a police station. So it is. clearly their duty to
take preventative. action against the continuing molestation, but because
the criminals are operating on behalf. of a state agency, the police are not
carrying out. their duty.
1654 Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 108960
M I-5'Persecution why won' t the Brit ish p olice do thei r jo b and put a stop to i t?
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
-= why won't the British police do their job and put a. stop to it? -=
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
The British police obviously do know what is taking. place. Besides my
interpretations of what individual. officers have said which forces that
conclusion, it would. be inconceivable for them to be unaware of something
on this. scale.
If they know, then they will know. that the abusers have broken laws in the
UK and. abroad. Recently the UK introduced laws against electronic spying
which carry a penalty of several years jail if caught. If. the police know
illegal harassment. is taking place, and do nothing about it, then they are
failing in. their responsibilities.
Last Easter (1995) I went into the local police station in London and. spoke
to an officer about the harassment against me. But. I couldn't provide
tangible evidence;. what people said, in many cases years ago, is beyond
proof, and without something to support my statements. I cannot expect a
police officer to take the complaint. seriously.
The current situation with regard to the police is not one which. allows a
breakthrough in dealing with. the problem. On the one hand, most individual
officers at a. local police station may not know about the ongoing assaults,
so a complaint at that level will not yield results.. Yet the police as an
organisation. do know of the harassment, and they must be aware that a
complaint has been made at a police station. So it is clearly. their duty to
take preventative action against the continuing molestation,. but because
the criminals are operating. on behalf of a state agency, the police are not
carrying out. their duty.
1654 Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 108959
M.I,5.Persecut ion - Be rnard Lev in exp resses hi s v iews
The article of which part is reproduced below was penned by. Bernard Levin
for the Features section of the Times on. 21 September 1991. To my mind, it
described. the situation at the time and in particular a recent meeting with
a friend, during which I for the. first time admitted to someone other than
my GP. that I had been subjected to a conspiracy of harassment over the
previous year and a. half.
>There is a madman running. loose about London, called David Campbell; I have
>no reason to believe that he. is violent, but he should certainly be
>approached with caution. You may know him by the curious glitter. in his
>eyes and a persistent trembling of his hands; if that does. not suffice, you
>will find him attempting to thrust no fewer than 48. books into your arms,
>all hardbacks, with a promise that, if you should return. to the same
>meeting-place next year, he will heave another. 80 at you.
>
>If, by now, the police have arrived and. are keeping a close watch on him,
>you may feel sufficiently emboldened. to examine the books. The jackets are
>a model. of uncluttered typography, elegantly and simply laid out; there is
>an unobtrusive colophon of a rising sun,. probably not picked at random.
>Gaining confidence - the. lunatic is smiling by now, and the policemen, who
>know. about such things, have significantly removed their helmets - you
>could do worse than. take the jacket off the first book in the pile. The
>only word possible to describe the binding. is sumptuous; real cloth in a
>glorious shade of dark green, with the title and author in black and. gold
>on. the spine.
>
>Look at it more closely; your eyes do not deceive you - it. truly does have
>real top-bands and tail-bands, in yellow, and, for good. measure, a silk
>marker ribbon in a lighter green. The paper is. cream-wove and acid-free,
>and the book is sewn,. not glued.
>
>Throughout the. encounter, I should have mentioned, our loony has been
>chattering away, although. what he is trying to say is almost impossible to
>understand; after a time, however, he. becomes sufficiently coherent to make
>clear that he is trying to sell the books to you.. Well, now, such quality
>in. bookmaking today can only be for collectors' limited editions at a
>fearsome. price - #30, #40, #50?
>
>No, no, he says, the glitter more powerful. than ever and the trembling of
>his hands rapidly spreading throughout. his entire body; no, no - the books
>are priced variously at #7, #8 or #9, with the. top price #12.
>
>At this, the policemen understandably put their helmets back on;. one of
>them draws his truncheon and the. other can be heard summoning
>reinforcements on his. walkie-talkie. The madman bursts into tears, and
>swears it. is all true.
>
>And. it is.
>
>David Campbell has acquired. the entire rights to the whole of the
>Everyman's Library, which died a lingering and shameful death a decade. or
>so ago, and he proposes to start it. all over again - 48 volumes this
>September and 80. more next year, in editions I have described, at the
>prices specified. He proposes to launch his amazing venture. simultaneously
>in. Britain and the United States, with the massive firepower of Random
>Century at. his back in this country, and the dashing cavalry of Knopf
>across the water, and no one who. loves literature and courage will forbear
>to. cheer.
At the time this article. was written I had believed for some time that
columnists in the Times and. other journalists had been making references to
my situation. Nothing unusual about this. you may think, plenty of people
have the same sort. of ideas and obviously the papers aren't writing about
them,. so why should my beliefs not be as false as those of others?
What. makes this article so extraordinary is that three or four days
immediately preceding its publication, I had a meeting with. a friend,
during the course of which we discussed the media. persecution, and in
particular. that by Times columnists. It seemed to me, reading the article
by Levin in Saturday?s paper, that. he was describing in some detail his
"artist?s impression" of that meeting.. Most telling are the final
sentences, when he writes, "The madman bursts into. tears, and swears it is
all. true. And it is." Although I did not "burst into tears" (he seems to be
using a bit of. poetic licence and exaggerating) I did try hard to convince
my. friend that it was all true; and I am able to concur with Mr Levin,
because, of course, it. is.
At the beginning of the piece Levin reveals a fear of. being attacked by the
"irrational" subject of his story, saying. "I have no reason to believe that
he is violent, but he. should certainly be approached with caution". This
goes back to the. xenophobic propaganda of "defence" against a "threat"
which. was seen at the very beginning of the harassment. The impression of a
"madman running loose" who needs. to be controlled through an agency which
assigns to itself the mantle of the "police" is also. one which had been
expressed. elsewhere.
In the final. paragraph of this extract, his reference to Everyman?s Library
as having "died a lingering and shameful death a decade or so. ago" shows
clearly what sort of conclusion they wish to their campaign. They. want a
permanent solution, and as. they are prevented from achieving that solution
directly, they waste. significant resources on methods which have been
repeatedly shown. to be ineffective for such a purpose.
1654 Tag: How do I calculate the number of checkboxes chosen on a Word form Tag: 108958
How do I set a calculating text form field to count check box form fields
that have been selected?
Re: How do I calculate the number of checkboxes chosen on a Word form by David
David
Mon Jan 07 14:42:39 PST 2008
On Jan 7, 3:37=A0pm, Paolo <Pa...@discussions.microsoft.com> wrote:
> How do I set a calculating text form field to count check box form fields
> that have been selected? =A0