Adding autotex to a template
I have a letter template macro as a form chooser and I would like to add
various autotext in a list so that they can be added to the address bookmark
in the template. Is there a way or would I have to add each company name to
a module as an additem and then put the addresses in a macro in the form
chooser? If there is a better way which will pick up the autotex which are
contained in a global template in startup then that would be great as then I
wouldn't have to add a new macro every time someone requires a new address
adding to the list.
Many thanks Tag: Add-on encountered a problem Tag: 87632
Need to extract a Date value (text) from a Word doc
Hello,
We have about 950 word docs that have a date value in them, to which we need
to know so we can bill them for a specific period.
Each doc has the specific date contained in this phrase: "REPORT DATE:
August 25, 2004". If it's relevant, the actual date (August 25, 2004) begins
on line 10, col 15.
All of the 950 docs have a file name in this format, eg: 1-1-111-111 and
then the DOC extension, eg: 7-5-047-053.doc
So, I need a routine that I can run WITHOUT having to open each and every
one of the word docs. If the routine needs to run inside an empty (IOW:
where no file is actually loaded or created) Word session, that's OK. The
routine needs to extract the date (AND the filename) and put them into a text
file (which I will import into Excel later) with two columns like below:
FILE NAME REPORT DATE
7-5-047-053.doc August 25, 2004*
* Note: if it is easier to change the date into another format such as
8/25/04 or whatever, that's OK with me.
Looking forward to seeing your responses! Tag: Add-on encountered a problem Tag: 87630
Custom Macro My Documents defaulting error
,
We use word 2003 in our company. We have some shared folders that we want
our users to have a direct path to from word. We created a macro
Sub ISP()
ChangeFileOpenDirectory "\\Xpcdc001\Plans\ISP\"
SendKeys "^o" '
End Sub
This macro browsers to the \\Xpcdc001\Plans\ISP\ share and then does a
control O to open the open file box.
We added this macro under tools --> macros --> macros
then added the macros name and typed the vba code between the sub and end
sub into the editor.
Next we wanted to create a custom menu item linking to this macro so that
our users would be able to run it easy .
We went to tools --> custom --> comands
added a new menu and added the macro to the menu.
We get very odd results.
When word is started and you go to the menu and click the macro it opens the
open file box and defaults to my documents (which is incorrect because it
should default to the share specified) When you close the file open box and
reclick it without closing word you get the correct location in the file
open box. You get the correct location everytime then when you click the
macro till word is closed and reloaded. Always on the first time it
defaults to the my documents location.
I have downloaded all patches and service pack 2 from office website and
still did not resolve the problem.
Any input on this problem will help alot.
Danewman@ahrc.org Tag: Add-on encountered a problem Tag: 87625
How to show a list of words for me to choose?
Hi,
I need to type a lot of documents in which some phrases occur very
often. Some of the examples are "medical evidence", "medical report",
"Statements of Claim", "Statements of Damages".
Given that some groups of words appear very frequently, I would like to
use VBA to let me choose from a list of phrases after I have typed a
few letters of the target phrase. For example, when I type "med", the
list of "medical", "medical report" and "medical evidence" will pop up
automatically and I can choose a phrase, say "medical report", that I
need from this list. Can someone tell me how to do this or tell me the
good books about Word VBA teaching me to do this? Thank you.
David Tag: Add-on encountered a problem Tag: 87623
word files with embedded excel objects
I have a user that has ~300 word files. Each of these word files have
embedded excel objects in them.
The powers that be want a program written that will open these word
files and edit hyperlinks that are inserted into the excel objects. Is
this doable? Any help getting started would be apreciated.
Thanks
Mike Tag: Add-on encountered a problem Tag: 87617
String too long error
I am a complete novice at programming in Word so please bear with me. I am a
developing a Lotus Notes application that needs to output a document to Word.
I have created a tabular Word template and am outputting the individual
fields as strings, so for example:
worddoc.FormFields(1).result = RaisedBy
This is working fine for all of the fields except for the final one which is
a text field that can contain a fair amount of data and is generating a Word
"Script too long error"..
Does anyone have any suggestions as to how I can get around this? Could it
be because the field is contained in a table cell? I've been really
struggling with this output and the best way to do it as I have no experience
of the features of Word at all.
Any help would be greatly appreciated.
Kate Tag: Add-on encountered a problem Tag: 87616
attaching a document to email
Hi, I am sorry for reposting, but i have lost original thread
I am attaching a doucment to an email using
Options.SendMailAttach = True
ActiveDocument.sendmail
i have been trying to use mailEnvelope to add the to: field and the Subject:
field. but cant get the correct syntax. Can someone help please
Thanks J Tag: Add-on encountered a problem Tag: 87615
How to include macros in .doc file
HI,
I am using Word 2003.
I wrote template lets call it "test.dot" which uses macros.
When I create .doc file using test.dot on my PC I can use macros.
In Tools->Template and Add-ins->Document Template is path to the template
the .doc is based on. For Example C:\\...\test.dot
But when I created .doc on my PC and send it via email as attachment the
user in the other site can not use macros while the path to the template the
.doc is based on is not actuell.
My Problem is how can I include macros to the .doc document that it works on
every machine without having information about template.
Is it possible? Tag: Add-on encountered a problem Tag: 87607
Strange Print Error With VBA Created Doc - Solution
The solution was in the Word Application itself.
Tools->Options->Print->Hidden Text. Selecting this option fixed it.
Seems on some machines, Word treats vba created text in text boxes as
hidden by default.
hals_left
Hi This may or not be vba related.
Has anyone ever encountered a prioblem like this before, Or know a
solution
A table cell in a word doc contains multiple address lines, created
using the code below in a template.
The address loooks just fine in Word and even in print preview, but on
the actual paper on the first line appears. Also intermittent , works
ok on some printers.
Users have found a workaround, cut the address then paste it back
before printing.
Any thoughts ?
Thanks
hals_left
Set objRS = objConn.Execute(strSQL)
If Not objRS.EOF Then
strAddress= objRS("BusinessName")
strAdd1 = objRS("Add1")
strAdd2 = objRS("Add2")
strAdd3 = objRS("Add3")
strTown = objRS("TownCity")
strCountyLine = objRS("County") & vbTab & objRS("PostCode")
If strAdd1 <> "" Then strAddress = strAddress & vbCrLf &
strAdd1
If strAdd2 <> "" Then strAddress = strAddress & vbCrLf &
strAdd2
If strAdd3 <> "" Then strAddress = strAddress & vbCrLf &
strAdd3
If strTown <> "" Then strAddress = strAddress & vbCrLf &
strTown
strAddress = strAddress & vbCrLf & strCountyLine
ActiveDocument.Tables(2).Rows(1).Cells(1).Select
Selection.Text = strAddress Tag: Add-on encountered a problem Tag: 87604
Count files
Part of my Word macro is using for counting files in a folder. The problem is
that result of counting also includes all open files in that folder. So the
number of files is correct only if no documents are open in that folder.
This worked well in Office 2000 (Word 2000). Result didn't include open files.
The macro is the same and it doesn't work correctly in Office 2003 (Word
2003).
The code:
Dim stevec As Integer
With Application.FileSearch
.FileName = "pr????.doc"
.LookIn = "\\_server_\_folder_\"
.SearchSubFolders = False
.Execute
For stevec = 1 To .FoundFiles.Count
Next
End With
MsgBox Stevec
Regards, Iztok Tag: Add-on encountered a problem Tag: 87603
how can I set tab stops for only fill-in areas of the document?
I want to be able to tab to different areas of my document where a blank
needs to be filled in, and ONLY those areas. I want to start at the top of
the document and have my tabs go to the next blank that needs to be filled
in, and so on. Tag: Add-on encountered a problem Tag: 87599
esoteric Word VBA run order issue - not trying to scare off anyone
I created a form and some VBA code behind it in a Word doc file. Under the
ThisDocument (Microsoft Word Objects) for Document_Open() I have the
following code:
Private Sub Document_Open()
form1.Show
End Sub
That kicks off the form but I get a Run-time error '5852': Requested object
is not available. I did a line by line execution run and found that the error
occurs in this line
strPatMasterID =
ThisDocument.MailMerge.DataSource.DataFields("PatentMasterID").Value
The problem is order in which the code is executed. The mailmerge (based on
msquery) is kicked off after the form opens (or in this case because of the
error, when I click "end" to stop the code)... so obiviously it cannot
retrieve the mailmerge.datasource.datafields if the mailmerge doesn't run
first.
So, does anyone how now I can manipulate the run order of the VBA code or
explicitly force the msquery to run first before I retrieve the data? Would
setting a timer work?
thanks in advance for your help Tag: Add-on encountered a problem Tag: 87594
Formatting in endnote to text macro?
I've just come across a Word macro Doug Robbins posted on Google Groups
some time back to convert endnotes to text (below). I'm grateful for
this, which will be useful as I and a co-author have a lot of endnotes
to convert before submitting a book.
When I run it, however, I lose all the formatting in my endnotes, which
is a problem for all the italicized book titles in my notes. Is there
any way to retain this formatting?
Thanks for any help you can provide.
Yours,
David.
--
From:
Doug Robbins- view profile
<http://groups.google.com/groups/profile?enc_user=n5ytSBIAAADLukhUwkIQqTf
lNRzxM-TQII73Nnd8MGuFrQYThHx-nw>
Date:
Wed, Jan 19 2005 3:41am
Email:
"Doug Robbins" <d...
<http://groups.google.com/groups/unlock?msg=a80683a23dc18ad5&_done=/group
/microsoft.public.word.formatting.longdocs/browse_frm/thread/e186d433d465
8f5/a80683a23dc18ad5%2523a80683a23dc18ad5%3F> @NOmvpsSPAM.org>
Groups:
microsoft.public.word.formatting.longdocs
' Macro created 29/09/99 by Doug Robbins to replace endnotes with
textnotes
at end of document
' to replace the endnote reference in the body of the document with a
superscript number.
'
Dim aendnote As Endnote
For Each aendnote In ActiveDocument.Endnotes
ActiveDocument.Range.InsertAfter vbCr & aendnote.Index & vbTab &
aendnote.Range
aendnote.Reference.InsertBefore "a" & aendnote.Index & "a"
Next aendnote
For Each aendnote In ActiveDocument.Endnotes
aendnote.Reference.Delete
Next aendnote
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Superscript = True
End With
With Selection.Find
.Text = "(a)([0-9]{1,})(a)"
.Replacement.Text = "\2"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll Tag: Add-on encountered a problem Tag: 87589
how do i get the paragraph symbol out every time i create a page?
every time i get into a word office to type something
i get a paragraph sign and i can't delete it. it's not temporary either it's
every time i get in Word
and my space isn't a space they are dots. like this.....but a little
higher.so it's not on the line. am i confusing people more now? please help
it's driving my nuts!!!!!!
thank you
Hope Tag: Add-on encountered a problem Tag: 87586
WHERE IS A SAVE OPTIONS LOCATED AT?
Hello dearest,
Today I am posting these questions, because I really do not know how to find
out how to work of problems. That why I really need help from all of you
people, please help me to solving out, Thanks.
PS. I have open an application forms, and when I get into an application
forms trying to filling out, however I cannot typed. Is because of the hand
have showing and it will not let me type. I cannot figure out how to solving
problem. Could you please helping me to solving out of those problems please?
Thanks. My e-mail address is (tolovingyouforever4@yahoo.com); please reply an
answer back to me,
Respectfully yours,
A.H.K. Tag: Add-on encountered a problem Tag: 87585
How can I design form templates to give textbox on checkbox click
I am trying to create a form template so that when you click on a checkbox,
another form field will appear. For example: I want to give someone the
option to put recommendations and the number 1)
But if they have more than 1 recommendation I want to be able to have them
click a checkbox and another (Number 2) textbox will appear.
Does anyone know how to do this or where i can go for some answers?
Thansk, Tag: Add-on encountered a problem Tag: 87578
value for record at EOF
(Using Word 2003)
I have 20 records in a database and the ID of the 20th record is 24.
Whenever I attempt to extract the ID# of the last record, it only shows the
count (in other words, returns 20 instead of 24), using this code:
jbID = ActiveDocument.MailMerge.DataSource.DataFields("jbID").Value
If someone can show me an example of what should go before this so as to
return the value of the last record, I'd appreciate it. I've tried different
things with recordsets and EOF but I keep getting errors, even after setting
up all the references for ADO and DAO. I'm connecting to the database since
it's returning the record count, but I can't seem to pull up the actual value
of the ID field in the last record.
Many thanks in advance for your help.
--
Bryan Tag: Add-on encountered a problem Tag: 87566
Search and Replace
This is probably a crude, brutish way to attack my problem, but given my
limited knowledge, that is all I have. My question is: Is there a way to
search for particular text and replace each instance with a blank Text Form
Field?
Background:
I have made a merge document to fill in data from our client(s). There are
some areas of the document that are not worth tracking in our database and
will need to be filled in manually.
I have found that mergefields and form fields do not play well together
because of the locking requirement for form fields. Our secretaries are not
well-versed in Word, and I am trying to make it as easy and error-free as
possible to complete these documents.
My idea was to complete the merge and then have them run a macro (from a
custom menu) that unlinked the mergefields, replaced "**" throughout the text
with a Text Form Field, then locked the document for the remaining data entry
so that they could tab from area to area and fill in the required missing
information.
Like I said probably crude and brutish in an attempt to be efficient and
helpful.
Thanks for any pointers. Tag: Add-on encountered a problem Tag: 87557
Please Help with My Document ASAP
Hello,
I need help with my document. The date on one page needs to be on
two lines, not one. I need to add an extra page so I can finish
my notes
for my job. Information is confidential as far as contents. I'm
using
Microsoft Word and have Windows XP.
Susie
ncirisgal@gmail.com Tag: Add-on encountered a problem Tag: 87555
Create custom toolbar controls
How do you create toolbar controls (besides ordinary buttons), e.g. similar
to the default highlight control, font color control, etc. Visual basic does
not seem to be able to create these. Tag: Add-on encountered a problem Tag: 87550
Outlook object not being created
When I ran the following code the first couple of times it created the
object, but now it won't. My objective is to create an e-mail with variables
defined previously in macro, and not sending it right away. Any suggestions?
(The reference library Outlook item is check-boxed in the menu.)
Dim objOutlookApp As Outlook.Application, objItem As Outlook.MailItem
With objItem
.To = strEmail
.Subject = strCo & ", " & " " & strJ
.Body = "message"
.Display
End With
Selection.InsertFile FileName:=strNew, Range:="", ConfirmConversions:=False,
Link:=False, Attachment:=True
Set objItem = Nothing
Set objOutlookApp = Nothing
--
Bryan Tag: Add-on encountered a problem Tag: 87549
Fonts for Word "Fields" when setting values
We have a java application in which we create custom fields in MS Word using
JACOB. On user initiation the fields are populated with values. If after
creating the fields and change the FONT to a BARCODE font and when the fields
are getting replaced with values, the BarCode font is not retained. The
values are shown in original font. This happens only in Word 2003. The Bar
Code font is retained for field values in Word 2000.
Is there any setting or property to be set so that Bar Code fonts are
retained for field values. The machine has Bar Code fonts installed.
Thanks in advance for any suggestion. Tag: Add-on encountered a problem Tag: 87546
Multiple styles in a selected range
I'm using Word 2000 on XP Pro. My problem arises when I select a range that
contains multiple paragraph styles, and attempt to determine whether or not
all the styles are the same.
Any code like objRange.style results in this error:
Run-time error '91':
Object variable or With block variable not set
The MSDN Library says:
When you return the style for a range that includes more than one style,
only the first character or paragraph style is returned.
Why doesn't this happen? Am I reading this wrong? Is it a Word 2000 thing?
Bear Tag: Add-on encountered a problem Tag: 87544
Designate Path when using SaveAs
How do I designate the path when using SaveAs. I found that it saves it to
My Docs. How do I change the Path, while telling word that it's a text file
format at the same time? Thanks. Tag: Add-on encountered a problem Tag: 87543
TOC helper - replace hidden paragraph with style separator
I work at a help desk with a large number of Word users and occassionally
run into the problem where users either are not familiar with using the
style separator (to assist in creating run-in headings so that only the
heading, not the body text, shows up in the TOC) or are older documents that
used hidden paragraph marks. Since multiple people can work on a document,
we sometimes end up with documents that partly use style separators and
partly use hidden paragraph marks - VERY confusing. So I created the
following script to replace the hidden paragraph mark with the style
separator (for Word 2002 & above).
Although this code has been working well for the past several days, we are
still testing it. If you would like to use it, PLEASE PLEASE PLEASE save
the document you are going to try it on first. Although I cannot imagine
why it would cause any problems, it is designed to replace items in the
document, so there is always the chance I may have overlooked something.
Mike
Sub HiddenParaToStyleSep()
Selection.HomeKey Unit:=wdStory
' Find hidden paragraph
With Selection.Find
.ClearFormatting
.Text = "^p"
.Font.Hidden = True
.Forward = True
While .Execute
' If hidden paragraph is Style Separator, do not replace
If Selection.Paragraphs(1).IsStyleSeparator = False Then
' Replace hidden paragraph with auto color, unhide
With Selection.Font
.Hidden = False
.Color = wdColorAutomatic
End With
' Insert style separator
Selection.InsertStyleSeparator
End If
Wend
End With
End Sub Tag: Add-on encountered a problem Tag: 87542
Find and Replace only once using .Find
Can you only find and replace once using .Find? If I have multiple words to
find and replace, is there a better way? Here is my code:
Option Explicit
Set myrange = appWord.ActiveDocument.Content
With myrange.Find
.Text = "SiteIn"
.Execute replacewith:=SiteInfo & "." & SiteScheme
.Text = "SiteBad"
.Execute replacewith:=SiteInfo & "_" & SiteScheme & "bad"
.Text = "SiteDiscard"
.Execute replacewith:=SiteInfo & "_" & SiteScheme & "dis"
.Text = "SiteNum"
.Execute replacewith:=SiteInfo
End With Tag: Add-on encountered a problem Tag: 87539
Macro to detect manual style overrides (e.g. StyleName + Bold)
Hello,
I need a diagnostic macro that detects manual style overrides in a
document.
These style overrides are shown in the Styles and Formatting task pane
as "<StyleName> + Bold", for example, if 'Formatting in use' is
selected.
Apparently, they do not belong to the Styles collection, but I don't
know how to address them. Does anybody know how I could list them using
a macro?
Thanks in advance
Heike Tag: Add-on encountered a problem Tag: 87538
Inserting "notes to pages nn to nn" in endnote page headers
Is there any way of inserting "notes to pages 32 to 55" in the header
for the endnote pages (where the first endnote that appears on the page
occurs in the text at page 32 and the last to appear on the page occurs
in the text at page 55)?
1. Is there any way to do this without writing VBA code to do it?
2. If the answer to 1 is no, does anyone have some sample VBA code to
do this?
Thanks! Tag: Add-on encountered a problem Tag: 87537
Inserting HTML into Word
(Word 2003)
Hi,
I have a situation in which I need to copy the contents of an HTML, complete
with its CSS files and images, into a Word document.
The simple solution is to use the command Selection.InsertFile which is
equivalent to choosing File / Insert from the menu. However no matter what
parameters I give to Selection.InsertFile, I keep getting the same message:
"Recording Clipboard style sheet will require copying many styles. Do you
want to use Normal style instead?"
The correct answer to this question is NO because it preserves all the
formatting. However I can't find any switch to make this dialog disappear
and answer NO.
How can I close this dialog while answering NO programmatically?
Thanks,
Arie Tag: Add-on encountered a problem Tag: 87536
Find & Replace
Iâ??m using Windows XP and Word 2003. Word has a Find and Replace feature.
How do I implement this to find all sequences of letters, symbols, and
numbers between a specific word ,â??Startâ??, to the end of the line so that it
can be replaced with a new set of letters, numbers and symbols.
Example:
Start <Appendix 12A> Tag: Add-on encountered a problem Tag: 87530
I had Microsoft Office 2000. Can I get it back?
Last year my computer crashed so I had to buy a new one. I lost my Microsoft
Office 2000. Is there a way of redownloading this software without having to
repay for it a second time? Tag: Add-on encountered a problem Tag: 87527
Exporting This Discussion
Is there anyway to export all the content of these discussions for offline
reading/printing?
Thanks! Tag: Add-on encountered a problem Tag: 87521
Delete Table Rows (Blank) Macro Question
Hi all,
I have this macro delete table rows blank which does not work on a table
after I make changes to a row such as split cell 2 columns or insert rows
using CTRL ALT I - am I missing something? Is there a macro that can delete
blank rows regardless of how they are inserted.
If you just create a blank table using Insert Table, ie drag mouse across
number of colums rows and type in some rows it is fine and deletes blank
rows. The moment you add rows or split cells on a row it gives this error:
Runtime error 5941 the requested member of the collecton does not exist
(after running). Can I refine it to acknowledge blank lines inserted using
CTRL ALT I and split cells in a blank row? Is it viable? What am I missing?
Thank you to whomever can assist.
Public Sub DelTableRowsBlank()
Dim flag As Boolean, I As Long, j As Long, atable As Table
Set atable = Selection.Tables(1)
With atable
For I = .rows.Count To 1 Step -1
flag = False
For j = 1 To .Columns.Count
If Len(.Cell(I, j).Range) > 2 Then
flag = True
Exit For
End If
Next j
If flag = False Then
.rows(I).Delete
End If
Next I
End With
End Sub Tag: Add-on encountered a problem Tag: 87515
Deleting bookmarks
I am inserting some text via vba from Acces into a Word doc.
It is working well except afterwards teh book mark is deleted.
Any thoughts??
TIA
Bob Tag: Add-on encountered a problem Tag: 87509
=?utf-8?B?Rm9yIGVhY2ggYml0IG9mIGRvY3VtZW50IGRvID8=?=
Hi Marc
In a general sort of way, you can
For each para in ActiveDocument paras
'Your code here
Next
To "walk" the paragraphs in a document "Story". Use
para.Range.Information(wdWithinTable) to determine whether you're in a
table.
Look up "StoryRanges" and all related/linked in the VBA Help if you need
to deal with anything besides the main body of the document (or look it
up anyway, to get an understanding of what it means).
-- Cindy
-----Original Message-----
From: Marc Hillman [mailto:7owsx1j02REMOVE@sneakemail.com]
Posted At: 24 June 2006 15:35
Posted To: microsoft.public.word.vba.general
Conversation: For each bit of document do ?
Subject: Re: For each bit of document do ?
I'm trying to check that certain elements appear in a certain order, for
instance that every table is preceded or followed immediately by text of
style "Caption". I feel I should be able to iterate through something
and hit a table and then a paragraph (and check its style).
It causes me to wonder, if I wanted to render a word document in some
strange way (eg I wanted to write my own HTML exporter) how could you do
it?
I don't understand how I could find all the different pieces
sequentially and export them.
(Delete REMOVE from my e-mail to reply direct) Tag: Add-on encountered a problem Tag: 87505
Web formated calendar to unformated Word text
Ops! Perhaps I should have posted this here instead of on
'microsoft.public.word.programming'
(Not sure what the diff is)
Reqd: a Word version of part of a calendar on a club website for those
without web access
The following pastes the copied section of the four column calendar
Sub PasteUnformatedText()
Selection.PasteAndFormat (wdFormatPlainText)
End Sub
but I now need to do something to make dates stand out
A hanging indent is no good unless there were some way of identifying and
changing the paragraph marks which do not precede the dates and changing
them to manual line breaks
Is there some way of identifying the dates and adding a second paragraph
mark before them?
A separate issue is to add a semi-colon between cells (the four columns are
'Date', 'Venue', 'Event/Name' and 'Info'. Without some break the line runs
into one and does not read well
If the date/time could be identified it could be emboldened - it is always
dd.mm.yyyy hh:mm
Here are a few lines of the unformatted text - any help you gan give will be
much appreciated
Francis Hookham
Date Venue Event/Name Info
25.06.2006 10:15 Castle Camps Sunday Walk Sunday Walking Group - 4.5 mile
walk from/to The Cock, Castle Camps, nr Haverhill
Contact: Bernard Townshend
27.06.2006 13:00 University Arms Hotel Lunch meeting Lunch and The Cambridge
Club's Presidential Handover followed by Stephen Kay, managing director
Cambridge Water Company speaking about 'Developments at CWC'
Host: Charles Hewitson
Cashier: Robert Raywood
Reception 1: Robert Ransom
Reception 2: David Ridgeon
01.07.2006 Coventry RIBI handover RIBI Presidential handover in Coventry
02.07.2006 Cambridge District handover District 1080 Handover hosted by the
Rotary Club of Cambridge at Wolfson College - Nigel Neville is due to become
the District Governor
Contact: FEC
04.07.2006 13:00 University Arms Hotel Lunch meeting
Host: Paul Auton
Cashier: Victor Bugg
Reception 1: Francis Hookham
Reception 2: Roger Asbury
04.07.2006 18:00 CUP Council meeting Council Meeting at CUP, Shaftesbury Rd Tag: Add-on encountered a problem Tag: 87503
For each bit of document do ?
How can I go through a Word document sequentially, by paragraph, field,
table, etc ? I'm looking for the construct Paragraph followed by Table
followed by Paragraph. I can iterate through the paragraphs collection, or
through the tables collection, but how do you iterate through all pieces in
order ?
Delete REMOVE from my e-mail address to reply direct.
_______________________________________
Marc Hillman, Melbourne, Australia
web: http://users.bigpond.net.au/mhillman/ Tag: Add-on encountered a problem Tag: 87497
File properties
Hi folks
I want to change the "Hyperlink Base" in the File -> Properties window
programatically.
How can I do this?
I am using the word interop in C#, but information on how to do it in any
other way would be great.
Thanks
Will Tag: Add-on encountered a problem Tag: 87490
How to find style separator code through VBA?
In our company, we have a number of older documents that used hidden
paragraph marks instead of style separators. The purpose of both is to
separate headings from body text for easier generation of TOC. I am finding
a number of documents that have a combination - hidden paragraphs marks &
style separators - and it gets confusing to view these documents when hidden
paragraph marks turned on (pagination will change). While my routine works,
I do not like the fact that hidden paragraph marks & style separators do not
appear to be distinguishable programatically; visually you can tell the
difference because style separators have a light dotted frame around them.
I was wondering if there is a way to distinguish the style separator from
other codes.
TIA,
Mike
Sub HiddenParaToStyleSep()
Selection.HomeKey Unit:=wdStory
' Find hidden paragraph
With Selection.Find
.ClearFormatting
.Text = "^p"
.Font.Hidden = True
.Forward = True
While .Execute
' Replace hidden paragraph with auto color, unhide
With Selection.Font
.Hidden = False
.Color = wdColorAutomatic
End With
' Insert style separator
Selection.InsertStyleSeparator
Wend
End With
End Sub Tag: Add-on encountered a problem Tag: 87486
Reset Graphic Image
I am using Word 2003 and am inserting a *.jpg file into the footer of a
document. I'd like to "reset" the picture to it's original size because it
is being scaled down to 93% because of the 1" margins. Thank you for your
assistance. Tag: Add-on encountered a problem Tag: 87485
List of available Printers
Hi,
I am running Word 2000 on Windows XP Professional SP2.
I have followed the recommendation to call the Windows API enumprinters as
per example. However I am getting runtime error 9 subscript out of range.
How can I resolve this?
Thank You! Tag: Add-on encountered a problem Tag: 87478
Microsoft word window Tabs
I would just like to suggest that you have each new word document open in a
tab format like you have on the new IE7. The tabs should preferrably open at
the bottom of the word interface and be approximately where the properties
bar is (the bar that tell you the size and all the other info about something
wehn you run the mouse over it). This would definately give you guys a edge
over anything google is planning. Thank you.
----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.
http://www.microsoft.com/office/community/en-us/default.mspx?mid=a7992f03-df90-4362-a78a-58f31aa9b945&dg=microsoft.public.word.vba.general Tag: Add-on encountered a problem Tag: 87477
Identify a formula field
I have code to delete bookmarks and unlink fields in a document once the
document is completed, as follows:
For Each Mark In .Bookmarks
.Bookmarks(Mark).Delete
Next Mark
For Each Field In .Fields
.Fields.Unlink
Next Field
End With
I need to NOT unlink a field if it contains a formula, only unlink the field
if it is a bookmark type field, but I don't know how to write this code.
Thanks for any help.
--
singeredel (Julie) Tag: Add-on encountered a problem Tag: 87475
attaching document to an email
Hi I am attaching a doucment to an email using
Options.SendMailAttach = True
ActiveDocument.sendmail
if I want to add the email address and a subject line, is this possible
please?
J Tag: Add-on encountered a problem Tag: 87471
Opening Access Database from Word
Hello,
I have Word 2003 and Access 2003. I'm trying to write VBA code to open a
database from within Word.
Can anyone explain why this code works (see below) ...
Sub OpenDatabase()
' Opens the Northwind database
Dim MyAccess As Object
Set MyAccess = GetObject("C:\Program Files\Microsoft
Office\OFFICE11\SAMPLES\Northwind.mdb", "Access.Application")
End Sub
And this code does not work (see below) ...
Sub OpenDatabase()
' Opens the MyDatabase database
Dim MyAccess As Object
Set MyAccess = GetObject("C:\Program Files\Microsoft
Office\OFFICE11\SAMPLES\MyDatabase.mdb", "Access.Application")
End Sub
My database named MyDatabase.mdb resides in the same path as the
Northwind.mdb database so I can't figure out why this code won't work. Any
assistance would be greatly appreciated. Tag: Add-on encountered a problem Tag: 87466
global variables for whole project not just when user form is runn
Can anyone help me. I've got a template project with 2 user forms. Code has
to stop running between using the two user forms to enable the user to add
unique information and check statements created to that point, before
calculating of each statement occurs. Then the user re-starts the programme,
so I'm trying to find a way to retain the variable information contained in
the first user form, to be utilised in code for the 2nd user form. I already
know about declaring global variables within modules, but I'm talking about
retaining variable input for the whole project, over all modules. Tag: Add-on encountered a problem Tag: 87458
Adding values in formfields
I am trying to create a function that will add the values of 2 text boxes
based on if the checkbox is true or false. I am using Word 2003 but it needs
to work on Word 2000 also.
If the checkbox is true then I want the value of Copy divided by Pages
If False then I want the value of Copy times the value of Sheets.
Currently: Copy, Pages, and Total are all textbox form fields
If CheckBox1.Value = True Then
ActiveDocument.FormFields("Total").Result = ActiveDocument.FormFields
("Copy" / "Pages")
Else
ActiveDocument.FormFields("Total").Result =
ActiveDocument.FormFields("Copy" * "sheets")
Endif
Can this be done somehow? Would I have to use something other than
textboxes? The users needs to be able to update the formfields with their
data. Thanks for looking.
Josh Tag: Add-on encountered a problem Tag: 87455
Version related issue
Hi
I am trying to pen a file generated by Word 2000 with Word 2003 and I get an
error that file may be corrupted etc.
This normally shouldn't happen because the Word can certainly read previous
versions
Additionally, the same program that was able to generate a document is not
able to do that any more (this machine has Word 2003 installed and the
program was compiled using Word 2000)
Any suggestions will be appreciated,
Samuel Tag: Add-on encountered a problem Tag: 87438
What should I do as my computer has the "Add-on encountered a problem - Adobe
PDF Reader ..."
--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.
yvonne wrote:
> What should I do as my computer has the "Add-on encountered a problem
> - Adobe PDF Reader ..."