dashes in phone nos
I am automating word from access, office 2000 winxp
My access table contains 2 phone numbers and a social security number
(500) 222-2222, (500) 333-3333, 444-44-4444
I am storing these values in the tables with the dashes and
parantheses in place, but when I use the value and set it in a
bookmark in an msword doc, the dashes and parens are not displayed.
How can I remedy this, please?
Thank you
Joanne Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56857
Updating the screen
MS Word 2003
A macro contains the following statements:
ActiveDocument.ShowGrammaticalErrors = False
ActiveDocument.ShowSpellingErrors = False
After issuing the above two statements, what statement will update the
screen? The colored underlining remains in the currently-viewed text.
Only after I scroll the document so that a new area of text is
displayed is the colored underlining gone. (If I scroll one-half the
screen height, the coloring remains in the previously displayed area,
and is gone only from the newly displayed area.)
Thanks,
Fred Holmes Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56854
Less View in Find
I always want the "Less view" in find (and not be given the advanced find
criteria unless I ask for it). Here's the code I'm trying, unsuccessfully:
SendKeys "%{l}"
(or) SendKeys "%{L}"
Please help, guys.
TIA Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56850
Bookmarks from access
I'm trying to get an example from a book (Wrox - Accesss 2002 VBA)
running. It's supposed to insert text into a word document at pre-set
bookmarks. However it keeps crashing at the line:
m_objDoc.Bookmark(strBkmk).Select
In the InsertTextAtBookMark prodecure.
The error message is:
Run-time error '91';
Object variable or With Block variable not set
I've included the full code below.
Any help greatly appreciated.
-------------------------------------------------------------------
Option Compare Database
Option Explicit
Private Const m_strDIR As String = "C:\BegVBA\"
Private Const m_strTEMPLATE As String = "Order.dot"
Private m_objWord As Word.Application
Private m_objDoc As Word.Document
Public Sub CreateOrderLetter(recSupp As Recordset, recItems As
Recordset)
' instantiate the word application and create a new
' document based upon the supplied template
Set m_objWord = New Word.Application
Set m_objDoc = m_objWord.Documents.Add(m_strDIR & m_strTEMPLATE)
' insert the customer details
InsertTextAtBookMark "ContactName", recSupp("ContactName")
InsertTextAtBookMark "CompanyName", recSupp("CompanyName")
InsertTextAtBookMark "Address", recSupp("Address")
InsertTextAtBookMark "City", recSupp("City")
InsertTextAtBookMark "State", recSupp("State")
InsertTextAtBookMark "ZipCode", recSupp("ZipCode")
InsertTextAtBookMark "Country", recSupp("Country")
' now the order items
InsertItemsTable recItems
' print the order, not using background printing
' otherwise code continues and we try to quit whilst still
printing
m_objWord.PrintOut Background:=False
' now save and quit
m_objDoc.SaveAs FileName:=m_strDIR & recSupp("CompanyName") & _
" - " & FormatDateTime(Date, vbLongDate) & ".DOC"
m_objDoc.Close
m_objWord.Quit
' clean up
Set m_objDoc = Nothing
Set m_objWord = Nothing
End Sub
Private Sub InsertTextAtBookMark(strBkmk As String, varText As
Variant)
' selects the bookmark and inserts the text
m_objDoc.Bookmark(strBkmk).Select
m_objWord.Selection.Text = varText & ""
End Sub
Private Sub InsertItemsTable(recR As Recordset)
Dim strTable As String
Dim objTable As Word.Table
' create columns separated by tabs
' it's easier to convert this to a table than to create
' a table and worry about the table cells
strTable = "Item" & vbTab & "Quantity" & vbCr
recR.MoveFirst
While Not recR.EOF
strTable = strTable & recR("Name") & vbTab & _
recR("ReOrderPoint") & vbCr
recR.MoveNext
Wend
' now insert the text, convert it to a table, and format it
InsertTextAtBookMark "Items", strTable
Set objTable =
m_objWord.Selection.ConvertToTable(Separator:=vbTab)
With objTable
.AutoFormat Format:=wdTableFormatClassic3, AutoFit:=True, _
ApplyShading:=False
End With
' clean up
Set objTable = Nothing
End Sub Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56848
Mail Merge Disaster
I need to automate a mail merge from a form in my access 2002 database. I've
tried importing the code from a recommended site
http://www.attcanada.net/%7ekallal.msn/msaccess/msaccess.html
but keep getting an error - 424 -object required, something to do with the
line ...
Set WordDoc = wordApp.Documents.Add
I have no coding experience but i need this to work - any help would be
greatly appreciated!!
Thanks Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56844
Any way to "size" an INCLUDEPICTURE when it's included?
Hi,
I'm using Mail Merge to include pictures from a directory like so:
{ INCLUDEPICTURE "{ MERGEFIELD thePath }" }
Is there any way I can set the size of the included picture apart from by
scaling it on disk when I write it in the first place? I would gain a lot
of speed by not having to scale the jpegs as I write them. What I would
like to do is something like this:
{ INCLUDEPICTURE " { MERGEFIELD thePath }" \Width=120 \Height=256 }
Is anything like this possible?
Thanks.
Robin Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56837
How do I create a pathname that doesnt disappear when I email my .
Hi! Trying to create a form of macro to put my pathnames of documents in the
footer. Each time I get something created and email the document out the end
user gets the pathname as either a code or in their temporary internet
folder. Is there a way to put a pathname on a document so that it is forced
to stay there when emailled (other than manually typing!!!).
Hope someone can help! Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56835
Tab 'colors' for Multipage forms
I have created several user forms with Multipage objects. I have a nice, soft
'background picture' to give texture to the multipage, but the picture does not
run into the tabs. The result is a blotchy looking screen. Is there anyway to
cause th tabs to look like the page without the page being a simple solid
color?
Thanks,
Roy Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56832
Word 2K Just Blinks When Printing
I am using Word 2K on a W98 machine and have had it installed for years. It
just started this problem. When I attempt to print, the border around the
Word application blinks. It never prints and I have to end-task to force it
to stop. This does not occur with all documents.
Any suggestions?
Thanks.
IC Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56817
How to place text blocks from another program?
I'm running Word from an MS Access app, iterating through a file of people and
information on them, and formatting the Word doc as I go.
No problem just plugging in names, addresses, comments as long as I start at the
top and work down.
What I'd like to do, however, is place a block of text on the left of the page
that contains the person's mailing address - and then place another block of
text on the right side of the page that contains the person's telephone numbers
and email addresses.
The two blocks would be of varying sizes/lengths for each person and different
sizes/lengths between themselves.
Each block is already formatted (line feeds and all) in the input recordset.
Is there a way to do this without parsing each block into separate lines,
counting the lines and then tabbing across the doc?
I'm not looking for a total solution - just an idea of what's possible and maybe
a few keywords to start searching on.
--
PeteCresswell Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56815
Save As UserName
Hi. Thanks for your reply, however, I'm not sure exactly
what you are saying. I understand that the username on
your example is "administrator" but how would I get that
by using code? I'm new to this VBA stuff...
The normal template is saved in each staff members
personal drive (P:\). The personal drives are named
\\alchemy\private\(username) but I am unsure how to get
that username...
I appreciate your help.. Thanks
>-----Original Message-----
>There are some very involved ways to derive the
username.
>However, the easiest way is to parse it from where the
>normal template is stored. The following will give you
>the bona fide username, not something that was a shortcut
>in Word itself (unless the normal template was re-
directed
>to a non-default folder).
>
>strPath = Application.NormalTemplate.Path
>
>So, on my computer, this is what it provides:
>
>C:\Documents and Settings\Administrator\Application
>Data\Microsoft\Templates
>
>So, you can parse what's between documents and settings\
>and \applcation data.
>
>Hope this helps.
>
>dz
>
>>-----Original Message-----
>>I have a template add-in which I need to save with a
>>username. The template automatically counts what
>templates
>>users access.
>>
>>The code I have is:
>>'<----------------------Start of Module Code-------------
-
>-
>>------------->
>>Option Explicit
>>
>>Public gccTemplateUsageCounter As clsCounter
>>
>>Public Sub AutoExec()
>>Const cCounterFileFullPath As String
>>= "M:\TECHNOLOGY\TemplateUsage\CountUsage\count_usage.cnt
"
>>
>>' Instantiate class to perform template usage counting
>> Set gccTemplateUsageCounter = New clsCounter
>>
>>' Hook up event handler to that we can catch application
>>level events
>> Set gccTemplateUsageCounter.appWord =
Word.Application
>>
>>' Log the existing counter file (if any)
>> gccTemplateUsageCounter.Initialise
>cCounterFileFullPath
>>End Sub
>>
>>(There is a lot of class modules code with this as well -
>>let me know if you need to view that).
>>
>>The Line:
>>Const cCounterFileFullPath As String
>>= "M:\TECHNOLOGY\TemplateUsage\CountUsage\count_usage.cnt
"
>>is where I need to put the username, e.g.
>>\CountUsage\username_count_usage.cnt
>>
>>Any ideas? Do you need to see the full code? I am
>>running Word 2002. Thanks in advance.
>>.
>>
>.
>
. Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56814
Bookmarks
I am running word from access - using msoffice2000, winxp
I have 22 docs with bookmarks in them. I need to fill in the bookmarks
from my access app.
Everything works as expected on 18 of the 22 files.
The other 4 files cause all kinds of problems. I have set the
recordset to just access these 4 files, wondering if I was over-taxing
the whole system, but even if they are the only 4 files, they cause
problems.
Here are the problems.
If I try to do all 22 files, I get the 18 files correct, then the app
stops, everything is in 'not responding' and I have to shut it all
down.
If I try to do just the 4 rogue files, the routine that sets the
bookmarks gets the 4 files in a recordset, opens them, skips over the
portion of the routine that sets the bookmarks.text and closes them
back up, this time without any 'not responding' system problems. I
have checked the docs, and all bookmarks are actually present.
Using debug.print, I see the routine set all 18 files but then it
fails on the first of these 4 files. The debug.print suggests that the
app is working on the files in an ascending alpha sort, and it does
the good 18, and then crashes on the first of the 4 bad files, which
is located in the middle of the alpha sort. I am dumbfounded at this
action, but am wondering if I perhaps have four corrupted files. I
thought I would beg some information before just jumping in and
recreating these files.
Is there something I can do about this short of recreating the files?
Thanks for your expertise. I appreciate it a great deal. Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56797
Ready to give up...
I have created 2 Word documents. Both have radio buttons
and text boxes. In one I used VBA controls and the other
I used Web Controls. Both are protected. I sent both to
another computer as attachments. The operator at the
other computer opened both attachments but cannot click on
any of the radio buttons and have it register. He is
uable to enter any text in the text box. In clicking on
the text boxes and radio buttons the properties dialog box
opens.
What is going on? How difficult is it to create a user
form and actually have it work?
BTW I do not know if it makes a difference but my OS is XP
and the other is W98.
Mike C. Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56796
Printing to paper trays
I have posted this problem to the PAge Layout forum but I
first encountered it with VBA.
I am having a problem with paper trays, re the following:
- in a new document type some text, put in a next page
section break and type some text on page 2 (section 2)
- In File, Page Setup choose Tray One for first page and
Tray Two for the other pages, making sure you've got
apply to Whole Document seleceted
- if you then print the document, both pages come from
tray 1!!.
If you look in File Page, Setup again it has first page
from tray 1 and other pages from tray 2 for This Section,
but if you change it to Whole Document no trays are
selected. If seems to print the first page of each
section from tray 1 and the rest of the pages from each
each section from tray 2. As each section only has 1 page
they all print from tray 1.
Is this true and how do I get around it?
This VBA code seems to do the same thing as manually
changing the trays in Word:
ActiveDocument.PageSetup.FirstPageTray =somecode working
out tray
ActiveDocument.PageSetup.OtherPagesTray = somecode
working out tray Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56794
Help debugging code
Using Word 2002 and 2003.
Have a routine that loops through an array, builds up a string and then puts
the string in the document.
Occasionally this doesn't work properly and only part of the array appears
in the document.
The problem is that I can't just see any reason why this would be happening.
I have dumped the array to a textfile to have a look at it, but it all looks
normal or in any case no different from
other arrays that appear in the document fine.
The array is an 0-based 2D array with 4 or 5 columns and up to about 100
rows.
It contains dates, numbers and strings.
As I have no idea still what the problem is here I just post the full Sub in
the hope that somebody has some suggestion
as to where the problem could be.
Leaving out the Exit Sub bits doesn't make a difference.
Any assistance greatly appreciated.
Sub ArrayToWordText(ByRef arr As Variant, _
ByVal lStartCol As Long, _
ByVal lEndCol As Long)
'converts a 2-dimensional array to a Word as plain text
'note that the start and end column are always 1-based
'even when the arrray is 0-based
'-----------------------------------------------------
Dim rng As Range
Dim tbl As Table
Dim LB1 As Byte
Dim LB2 As Byte
Dim UB1 As Long
Dim UB2 As Long
Dim lRows As Long
Dim lCols As Long
Dim i As Long
Dim c As Long
Dim LB1corr As Byte
Dim LB2corr As Byte
Dim colCorr As Integer
Dim strTemp As String
LB1 = LBound(arr)
UB1 = UBound(arr)
LB2 = LBound(arr, 2)
UB2 = UBound(arr, 2)
LB1corr = 1 - LB1
'0-based array >> LB2corr will be 1
'1-based array >> LB2corr will be 0
LB2corr = 1 - LB2
colCorr = lStartCol - (LB2corr + 1)
lRows = (UB1 - LB1) + 1
lCols = (lEndCol - lStartCol) + 1
Application.ScreenUpdating = False
Set rng = Selection.Range
rng.Collapse Direction:=wdCollapseEnd
On Error GoTo ERRORADDINGTABLE
'for debugging
'-------------
If bArray2Text = True Then
SaveArrayToText2 "C:\NotesDump.txt", arr
End If
For i = 1 To lRows
If BPArray(i - LB1corr) = 1 Then
'dealing with BP entry
'---------------------
For c = 1 To lCols
If strNoteSubject <> "Q" Then
If arr(1 - LB1corr, 1 + colCorr) = Empty Then
Exit For
End If
End If
Select Case c
Case 1
strTemp = strTemp & arr(i - LB1corr, c + colCorr)
Case lCols
If lCols = 4 Then
If Not arr(i - LB1corr, c + colCorr) = Empty
Then
strTemp = strTemp & "/" & arr(i - LB1corr, c
+ colCorr) & Chr(13)
End If
Else
If arr(i - LB1corr, c + colCorr) = Empty Then
strTemp = strTemp & Chr(13)
Else
strTemp = strTemp & ", " & _
arr(i - LB1corr, c + colCorr) &
Chr(13)
End If
End If
Case Else
If c = 4 Then
If Not arr(i - LB1corr, c + colCorr) = Empty
Then
strTemp = strTemp & "/" & arr(i - LB1corr, c
+ colCorr)
End If
Else
If Not arr(i - LB1corr, c + colCorr) = Empty
Then
strTemp = strTemp & ", " & arr(i - LB1corr,
c + colCorr)
End If
End If
End Select
Next
Else
'not dealing with BP entry
'-------------------------
For c = 1 To lCols
If strNoteSubject <> "Q" Then
If arr(1 - LB1corr, 1 + colCorr) = Empty Then
Exit For
End If
End If
Select Case c
Case 1
strTemp = strTemp & arr(i - LB1corr, c + colCorr)
Case lCols
If TestArray(i - 1) = 1 And c + colCorr = 3 Then
'dealing with test value and unit, so no comma
'---------------------------------------------
strTemp = strTemp & " " & _
arr(i - LB1corr, c + colCorr) &
Chr(13)
Else
If arr(i - LB1corr, c + colCorr) = Empty Or _
arr(i - LB1corr, c + colCorr) = Chr(32) Or _
arr(i - LB1corr, c + colCorr) = vbNull Or _
Trim(arr(i - LB1corr, c + colCorr)) = "" Then
strTemp = strTemp & Chr(13)
Else
strTemp = strTemp & ", " & _
arr(i - LB1corr, c + colCorr) &
Chr(13)
End If
End If
Case Else
If TestArray(i - 1) = 1 And c + colCorr = 3 Then
'dealing with test value and unit, so no comma
'---------------------------------------------
strTemp = strTemp & " " & arr(i - LB1corr, c +
colCorr)
Else
If Not arr(i - LB1corr, c + colCorr) = Empty And
_
Not arr(i - LB1corr, c + colCorr) = Chr(32)
And _
Not arr(i - LB1corr, c + colCorr) = vbNull
And _
Not Trim(arr(i - LB1corr, c + colCorr)) = ""
Then
strTemp = strTemp & ", " & arr(i - LB1corr,
c + colCorr)
End If
End If
End Select
Next
End If
Next
'not sure why this is still needed, should have been filtered out above
'----------------------------------------------------------------------
strTemp = Replace(strTemp, ", " & Chr(13), Chr(13), 1, -1,
vbTextCompare)
strTemp = Replace(strTemp, " <-| ", Chr(13) & Chr(9), 1, -1,
vbTextCompare)
strTemp = Replace(strTemp, " <-|", "", 1, -1, vbTextCompare)
'to indent after linebreak
'-------------------------
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(2.1)
.FirstLineIndent = CentimetersToPoints(-2.1)
End With
With Selection
.TypeText Text:=strTemp
.MoveDown Unit:=wdLine, count:=2
End With
'back to normal linebreak
'------------------------
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0)
.FirstLineIndent = CentimetersToPoints(0)
End With
Application.ScreenUpdating = True
Exit Sub
ERRORADDINGTABLE:
Application.ScreenUpdating = True
MsgBox "COULDN'T PUT THE ARRAY HERE!", vbInformation, ""
On Error GoTo 0
End Sub
RBS Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56793
picture question
I have a picture in a Word document. Is there a way to
save only the picture as a TIF file? Thanks Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56792
How to find the new document created by a mail-merge?
Hi,
I am splitting my document into several new documents (by section) and then
performing a mail merge with each section (usually with different data
sets).
How do I find the document object that was created as a result of the mail
merge? I can't find it in the original documents merge object anywhere. I
can't assume it is the last document in the application documents
collection, as the user may be doing other things with another word document
while the merge is proceeding.
Any hints about this?
Thanks
robin Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56789
How to create the range between two field codes?
Consider the following field codes:
«SECTION_START»
....
Some text
....
Maybe an image
....
«SECTION_END»
How is it possible for me to create a range starting from the end of the
section_start mergefield and end at the section_end merge field start?
At present, I'm writing the following:
Dim theRange As Word.Range
theRange.Start = theFirstField.Result.End + 1
theRange.End = theSecondField.Result.Start - 1
However, it always seems that the range contains the second field code. All
I want is the stuff inbetween, NOT including the field codes.
Thanks for any tips you can give me on this,
Robin Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56783
macro to add line
I am trying to design a macro that will create a new row in a table. Is this
possible? I actually want it to create a row, and then have form fields in
the row? Is either one possible?
p.s. THIS IS A WORD PROGRAMMING QUESTION, CORRECT????? Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56770
Get text strings from closed docs?
I have a folder with over 14,000 Word docs. I would like to extract a few
text strings from each doc to build a table in a "master list" doc (for
instance: for each doc, find "Title" and get the following 24 characters;
find "Date" and get the following 8 characters, etc). Can this be done
without opening and closing each doc?
Ed Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56767
How do I remove a section break from a document?
Hi,
I'm trying to split my document up into new documents, one for each section
in the original master document. To do this, I am more or less executing
the following code:
' Create a new document.
Dim theNewDocument As Word.Document =
m_WordApplication.Documents.Add(Visible:=True)
' Add the new document to the list of documents we should keep track of.
m_Sections.Add(theNewDocument)
' Get the current section.
theSection = m_LoadedDocument.Sections.Item(Index + 1)
' Now copy the section into the new document.
theRange = theSection.Range.FormattedText
' Copy across.
theNewDocument.Range.FormattedText = theRange
This is all well and good. Consider a master document with 2 sections. In
this case, the second (last) section is cut and copied correctly into the
new document, however, the first section when copied into the new document
still contains the section break at the end of it. So I am having to write:
' Got more than one section?
If theNewDocument.Sections.Count > 1 Then
' Somehow remove all section breaks from the document
End If
Any ideas on how to remove this section break?
Thanks,
Robin Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56765
macro/form to prompt user for input (in WORD)
Simple request: Want to create macro/form to prompt user to imput a "word".
This word will then be placed on a formated page that allows fifteen
different words/phrases arranged in three columns, five rows. These can be
printed out to create flash cards for language study.
By having an input box, it eliminates all of the tabbing & entering to put
these words in the correct place on the page.
KNOW it's possible & simple. Can't remember enough about creating a macro
to do it and the macro directions in Word just don't apply at all.
Thanks! Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56763
Remembering Values
Hi
I have created a user form for memos and faxes. I would
like to be able to remember the last 4 recipient details
entered.
Initially I thought of creating 4 documents, each with a
name and job title bookmark, when i click button number 1
on my user form it would look in document1 read the
bookmark values and pop them into the text boxes in the
user form. If the user overtypes the text in the text
boxes it rewrites the text in the bookmarks in the
relevant document.
I can't seem to find any mention of how to read bookmark
values - do I need to use something else?? would
autotext or a table or even excel be any easier for
storing data. I would really appreciate some advice.
Thank you very much for your time.
Kerry. Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56762
Need Help in VBA --Word Basic.. -- Desperate
Hi All,
I have an application, which is written using WORD BASIC>
I want to edit the footer and want to user EDITREPLACE
function to replace the string inside the footer also.
Could any one let me know the command how to edit footer
in WORD BASIC. Please let me know if anyone has any idea.
I am desperate for solution. I have tried many ways but
it does not do it.
Thanks
Kiran Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56753
MS Word objects list
Word allows us to access to it's objects like tables
(ole_object.application.activedocument.tables), paragraphs, sentences and
other. But is there an object that keeps all the Word objects ((or)
references to them) as they appear in the document.
For example: Having the collection of tables
(ole_object.application.activedocument.tables) I don't know where exactly
that tables are in the document. If the Range or Selection object selects
the whole table, how to get to know that it is the table? What is more
interesting: How to get to know (when the cursor is in the beginning of the
document) what kind of object will be the next: table, sentence or sth else?
How can I read my document from top to toe?
Thanks in advance... Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56737
Code for WordXP and Word2003
Hi everyone,
we have an app written in C# to automate WordXP, pretty complex. On one of
the machines, someone has been trying to make the app work against Word2003,
but it doesn´t work. I haven´t had access to the error yet, so I don´t know
exactly what the message says, but muy questions are...
1. Are there significant differences between WordXP and Word2003?
2. Is the oject model different substantially, or the functions called
differently?
3. Is there a web site where this (possible) differences are documented?
Thanks, from Spain Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56736
Closing MSWord Read-Only file
I have created a merge template ("Document.dot") that contains a macro to
perform the merge and other subsequent actions. The last macro step is to
close the original merge document without changes:
' Close the original merge form
Documents("Document.dot").Close SaveChanges:=wdDoNotSaveChanges
This works fine. Now I want to make the template Read-Only to protect it
from inadvertent user changes. When I do that, I get an error message saying
the document doesn't exist. I've tried including "(Read-Only)" in the
document name, which is how the document name appears in Word, but that
doesn't work. Is there a way to do this using the simple code above? If
not, what do I need to do? Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56735
opening email attachments from yahoo
I can't open attachments in my mic word/ofc 2000. when i scan and dwnld
doc/attchmnts i receive this error msg:
This file could not be found.
Try one or more of the following:
*check the spelling of the name of the document.
*try a different file name.
I can access my yahoo on a different computer and open my messages
just fine. Has anyone else experienced this and come up w/a solution? Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56733
Replace Stirng of Length > 256
Hi ,
I need to replace some text in a word document with a string of length
greater than 256.It cannot be done with Find.Execute methods ... coz it
truncates the replacing string upto 256 characters.
so how can i do it ?
Thanx ,Regards Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56732
Page numbering
what i want to do is more than just inserting the number of pages in a
document. I want to use the format "Page 1 of XX" where XX is the number of
pages in the document MINUS the title page(s). Is there a way of doing this
automatically? Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56730
Page numbering
what i want to do is more than just inserting the number of pages in a
document. I want to use the format "Page 1 of XX" where XX is the number of
pages in the document MINUS the title page(s). Is there a way of doing this
automatically? Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56729
How to restrict certain fields on a form?
I am being asked to create a form that encompasses several different forms.
The forms are for different types of contracts. Most of the fields are the
same for all of the forms, but there are some fields that are not needed
depending on the type of contract.
I am being asked to create one form for all of the contracts and depending
on what type of contract is selected from a drop down menu, fields that are
not pertinent to that type of contract will then be 'grayed out' or
unavailable.
I know that this will involve some programming, but i don't know where to
start.
PLEASE HELP. Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56728
Function to give text in extense, of a number WORD 2002
Is there any function to give us back the result of a convertion of a number
to a extense text? Example: We have EUR 1.000,50. Is there any possibility to
write after the number (A Thousand euros and fiffty cents) automatically in
Portuguese, on Word 2002? Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56725
Word should include a dictionary in it
It would be nice if word includes a dictionary option too along with spell
check and thesauraus. The user if wants to look up a word's meaning can
simply click on the dictionary option and gets the meaning Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56724
Word should include a dictionary in it
It would be nice if word includes a dictionary option too along with spell
check and thesauraus. The user if wants to look up a word's meaning can
simply click on the dictionary option and gets the meaning Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56723
Repeating a Macro
I've got a macro that does this;
Look for a text object
Mark the Line it's on and then delete the line.
I'd like this to repeat to the end of the file.
Any suggestions?
TIA
Robert Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56722
How do I avoid blank pages in setting up a leaflet?
I'm trying to set up a leaflet in Word - 4 page A5 (A4 Landscape with 2 pages
per sheet). In doing so I can't make the pages run on from each other - there
are always blanks in between the print, although print preview tells me I'll
get what I want.
The result is a three sheet document rather than a leaflet over 2 sheets.
What am I doing wrong? Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56721
macro security warning using print button in one template
I am getting the macro security warning when using the print button on the
standard toolbar in one of my templates.
This template does not have any other toolbar customizations and the macro
security is set to low in the template. Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56719
Capitalization
I think that WORD should have an option to highlight already typed phrases
and capitalize them as you can italize/highlight/underline. As a student,
this would be a helpfu in studying my notes. Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56718
ActivePrinter
The Word VBA command ActivePrinter reveals the name of the current printer in
use by Word. Is there a way of returning the name of the Windows default
printer?
I need the name of the Windows default printer to check against the
ActivePrinter and if they are not the same, let the user know he/she needs to
change printers before continuing.
Thank you
Sergio Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56715
How do I add a control to a tab control in Word 2003
I have tried to add a combo box to a tab strip in a user form in Word 2003.
The problem I find is that the combo box is visible in all tabs, like it is
floating above the tab control all together & not tied to a particular tab
page.
I would appreciate any assistance to overcome this.
Kind regards
duBedat Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56713
Followup re Excel/Word OLE error
I posted a query regarding an error described below.
It was suggested by another to check the Excel & Word VBA references for any
that were missing. The blank instances of each were fine but trying to check
for my Excel/Word app is difficult as the client is long distance and I don't
want to give them the password to unlock it. So I sent an unlocked copy of
the app with code removed. My Office version is 2003 and theirs XP or 2002.
When the client installed my app in the right directory it showed all the
proper references, correctly showing MS Excel 10.0 Object Library and MS
Office 10.0 Office Object Library. But it shows MS Word 11.0 Object Library
(what was in the app send from my Office 2003 system) as Missing.
Any ideas if that is clue to the problem or what it could be?
Would the steps I took above be adequate to check the references or do I
need to do it another way?
Again, any help appreciated. Thanks and God bless
Van
"VanS" wrote:
> Hello,
> I have an Excel VBA application that links to a Word template using
> automation and the Find-Replace method to populate the latter. I have run it
> without problem in all MS operating systems and Microsoft Office versions.
> However trying to run it on a customers Dell Latitude laptop it produced the
> following error populating and printing the Word template: "Microsoft Excel
> is waiting for another application to complete and OLE application". The
> error message pops up after successfully printing the 2nd page regardless of
> the total number of pages to be printed.The application referred to is
> apparently the winword.exe but no such process seems to be running. Clicking
> on "ok" closes the message display then re-displays it and nothing else can
> be done until ctrl-alt-del is hit to shut it down.
> The Latitude is Pentium RM processor 1600 Mhz with 512 RAM with Windows XP
> Pro SP 1 and Office 2002/XP SP2.
> What I don't understand is why it is giving an OLE error message for this
> version of Office as I thought OLE referred to automation for earlier
> versions of Office which KB articles on that message also seem to indicate.
> For now I don't have access to debug the code as the client is long distance.
> Any ideas what is going on? Any and all help greatly appreciated.
> Thanks and God bless
> Van
> Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56707
Losing Bookmarks
Hi,
I´m Roby E Martins. VC, VB e Web developer.
I have a big problem with Bookmarks in Word 2000.
I´m Adding bookmarks in some words all over the document. But when a
user replace the word with a bookmark, the bookmark simply disappear. I
thougth that the bookmark should still in the document where the new word
replaced is.
Is there any option or another way to keep the bookmark in the
document?
Thank you,
Roby E Martins Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56704
Find Replace with Section Breaks
Hey, I have a somewhat complicated merge request. The user needs a section
break after two words (Recommendations and Discussion - both bolded in TNR,
11 pt) in a document. These words may appear once or several times, but
there needs to be a section break after each one. I was trying to create a
macro, but I'm not sure what the code or character is for section break. I
know the find character is ^b, but that doesn't work for replace.
So, in a nutshell I need a way to find the two words and add a section break
after each one. I thought about a bookmark after each one, and then finding
the bookmark, but that sounds a tad too complicatd for something that seems
so minor.
TIA,
Jason Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56698
Word should allow access to view and work with codes like WordPer.
Being able to access the codes makes working with WordPerfect... perfect. If
Word had that option it would be Perfect, too. Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56697
Formatting a form
I have a form that I'm designing. It is a lesson plan for teaching. I have a
table laid out and have each form field set (i.e. Date, Grade, etc). I am
trying to make my table as "static" as possible, so that when entries the
table is not resized. I've been doing this by simply setting the cell height
to "exactly" X pt. First question is, is there a better way to fix the size
of a cell, so that when a user is typing in the form it doesn't let them
expand the table size?
The next, more important question is somewhat related. I have a section with
3 columns:
Time | Activity | Assessmen
------------------------------------------------------------------------------ (LINE A)
1:30 | Reading | Discussed topic in class
| |
..
-------------------------------------------------------------------------------(LINE B)
the above is an example of a possible row entry in this section of my form.
I have 10 rows of form entries for the Time, Activity and Assessment, each
getting there own height of 14 pt, and predetermined width. The thing is, the
entry for "Activity" could be more characters then the width of the column,
causing a line break, but it wouldn't show up on the form because the cell
height is fixed. And at the same time, I might not use all 10 rows of the
entry, but the form field description still remains (i.e. "Enter Activity
here"). My question is: The distance between LINE A and LINE B above needs to
remain the same, and the width needs to remain the same, but I want the
"interior" rows to be expandable. The number of entries can also change. So,
is it possible to have a button or macro that creates the row entries one at
a time as the user needs them, that way they could write a few lines if
needed, and not impede on the next field. If that's not possible, is it
possible to have the form field "description"'s that have not been entered on
be removed, either by a macro, or some other setting.
Well, thank you in advance, and if you got this far, thanks for actually
reading the whole thing :-) Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56696
Word vba return background shading value of cell
In VBA, how do I return the value of the background shading of a cell in a
Word XP table and change it if it is wrong? Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56695
Macro Needs to Close dialog box
I recorded a macro to open a document, connect with the external database,
merge to printer and then close the document. Two times during the running
of the macro a dialog box pops up and requires my manual response by clicking
the Yes or No button. Is there a command I can add to the VBA to have the
code complete this task?
One of the last lines of code is:
ActiveWindow.Close
which causes a dialog box to open asking if I want to save the changes to
the document Yes/No. Tag: word installed. create spellcheck icon in IEbrowser for highlited. Tag: 56682
word installed. create spellcheck icon in IEbrowser for highlighted text.