printing multiple copies VBA
Hi
This line of code works perfectly in Word 2002 but ignores whatever is in
the text box now in Word 2003?
ActiveDocument.Printout Copies: = txtnum.value
I have tried ActiveDocument.Printout Copies: = val(txtnum.value) and this
does not work either?
Any suggestions anyone please?
Thanks
GwenP Tag: auto update invoice date and number. Tag: 106484
Center-Align a table
I need to center align some tables. I am using a macro in which I go to the
table using a bookmark and then do:
Selection.Tables(1).Rows.Alignment = wdAlignRowCenter
this seems to center-align a right-aligned table but is not working for a
left-aligned table. I am thoroughly stumped...! Tag: auto update invoice date and number. Tag: 106480
Style changes
Where, oh! where is the default setting which, if set (or is it unset?),
means I can confirm a style change and click the style box and a dialog box
comes up asking if I want to keep changes or revert back?
I set it ages ago and cannot find where so I can tell a friend.
I am using 2002 but is it the same for all?
Francis Hookham Tag: auto update invoice date and number. Tag: 106475
please clarify menu customization context
Hello
I've read to not change normal.dot when adding a custom menu. So I've put my
custom menu and macros on a global template and saved the template in the
startup folder (wdStartupPath). When i do this (and checked its loaded as an
add-in) I can only see my menu when there is a document open that is attached
to the global template (which I've read I should never have, and don't want).
When the active document is attached to normal.dot I cannot see my menu. But
with alt-F8 I can see my macros on the template.
I thought I had read customization and macros on global templates were
available (and visible) to all open documents, whatever their template. Can
someone pleases clarify if this is supposed to work?
FYI... I've built my menu at runtime with customization context as the
global template and set to visible and enabled. I've also made one manually
at design time with the same result. Word 2002 and 2007
Thanks! Tag: auto update invoice date and number. Tag: 106471
Want to protect, but not lock for viewing
Hi there, for ask field purposes, I've needed to create a lock
function that locks the sheet but does not refresh the fields. So
using this:
ActiveDocument.Protect _
Type:=wdAllowOnlyFormFields, NoReset:=True,
Password:="pfhlock"
The only problem is, this is inserting a "lock for viewing" password
too. This is to be sent out for people to update certain fields but I
don't want to have to provide them with a password because this will
unlock the entire sheet.
How can I get around this? Tag: auto update invoice date and number. Tag: 106470
Saving a setting for a document and template no matter who opens i
---Saving a setting for a document and template no matter who opens it (and
no matter what their normal.dot template specifies)---
Saving a setting for a document and template no matter who opens it (and no
matter what their normal.dot template specifies)
Hello all,
I need to know if setting the Tools>Options > check spelling as you type
while working in a particular document...
will save for just that document, or for all documents ever opened from
that computer. i.e is the setting a..
document setting, or a
user profile setting, or a
template setting?
How do I make Word always 'check spelling as you type' for EVERY document
opened and created, without having to set the option for every document?I'm
guessing I set my own normal.dot template this way. This is fine for
me...but on a network level like SharePoint when many people may look at one
document, just say my normal.dot says to 'check spelling...', but their
normal.dot doesn't have it checked, is there any way I can make it so at
least that particular document has the option set? i.e can i save the
setting to the document itself, not just to normal.dot? Tag: auto update invoice date and number. Tag: 106468
Enable/Disable Toolbar button
Word does it, so how can I do it?
I want to enable/disable a toolbar button depending on cursor
location/selection. For example, if I put the 'Restart Numbering' and
'Continue Numbering' buttons on the 'Formatting' toolbar, Word "knows" to
enable these buttons _only_ if the current selection is numbered. Any ideas
on how to replicate this functionality for the buttons on my own custom
toolbar so the macro assigned to the button can be run only in the correct
context?
(In fact, the 'Restart/Continue Numbering' functionality is the
functionality that I want to replicate, but I can't just add the native Word
buttons to my custom toolbar because this functionality doesn't work with
protected documents. So if somebody has a clever idea for getting around
this...)
--
Cheers!
The Kiwi Koder
Go the (~cough-splutter-gag~) 'Boks... Tag: auto update invoice date and number. Tag: 106459
Saving changes made in a form
If a user opens a form to edit a document, is there a way to save the
original information of the changes made in the document as Variables? If it
can be done is there a way to call it back up later for review?
LEU Tag: auto update invoice date and number. Tag: 106458
Compile Error: Method or data member not found
I keep getting a message that says the following:
Compile Error:
Method or data member not found
The code looks like this:
Private Sub CommandButton1_Click()
ListBox1.BoundColumn = 1
ActiveDocument.Variables("FirstName").Range.InsertBefore
ListBox1.ValueNext i
ListBox1.BoundColumn = 2
ActiveDocument.Variables("LastName").Range.InsertBefore
ListBox1.ValueNext i
' etc.
ActiveDocument.Fields.Update
UserForm1.Hide
End Sub
And the error occurs on this line:
ActiveDocument.Variables("FirstName").Range.InsertBefore
I got this idea form this site:
http://www.pcreview.co.uk/forums/thread-875661.php
I get my ListBox1 to load with this sub:
Sub Userform_Initialize()
Dim i As Integer, Addressee As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim NoOfRecords As Long
' Open the database
Set db = OpenDatabase("C:\Documents and
Settings\RMS\Desktop\Contacts.xls", False, False, "Excel 8.0")
' Retrieve the recordset
Set rs = db.OpenRecordset("SELECT * FROM `List`")
' Determine the number of retrieved records
With rs
.MoveLast
NoOfRecords = .RecordCount
.MoveFirst
End With
' Set the number of Columns = number of Fields in recordset
ListBox1.ColumnCount = rs.Fields.Count
' Load the ListBox with the retrieved records
ListBox1.Column = rs.GetRows(NoOfRecords)
'ListBox1.List = rs.GetRows(NoOfRecords) 'Transposed List
' Cleanup
rs.Close
db.Close
'AddressBlock = db
Set rs = Nothing
Set db = Nothing
End Sub
Does anyone have any ideas as to what I'm doing wrong?
This would be so awesome if I could get it to work!!!
Thanks,
Ryan--
--
RyGuy Tag: auto update invoice date and number. Tag: 106451
Can you load Word 2000 or Word 2003 on the new windows Vista?
Help.........are older versions of Word compatible with Vista....I did not
get software with my new computer & i want to continue to use older versions
of word.
--
cindy Tag: auto update invoice date and number. Tag: 106450
How can I set some style to the words without loss of original underline or bold or other?
There is some text, which has a first words with underline or Bold or
Italicize. Different. How and can I employ to these words some style
BUT these words not must to lost my underline, bold or
italicize.Example (thanks Helmut Weber):
Sub Test455091()
Dim oRng As Range
For Each oRng In ActiveDocument.Sentences
With oRng.Words(1)
.style = ("MyStyle")
End With
Next
End Sub
But this code change my original style for first words.
How can I set some style to the words without loss of original
underline or bold or other?
Is such possible or not? Tag: auto update invoice date and number. Tag: 106442
How to extract content from other word documents
Hi All,
I have a large number of word documents with me and each
document contains section called introduction or overview (header 1) (it is
either one of the two). I would like to consolidate all of this into a new
word document. How do I do the same
In short take (overview/intro) sections from different document and dump it
into a single word file.
Here are my computer details
OS: Windows XP
Office 2003 Professional
Regards,
Arry Tag: auto update invoice date and number. Tag: 106439
when i click on a pictures my format tab opens but the picture st.
When I click on a picture within a document my format tab opens but the
pictures styles button is not on there so how do I get it on there so I can
change the effect of the picture in my word processing class please help me
figure out how to get it so I can do my work. Thanks Sam Tag: auto update invoice date and number. Tag: 106437
Find the index of selected bookmark (Wd 2002 +)
I have a bookmark spanning a selection.
I place the insertion point within the bookmark.
I need to use VBA to determine the name of the bookmark containing the
insertion point.
Sounds simple, but I can't get the index, which I need to get the name.
As a last resort I could note the range of insertion point, and search all
bookmarks for one spanning that range, but that's a bit "heavy".
Any help much appreciated
TIA
Ian B Tag: auto update invoice date and number. Tag: 106434
Load Data from ListBox into Word Doc. BoundColumn?
From Wordâ??s help menu, I can tell that the BoundColumn identifies the column
of associated data values stored for the control. There doesnâ??t seem to be a
whole lot of documentation on this subject, but I am pretty sure it does what
I want it to do.
Thanks to some slick code provided by Doug Robbins, I can get data from an
Excel workbook to populate my ListBox, but I canâ??t seem to get the code form
the ListBox into my Word document.
The code that I am currently working with is shown below:
Sub CommandButton1_Click()
Set NewDoc = ActiveDocument
With NewDoc
cmbFirstName.BoundColumn = 1
.Variables("varFirstName") = cmbFirstName.Value
End With
UserForm1.Hide
End Sub
Private Sub Click()
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"DOCVARIABLE FirstName ", PreserveFormatting:=True
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"DOCVARIABLE LastName ", PreserveFormatting:=True
End Sub
In my word document, I have several fields such as this:
Error! No document variable supplied.
Error! No document variable supplied.
I keep getting this message when I hit Ctrl+F9:
Error! No Document variable Supplied.
What am I doing wrong?
Cordially,
Ryan---
--
RyGuy Tag: auto update invoice date and number. Tag: 106431
Show my own hlp file
I want to show some help context either by clicking a userform
commandbutton or a commandbar chained to a macro.
Can someone show me a code snippet how to do that. I suppose I have to
compile af hlp file, or is there another way? Tag: auto update invoice date and number. Tag: 106429
How to select in whole document all first words in sentences?
There is a document. In this document I need to select all first words
in every sentences. And then I need apply some style to these words.
How I can do it? Thank you. Tag: auto update invoice date and number. Tag: 106426
Need code for prompt and find/replace macro - help!
Hello - total newbie to this, want to start doing more...
I'm trying to set up a macro attached to a document that, after using a
hotkey combination, prompts them for replacement text (for example, ABC
Company replaced with XYZ Corporation).
Basically, an automated way to engage the find/replace feature with a prompt
for replacement text.
I only understand the very basics of the code I've tried to create using the
Record feature, so I need some very basic instructions for my confused brain.
Can you tell me what I need? Many thanks!!
-Mike Tag: auto update invoice date and number. Tag: 106402
Ask the working path to the user
Hi,
I would like to pop up a form when the document open and asking user
the working folder by browsing until the folder. Store the folder path
into a public variable.
Thanks
Stephane Vial Tag: auto update invoice date and number. Tag: 106397
The "new page" or "soft page break" event
Hello, everyone.
When content fills a page and passes the bottom page margin, a new page is
automatcially added (i.e., a "soft" page break). What is the event causing
this behavior? I would like to modify it to do more than add a page.
I'm using Word 2000 (on W2K) and Word 2003 (on XP). Tag: auto update invoice date and number. Tag: 106395
Control A Series of Templates From a Master Document
I have a Master Document which provides the user with a form to input data
which is then held in an ini file). This data is then - currently - accessed
by other templates when I call those other templates on an individual basis.
For example, I have a number of letter templates that are sent off regularly
to my clients . The templates pick up the name and address and other specific
data for that particular letter from the ini file. There ar also templates
for in-house records, for faxes etc
What I would like to do is to be able to access these other templates from
this master document by clicking on a button on the master document, which
would then present me with the desired template.
I am sure ths is a trivial problem, but it's one that has confounded me for
a while. Tag: auto update invoice date and number. Tag: 106393
Delete Everything EXCEPT Items in a Table
Does anyone have a macro that will delete everything in a word document
EXCEPT items in a table?
Thanks,
Ryan---
--
RyGuy Tag: auto update invoice date and number. Tag: 106386
how is "/mMacroName" supposed to work?
The documentation says to use "/mMacroName" to run a macro when starting
Word (from cmd line). But this doesn't work for me. Word starts and
then just sits there doing nothing.
I have "MacroName" in a .dot file in the Word startup dir (not a
Normal.dot file). It's not in a user's startup dir.
Is this setup supposed to work?
-Christopher Allen Tag: auto update invoice date and number. Tag: 106385
Help with Range.TextRetrievalMode?
Just come across this oddity... (Word 2002, under Vista HP)
I don't seem to be able to change the values for TextRetrievalMode
(includehiddentext or includefields) when the range it is applied to is a
comment's range (mycomment.range)... Trying different view types on the
TextRetrievalMode object doesn't help either.
And for different comments the TextRetrievalMode settings seem different
(and inconsistent - so I can't compare comments for their "normal" text)
any ideas? Tag: auto update invoice date and number. Tag: 106381
Protect/unprotect header/footer
Can you protect/unprotect a header/footer? Are these sections to which one
could apply .protect and .unprotect? Tag: auto update invoice date and number. Tag: 106379
Find Keyword, Copy Table, and Place in New Document (almost workin
I am working with the code below to find all files in a directory, with a
certain name, open each, find a keyword, and copy/paste (at append) a table
that contains this keyword, to a summary document. This almost works, but
not quite. I am looking for the text â??Additional Informationâ?? in one or many
tables, in each document in a certain folder on out firmâ??s network drive. I
can import all docs in the folder, but not just the tables that contain the
text â??Additional Informationâ??. What am I doing wrong? I believe the problem
occurs between the two lines marked '************
My code is below:
Sub Append()
Dim i As Long
Application.ScreenUpdating = False
Documents.Add
With Application.FileSearch
.LookIn = "F:\"
.SearchSubFolders = False
.FileName = "*Summary*.doc"
.Execute
For i = 1 To .FoundFiles.Count
If InStr(.FoundFiles(i), "~") = 0 Then
'*************************************
Selection.Find.ClearFormatting
With Selection.Find
.Text = "Additional Information"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
'*************************************
Selection.InsertFile FileName:=(.FoundFiles(i)), _
ConfirmConversions:=False, Link:=False, Attachment:=False
Selection.InsertBreak Type:=wdPageBreak
End If
Next i
End With
End Sub
Regards,
Ryan---
--
RyGuy Tag: auto update invoice date and number. Tag: 106377
Deleting styles with leading spaces in their names
I need to programmatically delete styles whose names begin with a
space character. I know that it's not possible for a user to create
such a thing intentionally -- the style modification/creation dialogue
suppresses such leading spaces. But the paragraph/character hybrid
style logic that Word 2003 and later uses can lead users to
accidentally create styles with names of " Char Char", " Char Char
Char", and so on.
If you record a macro, delete a " Char Char" style by hand, and then
look at what you have recorded, you'll see:
ActiveDocument.Styles(" Char Char").Delete
But simply running this as a VBA command does not actually work: "The
requested member of the collection does not exist".
It also does not work to declare a style variable and use For Each
logic to try to catch it:
Dim myStyle As Style
For Each myStyle In ActiveDocument.Styles
If (myStyle.NameLocal = " Char Char") Then
Debug.Print "", "_Deleting " & myStyle.NameLocal
myStyle.Delete
End If
Next
(Interestingly, myStyle.NameLocal does resolve correctly in the
debug.print statement.)
I've tried escaping the space in the style name, and using a character
reference instead of a literal space, but I can't find the magic
bullet. Any ideas out there?
TIA.... Tag: auto update invoice date and number. Tag: 106374
Move object with text
Having many small screen shots to put into a Word document I prefer to let
the objects dictate where the text goes rather that the other way round. I
therefore have to un-tick 'Move object with text'.
I have tried to record a macro but 'greyed' commands prevent that.
Can you help please?
Francis Hookham Tag: auto update invoice date and number. Tag: 106360
SENDTO ?
I created a form in HTM format in WORD.
I can add a hyperlink to MAILTO: some people.
But, is there a way to change this hyperlink to send the page, opening up a
new email, have it already addressed and all I have to do now is SEND? Tag: auto update invoice date and number. Tag: 106356
Detecting the end of a row
In a mixed selection that begins in a paragraph and ends in the first row of
a table, the range.paragraphs contains the end-of-row marker as a para.
If I select that para range, range.information(wdatendofrowmarker) is false.
If I collapse the range, it's true.
Is there any other way I could detect that the para was the end-of-row
marker without collapsing it or creating a working range to collapse and test?
In other words, is there any way to test that the end of row marker is
selected aside from range.information?
Bear
--
Windows XP, Word 2000 Tag: auto update invoice date and number. Tag: 106353
UserForm Controls and Bookmarks
I have a word document with approx 20 bookmarks in it. I have a UserForm that
populates those bookmarks. I would like the code to be generic but am having
a problem - the following code returns an error "Invalid Qualifier" with
reference to the textBox field name. I would really appreciate somehelp on
this
<code>
Dim Bmk() As String
Dim y As Integer, J As Integer
Dim txtFieldName As String
y = ActiveDocument.Bookmarks.Count
ReDim iniarray(y)
For J = 1 To y
Bmk(J) = ActiveDocument.Bookmarks(J).Name
Trim(txtFieldName) = CStr(Bmk(J))
ActiveDocument.Bookmarks(Bmk(J)).Range.Text = txtFieldName.Text
Next J
</code> Tag: auto update invoice date and number. Tag: 106351
Argument names in subs and functions
When naming arguments for use in a sub or function, should I adhere to my
usual naming format? E.G.
Sub LOParas(ByRef rngWork As Range, strAction As String)
or is
Sub LOParas(ByRef Range As Range, Action As String)
okay?
Bear
--
Windows XP, Word 2000 Tag: auto update invoice date and number. Tag: 106346
Error on updating fields
Group,
While trying to update fields in a document, I am continuously getting the
error: "One or more of the fields in the selection could not be updated".
I've done the same steps for months, (ie, type the doc, insert the fields,
ctrl+a, F9 to update). When I print my documents, it truly is not updating
the fields, I've deleted the fields and re-entered, and still the same error.
This error is not only appearing on one field, but several.
Any suggestions on what this problem could be related to?
Diane Tag: auto update invoice date and number. Tag: 106345
Change a word throughout the document in one step
I have a 75 page document that has a few words that need to be changed
throughout it. For example: If I have a word like Chicago on many pages and
I want to change it to Denver. How can I create a command so that if I
change the first Chicago to Denver, the rest of the Chicago's throughout the
document will change as well? I'm not real familiar with macro's and I don't
want to use the find and replace command. Trying to make this user friendly.
--
Thanks for any assistance you can provide.
RH Tag: auto update invoice date and number. Tag: 106344
How to find out if a style has been used in a given Section?
Hello,
I need to check to find out if a specific style, (e.g., "Heading 1"), is in
use in a given section of a document.
The catch is, I cannot use the Range.Find method to do this. This code is
running during Word's WindowSelectionChange event. And if the user happened
to double-click the Format Painter before moving the selection, the
Range.Find.Execute cancels out the FormatPainter mode.
Also, it is not practical for me to loop all paragraphs in the section to
check for the style, because it may be a very large document, and checking
each paragraph may cause an hourglass and visible delay when the user moves
the cursor around.
Does anyone know of a trick to get what I need under this scenario? Tag: auto update invoice date and number. Tag: 106342
Fill In One Field in a doc and appear elsewhere on the same doc
Hello,
I have designed a form in MSWord. I want to take the input contents of a
Text Form Field on page one and have it also show up on page two
automatically. This is probably easy but I'm not phrasing the question
properly for the Office Assistant to locate an answer. Help me.
Thanks,
--
Michael "I just wanna know" Cryderman Tag: auto update invoice date and number. Tag: 106341
Enter Values from a ListBox
I am almost done (I think) with a project for my supervisor. I am now trying
to get values, that show in a ListBox, to enter into a Word document. The
document has many MergeField elements in it, some of which include
First_Name, Last_Name, Address, City, Zip, Number (which is a unique ID
number.) These are located throughout the document and I think MergeFields
are the best choice for formatting purposes (as far as I know Bookmarks donâ??t
give users much control over formatting). The data comes from an Excel
sheet, which has several named ranges to identify data in each column. Doug
gave me code to get most of this running (thanks a lot). Now, I am just
trying to get the data, that is displayed in the ListBox, into the
appropriate MergeFields in the document. Does anyone here have any idea how
to do this? Iâ??ve seen a few examples online, but not many, and the ones that
I did see donâ??t seem to be helpful at all.
As an aside, Doug game me some code before, which was great for another
project where I used a Bookmark to reserve a location for a reference that I
used for another project. The code is:
Private Sub CommandButton1_Click()
Dim i As Integer, Addressee As String
Addressee = ""
For i = 1 To ListBox1.ColumnCount
ListBox1.BoundColumn = i
Addressee = Addressee & ListBox1.Value & vbCr
Next i
ActiveDocument.Bookmarks("Addressee").Range.InsertAfter Addressee
UserForm1.Hide
End Sub
This is pretty much what I want to do with my MergeFields. The code that I
need may be very similar to this, but Iâ??m not sure because Iâ??ve never used
MergeFields before. I tried the Macro Recorder; it didnâ??t help much. Any
guidance would be greatly appreciated.
Regards,
Ryan---
--
RyGuy Tag: auto update invoice date and number. Tag: 106338
Editing the target or multiple hyperlinks
I have a large group of files that will all exist in a single folder. I want
to open each document. Go through and change every hyperlink by deleting the
first portion of the link. Then save the document, close the document and
move on to the next one in the folder.
What this is doing is changing the hyperlinks from fully qualified to
relative. Let me give this as an example. Every hyperlink in every doc is
the same and looks like this.
http://servername/applicationname/appname.exe/open/docID#
I want them to all go to
/applicationname/appname.exe/open/docid#
Each Document ID number is unique. The portion to remove is acutally 33
characters. This will allow for users on different servers to view the
documents without authenticating to another server.
Thanks for all of your help.
LWhite Tag: auto update invoice date and number. Tag: 106337
Hyperlinks from Word into a PDF?
Is there any way to make hyperlinks in a Word.doc that will jump the user
seamlessly into a bookmarked section of text within a PDF displayed in
Acrobat? Tag: auto update invoice date and number. Tag: 106336
Find and Create Range Problem
I'm using Word 2007 on WinXP SP2.
I have several document which have instances of things like:
[BEGIN BOXED TEXT]
(some paragraphs)
[END BOXED TEXT]
I need a macro to search the document for each such instance, and select
it (or create a range) - I can do the rest (probably!).
The method I have at the moment is below and has two problems: one,
after the first loop, the selected range gets too big, and two, it keeps
repeating the first instance of FIND, rather than jumping through them all.
Thanks in advance,
Darren
Sub StyleReset()
'
' StyleReset Macro
'
' CTRL+ALT+`
' (I've snipped out some lines that aren't relevant here
FormatChange "[BEGIN BULLETED LIST]"
FormatChange "[BEGIN BOXED TEXT]"
FormatChange "[BEGIN SIDEBAR]"
FormatChange "[BEGIN TABLE]"
End Sub
Sub FormatChange(FindChar As String, Optional FindStyle As String = "")
Dim MyRange As Range, StartRange As Range
Selection.GoTo What:=wdGoToBookmark, Name:="TextStart"
Selection.Collapse
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = FindChar
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Do While Selection.Find.Execute
Select Case FindChar
' I've snipped out the Cases that are working ok -
' it's the next Case I'm having trouble with
Case "[BEGIN SIDEBAR]", "[BEGIN TABLE]", "[BEGIN BOXED TEXT]",
"[BEGIN BULLETED LIST]"
' need to select the area
' find the first "[END" - set a range within
'
Set MyRange = Selection.Range
MyRange.SetRange Start:=Selection.MoveStart(wdLine, 1),
End:=MyRange.End
MyRange.Collapse wdCollapseStart
Set StartRange = MyRange.Duplicate
With MyRange.Find
.Forward = True
.Wrap = wdFindStop
.Text = "[END"
.Replacement.Text = ""
.Execute
If .Found Then
''Extend the range from the found item back to the
start of the original range
MyRange.Start = StartRange.Start
MyRange.Select
Selection.MoveEnd Unit:=wdLine, Count:=-1
Set MyRange = Selection.Range
' do stuff here
End If
End With
Case "<s>"
' this is a small table. Need to find the first paragraph that
doesn't contain a tab mark.
Case Else
End Select
Loop
End Sub Tag: auto update invoice date and number. Tag: 106331
Help with inline shapes
Hello,
I am trying to make a DOT file with a number of text boxes set up as
inlineshapes. I can get them in the document fine (names in property list
of TBox1, Tbox2 etc), and they work with the dblclick event just fine but I
can not refer to them outside of the doubleclick event sub as inlineshapes
"don't have names".
The textbox has a name (like TBox1) and I can refer to it's name, but when
I try to pass it to another sub to work on the text, it fails - generally
telling me that the (name) method/property isn't valid. I tried to refer
to the textbox with the index from the inlineshapes collection, but I can
not find out which index number corresponds to the textbox.
Any help/directions is appreciated.
Jim Tag: auto update invoice date and number. Tag: 106327
Fill One form and auto-populate another form.
Hi,
I have two forms. One form is for the company to keep and the other is a
government agency form which I have to e-mai/fax to governemnt agency. Both
are MS Word forms. What I want to do is populate one form (company form) and
then auto-populate the second form (government form). Since about half of
the data for the company form is the same as the government form i want to be
able to pupulate the government form when user enter the information in the
company form. Is this possible to do? Tag: auto update invoice date and number. Tag: 106325
adding attachment to form prior to email
Is there a way a browse button can be added to a protected form to allow for
attachments to be added prior to the form being e-mail (via a command
button). Thanks for your help. Tag: auto update invoice date and number. Tag: 106313
Problem with routing slip
I have a protected form that I'm having folks fill out and e-mail to me via a
command button on the form. One of the field on the form is "current date".
If I set the properties to prefill current date, the form errors....if I just
have the properties set to date, not current date, it works fine. Am I
missing something in the code. The code behind the button is below
Private Sub CommandButton1_Click()
ActiveDocument.HasRoutingSlip = True
With ActiveDocument.RoutingSlip
.Subject = "Updates"
.AddRecipient "JLORD@xxxxxxxx.com"
.Delivery = wdAllAtOnce
End With
ActiveDocument.Route
End Sub Tag: auto update invoice date and number. Tag: 106310
Mail Merge office 2003 from SQL 2000 Database
I am working for a client on SQL Server 2000. They have an urgent
requirement regarding Mail Merge and I simply do not have the knowledge to
help. Here is the problem as sent to me, can anyone assist (apparently it
worked fine from ASP with Office 2000) :
I am looking for someone to solve the problem described under 'Requirement'
below:
Database: SQL 2000
Contains 2 tables with data:
TableA: contains all the data
TableB: contains 2 fields: Field1: Unique Identifier to line in TableA
Field2: Staff Number
Staff select records to be mail merged using a search and select process
through our Intranet. Their selection list is recorded in TableB. This Table
is then joined to TableA for the merge (ie in a View)
Requirement:
To mail merge the selection list against their staff number into Word 2003
using a selected template (we could end up with several different template
layouts).
Several staff could be using the system at the same time.
I need this to be as automated as possible. Staff using the system should
not have to go through the mail merge system currently offered in Word 2003.
Ideally they should be able to select a template, click on it, type in their
staff number and then the mail merge should be automatic from that point to
delivering the result in Word.
The mail-merge also needs to deal with a couple of conditional if
statements, based on a confidential indicator (values 0 â?? 4), two fields can
either be shown or not dependant of the Indicator value.
Pointers of assistance greatly appreciated.
TIA
Trev Tag: auto update invoice date and number. Tag: 106307
Splitting doc by header style
Hello,
Ive got a word doc that is basically in this format with no page breaks
Page Title(Heading 2)
Page Data(Table)
Page Title(Heading 2)
Page Data(Table)
Page Title(Heading 2)
Page Data(Table)
etc...
Im using .net to loop through the doc by Paragraph and Table and Im able to
get to the plain text of the objects via a paragraph loop but i cant seem to
narrow down the data formatted as Heading 2 and just get the next table as
html or similar so that I can create some pages based on them.
Id like to do something similar to this although it's obviously not right (
i have 40 items marked with heading 2 but the headers loop only runs 3 times.)
For Each h As Word.HeaderFooter In s.Headers
'?PageTitle=h.range.Text
'?BodyText = '?Table and Text
Next
Ive seen this type of functionalty in tools like robohelp(split document
into web pages based on defined formatting) before but im not sure what the
proper logic would be do get to these pieces of data
I appreciate any insight you have and would be glad to clarify further.
Thanks in Advance
DrewG Tag: auto update invoice date and number. Tag: 106289
macro to intersperse numbered lists
Hi,
I need a macro to move numbered answers from a long list to immediately
follow the test question with the same number. Here is how the document looks
(see below). This is a shortened version. Most of the tests have about 33
questions total, so there would be more matching, true/false, and multiple
choice questions, numbered from 1-33. There are tabs before and after each
number. The matching section is a little different from the rest of the test.
The matching answers are not to be interspersed with the questions. They are
just to follow the questions in a list. This is difficult to explain, so also
included below is what the final document needs to look like. Perhaps if
someone can help get me started, I can modify the macro as needed. Thanks for
your help. Also, these files are .txt files and do not contain any
auto-numbering.
Chapter Title
Name
Date Period Score
Chapter 3 Test
Matching: Match the following terms and identifying phrases.
1. People who buy and use finished products.
2. The process of finding or creating a profitable market for specific
goods or services.
3. Intangible activities or benefits that are performed and have value.
A. business cycle
B. competition
C. consumers
True/False: Circle T if the statement is true or F if the statement is false.
T F 4. Fashion-related businesses are crucial to the U.S. economy through
the materials and services they buy, produce, and sell, and the wages and
taxes they pay.
T F 5. Goods are either products or services.
T F 6. In a free-market system, companies with products to sell can charge
any price and sell to anyone willing to pay that price.
Multiple Choice: Choose the best response. Write the letter in the space
provided.
7. Retailers are companies that _____.
A. make goods
B. sell merchandise in small quantities to consumers
C. offer products for sale to industrial businesses
D. sell goods in bulk to limited numbers of customers
8. In a free-market system, _____.
A. the government and individuals make key economic decisions equally
B. people freely choose what to buy in the marketplace
C. there is heavy government control of what is bought and sold
D. None of the above.
9. When there is more competition, _____.
A. the profits per item sold are lower for the businesses involved
B. products tend to be of a higher quality and more innovative
C. prices for similar products are lower for customers
D. All of the above.
Essay Questions: Provide complete responses to the following questions or
statements.
10. Describe the market structures of pure competition and monopoly.
11. List at least three advantages and three disadvantages of the corporate
form of business ownership.
12. Briefly explain the four main elements of a marketing mix.
Chapter 3 Test
1. C
2. E
3. I
4. T
5. F
6. T
7. B
8. B
9. D
10. Pure competition is a market structure in which no company in an
industry is extremely large or powerful enough to influence or control
prices. Monopoly is a market structure in which there are no direct
competitors in an industry; one company controls it.
11. (See 3-11 in the text under â??Corporation.â??)
12. product: bringing the goods and/or services that are in demand into
existence and to the market; price: pricing the products at the level that
maximizes overall profits; place: how and where products are offered to
customers; the distribution of selling and delivery into the hands of
customers; promotion: nonpersonal activity to a large audience that furthers
the sale of goods or services
This is what the final test needs to look like. The numbers before each
answer needs to be replaced with ANS:, except the matching section is a
little different.
Chapter Title
Name
Date Period Score
Chapter 3 Test
Matching: Match the following terms and identifying phrases.
A. business cycle
B. competition
C. consumers
1. People who buy and use finished products.
2. The process of finding or creating a profitable market for specific
goods or services.
3. Intangible activities or benefits that are performed and have value.
1. ANS: C
2. ANS: E
3. ANS: I
True/False: Circle T if the statement is true or F if the statement is false.
4. Fashion-related businesses are crucial to the U.S. economy through the
materials and services they buy, produce, and sell, and the wages and taxes
they pay.
ANS: T
5. Goods are either products or services.
ANS: F
6. In a free-market system, companies with products to sell can charge any
price and sell to anyone willing to pay that price.
ANS: T
Multiple Choice: Choose the best response. Write the letter in the space
provided.
7. Retailers are companies that _____.
A. make goods
B. sell merchandise in small quantities to consumers
C. offer products for sale to industrial businesses
D. sell goods in bulk to limited numbers of customers
ANS: B
8. In a free-market system, _____.
A. the government and individuals make key economic decisions equally
B. people freely choose what to buy in the marketplace
C. there is heavy government control of what is bought and sold
D. None of the above.
ANS: B
9. When there is more competition, _____.
A. the profits per item sold are lower for the businesses involved
B. products tend to be of a higher quality and more innovative
C. prices for similar products are lower for customers
D. All of the above.
ANS: D
Essay Questions: Provide complete responses to the following questions or
statements.
10. Describe the market structures of pure competition and monopoly.
ANS: Pure competition is a market structure in which no company in an
industry is extremely large or powerful enough to influence or control
prices. Monopoly is a market structure in which there are no direct
competitors in an industry; one company controls it.
11. List at least three advantages and three disadvantages of the corporate
form of business ownership.
ANS: (See 3-11 in the text under â??Corporation.â??)
12. Briefly explain the four main elements of a marketing mix.
ANS: product: bringing the goods and/or services that are in demand into
existence and to the market; price: pricing the products at the level that
maximizes overall profits; place: how and where products are offered to
customers; the distribution of selling and delivery into the hands of
customers; promotion: nonpersonal activity to a large audience that furthers
the sale of goods or services Tag: auto update invoice date and number. Tag: 106277
What can I do to get my invoice template to automatically update the date and
invoice number when I open it?