Send a Word document by email
I want to send the active document per email (or per fax).
Now manually u could choose in the menu, File , Send To, Mail recepient
This opens a heading in word window above to give emal title, recepient etc.
This i wonna do in my Vbcode, can i give some code to call up the email
header. So user just has to fill in tile and recepient and cicks send button.
I heared about creating a macro, but haven't made one yet, is this difficult
and
the problem is it can't be word version/language dependent ! It has to work
in all word versions up to Word2000.
I did find some code on the net that doesn't use the header but all pars are
filled in through code using the Activadocument.routingslip
But this is not really what i want to do (and allso this gives me an error
Mail is not installed on my system allthough i have Outlook express). I want
to leave he email sending up to word itself, so user kan click words sending
button and use the email header. Tag: Set Contacts for default envelope delivery address Tag: 76759
Adding Buttons to MsgBox and vbDefaultButton4
Can you add your own buttons to a Msgbox?
vbDefaultButton4 sets the default to the fourth button but no Msgbox has
four. I'd like to add one button if I could. Tag: Set Contacts for default envelope delivery address Tag: 76758
looping to change a font size
I'm trying to write a silly little macro that goes to every table in an
active document, looks for a particular style, then sets that selection
to 9 points. I have this:
For Each aTable In ActiveDocument.Tables
Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles("Note")
Selection.Style.Font.Size = 9
Obviously it doesn't work (or I wouldn't be here). When I run this
macro it seems to change whatever style the cursor happens to be at at
the time it starts, from that point forward. it never even seems to get
"into" the tables. If i have the cursor inside a table when i run the
macro it seems to do what i want. I need this to be an auto-open macro.
Any advice? Thanks. Tag: Set Contacts for default envelope delivery address Tag: 76754
Selecting the current word (including underscore characters)
I am trying to write a Word macro that selects the current word and
then does some processing on that word. What method can I use to
select the current word (ie the one where the cursor is). The words
may contain undercores so I want it to select the whole word. For
example the word may be T_demog.
Thanks,
David Tag: Set Contacts for default envelope delivery address Tag: 76753
Getting a MsBox when Automating Word from the Outside
Hello,
I am automating MS Word from the "outside' using a script and all is
well. Now I want to get Word to display a MsgBox actually in Word.
How do I call MsgBox to actually come up in Word when I am automating
from the outside?
(From looking through VBA's object inspector I found that MsgBox is a
member of the Interaction class, which is a member of the VBA class.
Can I access the VBA class when all I have in my script is a handle on
the Application class? Or am I barking up the wrong tree here)
Regards,
Matthew Lock Tag: Set Contacts for default envelope delivery address Tag: 76742
Parsing a Word Document using VBA
Hello,
I am using VBA from Access to interogate word documents. The documents have
a specific format but are edited using word - so users have full rights to
modify the document as they wish.
One portion of the document that I need to validate is data in a 3 column
table. Some columns are "gray" and some are "white". I am currently using the
.shading.texture, .shading.backgroundpatterncolor and
.shading.backgroundpatterncolorindex to determine if the cell is gray. Is
there an easy way to tell if a cell is gray (is not clear)?
The color of the cell will determine what action the program performs. Since
the data in the cell may not be correct, just parsing the cell is not a
guarantee of what action to take either.
Bill Tag: Set Contacts for default envelope delivery address Tag: 76737
How do I use Visual Basic to extract data from forms in Word?
I am trying to extract individual entered fields in a filled-in form in Word
using Visual Basic. I would like to be able to run a procedure on filled-in
(completed) forms to quickly extraction of data on many forms. What commands
can I use to extract the data from the individual form fields. I am assuming
that I need to name the form fields to some unique name to enable this. Tag: Set Contacts for default envelope delivery address Tag: 76732
Where is the Thesaurus?
I have used it before does anyone know where it is? I cant find it? Tag: Set Contacts for default envelope delivery address Tag: 76730
Checkbox -- delete or keep text
I am looking for a way to select from choices of boilerplate text. We
normally use the low-tech fill-in fields in Word, where you tab through
fill-in fields in a document.
I was thinking maybe we could put in the various paragraphs, and where we
have choices, we would put in a check box next to each paragraph. Then, once
the person has checked all their boxes, click a toolbar button to run a macro
which will delete any paragraphs which have an unchecked box. I am guessing
that each paragraph and each checkbox would need to be identified with
bookmarks (I know how to do that part at least!). :) We often put
instructions into hidden text in our documents, so I think I would just make
the checkboxes themselves as hidden text as well, so no need to delete the
remaining box, although would be nice if possible to do so.
I have been looking at solutions using autotext or a mail-merge type
operation, but turns out that is not a good option, since people usually need
to see the entire paragraphs to know which ones to choose.
Sample code I can copy and paste would be greatly appreciated, as I'm still
in the record-a-macro-and-mess-with-it stage. Thanks in advance for any
help/ideas! Tag: Set Contacts for default envelope delivery address Tag: 76728
What code line enables a rescan of text marked as "Ignore once"?
This grammar check code skips text that was marked as "Ignore once".
I thought that the ActiveDocument.GrammarChecked = False line would
enable rechecking text previously marked as "Ignore once". I am
wrong. Please help. Thanks.
Application.ResetIgnoreAll
ActiveDocument.SpellingChecked = False
ActiveDocument.GrammarChecked = False
With Options
.CheckSpellingAsYouType = True
.CheckGrammarAsYouType = True
.SuggestSpellingCorrections = True
.SuggestFromMainDictionaryOnly = False
.CheckGrammarWithSpelling = True
.ShowReadabilityStatistics = False
.IgnoreUppercase = True
.IgnoreMixedDigits = True
.IgnoreInternetAndFileAddresses = True
.AllowCombinedAuxiliaryForms = True
.EnableMisusedWordsDictionary = True
.AllowCompoundNounProcessing = True
.UseGermanSpellingReform = True
End With
ActiveDocument.ShowGrammaticalErrors = True
ActiveDocument.ShowSpellingErrors = True
Languages(wdEnglishUS).SpellingDictionaryType = wdSpelling Tag: Set Contacts for default envelope delivery address Tag: 76727
Print a Section
Word Experts,
I have written code in Excel VBA and now need to do a few tasks in Word VBA.
I could use some help figuring out a few basics.
Each day I have to print a section of a report that falls in the middle of
the report.
A simplified version of the report is provided below. I have to print from
the line that begins with "ACCOUNT: X435" through the line "PREM POT
9,051,419".
Using the macro recorder, I've tried to create code but I seem to have a few
things wrong.
<<Begin Report>>
THE FOREGOING INFORMATION IS
/PAGE
ACCOUNT: X435
NET CAPITAL
ACCT EQUITY
---- ------------ ---
4AM0 -38,789
4K3E -463,046
PREMIUM POTENTIAL
PREM POT 9,051,419
(1) DIVIDENDS PAYABLE OR
(2) IF POSITIONS ARE IN MORE
<<End Report>>
I've tried to write the code by:
1) searching for the first key word which marks the beginning of the section
I want to print,
2) assigning a variable to the result of the first search,
3) searching for the second key word,
4) assigning a variable to the result of the second search
5) selecting the text starting with the first variable and ending with the
second variable
6) printing the selection
It runs through the code until it gets to the "Application.PrintOut" line at
the bottom, although I'm don't think I was successful at assigning any of the
variables.
Your help would be appreciated. Thanks, Alan
Sub PrintSection()
Selection.Find.ClearFormatting
With Selection.Find
.Text = "ACCOUNT: X435"
.Forward = True
End With
Selection.Find.Execute
Set StartPrint = Selection
Selection.HomeKey Unit:=wdLine
Selection.Find.ClearFormatting
With Selection.Find
.Text = "prem pot"
.Forward = True
End With
Selection.Find.Execute
Set EndPrint = Selection
Set rngPrint = ActiveDocument.Range(StartPrint.Words(1).Start,
EndPrint.Words(2).End)
Application.PrintOut FileName:="", Range:=rngPrint
End Sub
--
achidsey Tag: Set Contacts for default envelope delivery address Tag: 76726
How can I disable the printing message box in Word 2000?
I need to know if Microsoft have a way to disable or eliminate a message box.
I am having a problem when a user wants to close Microsoft Word before
printing is done. Clicking "No" keeps Microsoft Word open and completes the
print job. However, Microsoft Word does not close upon completion of the
print job. Clicking "Yes" closes Microsoft Word and cancels the print job.
Additionally, another message box appears asking the user if the user would
like to save the document.
I wanted to know if I can disable or eliminate the printing message boxe? Tag: Set Contacts for default envelope delivery address Tag: 76725
how do i write a complex expression
I need to mulitiply an amount from a REF Field by 3. If the product is less
than and equal to $100. then $100. If the product is greater than and equal
to $500., then $500. If the products falls between $100. and $500 then the
calculated amount should be entered Tag: Set Contacts for default envelope delivery address Tag: 76717
Using SQL in Word MailMerge
Hello all
Can anyone suggest how I can implement a way to programatically choose
certain records in a mail merge? I've been getting some results through
trial and error but if someone post some code to help me better understand
the process that would be great.
From my data, I'd like to choose the first two records and the last two
records and every X records to come up with about 20 sample records no
matter the size of the data file.
Anyone out there trying to do something similar?
Regards
Dale Tag: Set Contacts for default envelope delivery address Tag: 76713
Hyperlink, Screen Tips and VBA
Hello,
I added some VBA to a Word document which seem to cause my Hyperlinks and
Screen Tips not to work anymore. Has anyone else encountered this phenomena?
Thank you in advvance for any assistance. Tag: Set Contacts for default envelope delivery address Tag: 76705
Check if clicked on word document not in general main Word window
I use Word automation in my VB6 application
-I want to check if the user mouseclicks in the actual document area of the
active Word window. So far I can check with a DLL if the user clicks on the
main Word Window (including the menu, and proppopupwindows, and i want to
avoid this)
So i have a DLL that fires my VB CallBack function when a general click (can
be on any external app) happens.
public function CallBack(...) 'fires when a general mouseclick happens
' I have made a function to check which is the active window, and gets
the handle
'This function contains a GetClassName API
ClassName = NameActiveWindow(Hendel)
if ClassName <> "OpusApp" then
'We are not in a Word App so exit
exit function
end if
end function
So i want to improve and expand function above.
Allso
-Want to get the handle to the active (textbox shape) this to get the number
of textlines in it's textrange, a paragraphs or senctence or vbCR count is no
good because wordwrap is on. Tag: Set Contacts for default envelope delivery address Tag: 76704
Check if clicked in Word document not in general main Word window
I use Word automation in my VB6 application
-I want to check if the user mouseclicks in the actual document area of the
active Word window. So far I can check with a DLL if the user clicks on the
main Word Window (including the menu, and proppopupwindows, and i want to
avoid this)
So i have a DLL that fires my VB CallBack function when a general click (can
be on any external app) happens.
public function CallBack(...) 'fires when a general mouseclick happens
' I have made a function to check which is the active window, and gets
the handle
'This function contains a GetClassName API
ClassName = NameActiveWindow(Hendel)
if ClassName <> "OpusApp" then
'We are not in a Word App so exit
exit function
end if
end function
-Want to get the handle to the active (textbox shape) this to get the number
of textlines in it's textrange, a paragraphs or senctence or vbCR count is no
good because wordwrap is on. Tag: Set Contacts for default envelope delivery address Tag: 76703
Macro - find and replace funtion in a field
I am using a protected form.
When a user pastes test into a field I want all the 0 for example to be
replaced with #. Have recoreded a Ctrl+H macro, but it will not work on this
field. I think it has seomthing to di with the selection.
My macro writing skills are limited, so I would appreciate help with what
the code should be.
Many Thanks Tag: Set Contacts for default envelope delivery address Tag: 76699
Setup a macro to change a number after each print
Hello,
I am trying to setup a document that will change a number on it every time I
print the page. It is a one page form that is used for customers with
computer troubles. The issue is I have to cahnge the index number every time
I print the page and I want it to change it when I tell it to print. Also, I
need it to save at that point so anyone that needs to print more can pick up
where I left off.
Also, I need to know how to implement the thing into the document.
Thx Tag: Set Contacts for default envelope delivery address Tag: 76694
Insert two autotext entries?
I am trying to take a fill-in field (or maybe have the user click a button a
toolbar and pop up a dialog box), have the user type an autotext shortcut,
and then based on that shortcut choose the two correct entries to insert at
two different bookmark locations. I'm no programmer, so I can record and
manipulate macros, but don't know how to write them. See below for the macro
I've managed to record that will insert the two entries at two bookmarked
locations. Two problems with this code:
- I have no idea how to get it to accept the user's input as to which
autotext to use. This code just inserts the two autotext entries specified
in the code itself. The way the autotext shortcuts work is that I will
select a set of initals and the specific entries would be those initials with
either an "s" or a "c" appended at the end of the shortcut. So, if I type
"alw" the two shortcuts needed would be alws and alwc. If I type dpp, the
two shortcuts would be dpps and dppc. I'm hoping if the user types the three
initials, the macro can take over and "know" which two autotext shortcuts it
should be using.
- the autotext entries I need to use are stored in a document that we save
in our startup folder, so all the users share it and are able to access our
"system wide" autotext entries from it. However, this macro only seems to
work with autotext entries that are in my own Normal template. Any shortcut
that I try to use from our shared document returns an error saying that the
"requested member of the collection does not exist".
We could just put in two fill-in fields and have the users type the
appropriate shortcuts in each place, however I am hoping to use a macro to
help assure that the two entries inserted are always for the same person (so
we can't accidently put in contact info block for one person and put in a
signature block for another person.)
Am I trying to do the impossible or obscenely complicated here? Any ideas
anyone has would be greatly appreciated. Thanks for your time!
Selection.GoTo What:=wdGoToBookmark, Name:="Text1"
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
ActiveDocument.AttachedTemplate.AutoTextEntries("alws").Insert Where:= _
Selection.Range, RichText:=True
Selection.GoTo What:=wdGoToBookmark, Name:="Text2"
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
NormalTemplate.AutoTextEntries("dppc").Insert Where:=Selection.Range, _
RichText:=True
--Dawn Rhoads Tag: Set Contacts for default envelope delivery address Tag: 76692
Nonmodal user form focus
And while I'm asking questions about user forms with ShowModal set to False,
how do I detect when the user has activated another window (the user form has
lost focus) and when the user returns to the user form?
Bear Tag: Set Contacts for default envelope delivery address Tag: 76687
Selecting a combo box in a nonmodal user form
Hello:
I have a user form with a combo box that shows the style of the selection.
I'm displaying the user form in nonmodal fashion. How do I get that combo box
to have focus AND show the current text as being selected?
When ShowModal is True, using the SetFocus method highlights the combobox
text. When ShowModal is False, it doesn't. Neither do the SelStart and
SelLength properties work.
Any ideas?
Bear Tag: Set Contacts for default envelope delivery address Tag: 76684
How can I manipulate Word table cell alignment from Excel?
Hi everyone
I am writing an Excel application that creates and then formats a Word table
in a new document. I want to be able to set the cell alignment using VBA to
Centred. I have tried using the Range object but to no avail. I also tried
running a macro in Word, referring to the VBA code it generates but it refers
to the Selection object that does not work inside the VBA I am using in Excel
(I already set a reference to the Word Object library).
Can anyone help?
Tim Tag: Set Contacts for default envelope delivery address Tag: 76678
Formatting table cell externally
Hi everyone
I am developing an Excel application where a report in Word is to be
generated. The report consists of a table which I want to create and format
through VBA in Excel. In particular I want to be able to set certain table
cells so the text in them is Centred rather than the default Left. I have
tried using the range object but am getting nowhere (the cells remain Left
formatted). The final step is to display the document with all the correct
formatting. I tried running a Word macro, carrying out the centering and then
checking the VBA for clues but it refers to a Selection object that is not
recognised in VBA in Excel (even though I have set a reference to the Word
Object library).
Anyone able to help?
Thanks in advance
Tim Tag: Set Contacts for default envelope delivery address Tag: 76675
WordStar to MS Word conversion engine.
I have a number of documents in WordStar format (a defunct word processor)
that I need to convert to MS Word "doc"s. I have looked through the HELP
function in MS Word with no success. Microsoft's web-site topic search
doesn't recognize the term "WordStar."
Is there a conversion engine and how can I get it. (Free, if possible.) Tag: Set Contacts for default envelope delivery address Tag: 76674
is there a way tHat i can create an overlay with word
I have a form that I want to put data on. I want to scan the form into word
and then merge data over it. Anyone know how to do that???
Mike Tag: Set Contacts for default envelope delivery address Tag: 76673
Dropdown List of References
I currently have a toolbar macro that a user can select to insert a
cross-reference to an endnote that is already referenced in the document.
What the macro does is have a pop-up box requesting the user to input the
reference number into a text box, it stores the reference in a variable, and
performs the cross-reference using the variable number.
Now the user's want to have the pop-up give them a list of the currently
available references. Is this possible to populate a drop-down list with the
current references in the document?
--
Debra Ann Tag: Set Contacts for default envelope delivery address Tag: 76670
Inserting HTML images in a Word doc
Hello,
I recorded a Word macro that inserts an image that exists on the internet. I
started recording and went to Insert->Picture->From File. Then I inserted the
URL in the path bar. The file inserted fine and the vba code was recorded.
However, when I play back the macro, it says "Error 5152" - something about
the file not being valid. Anyone know how I can do something like this? I
have images on a webserver that I want to display on my page using a macro. I
am using Word 2000. Here is the vba code it records:
Selection.InlineShapes.AddPicture FileName:= _
"http://www.site.com/test.gif", _
LinkToFile:=False, SaveWithDocument:=True
Thanks
Danny Tag: Set Contacts for default envelope delivery address Tag: 76669
Word should have translation for Tagalog (Philippines).
I do not see any translation in Word for the Philippine dialects. I am trying
to learn Tagalog and would like to see a translation tool in Word.
----------------
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=2d4ab57d-fa53-4912-87b9-3cc79ea84890&dg=microsoft.public.word.vba.general Tag: Set Contacts for default envelope delivery address Tag: 76666
Word should allow making a macro for formatting an imported EPS
When turning on the macro recorder, I have discovered that the tools
associated with formatting an imported picture are turned off. I
consistently import full-page EPS images, to be positioned and sized to fit
the page. The settings I need are the same, every time. Frustrating that I
can't record this in a macro.
----------------
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=f895c9e5-8cfe-47f6-bf7c-11232a6d4dee&dg=microsoft.public.word.vba.general Tag: Set Contacts for default envelope delivery address Tag: 76662
How to hide caret in Word 2003?
Hi everyone,
I need to hide caret in Word 2003. I tried HideCaret API function like this
HideCaret GetFocus()
but without success. Function returned 1 (success) but the caret remained
visible. I tried also EnumChildWindows API to find handle of the window
containing the caret. In both cases I got the same hWnd but also the same
result - nothing happened.
Does anyone know how to hide caret in Word?
Thank you in advance.
Regards,
Robert Tag: Set Contacts for default envelope delivery address Tag: 76660
Saving HTML Fill In Forms
I have created a fill in form in Word using the Web Tools toolbar. Then
saved as a Web Page.
The form will be sent to users who do not have Word but have a browser to
access and fill in the Word form.
How do I get the data the user fills in? When the user emails the form, I
get the form back blank.
Thanks for any input! Tag: Set Contacts for default envelope delivery address Tag: 76645
Toolbar Button in Word to Open Access Database
I'm using Word 2003 and need to be able to create a button on a toolbar which
will open an Access 200 database which has addresses in it.
Can anyone assist me with this.
Thanks! Tag: Set Contacts for default envelope delivery address Tag: 76643
Parsing a Word doc and using data to create new doc
I want to programatically parse a Word document and create a new Word
document with the extracted data. I think creating a wizard/VB application
to do this would be ideal. As an alternative, I guess I could create a
macro. Does anyone have some VB code that I could look at? Tag: Set Contacts for default envelope delivery address Tag: 76640
Question on automating Dialogboxes in VBA
Hello, I was wondering if the following is possible in VBA. I am
running a model that pops a dialog box up once in a while - each time,
the button I click to rerun the model is exactly the same, i.e. 'Run'.
Is there anyway I can automate this process, so everytime the dialog
box pops up, it automatically clicks the 'Run' button. If not VBA, what
other program would be useful here. I was wondering if the answer might
be as simple as being able to run a Newline function within a dialog
box. Thanks. Tag: Set Contacts for default envelope delivery address Tag: 76636
How to check whether a file is a valid word document or not?
I would like to know how i can check whether a particular file is a valid
Word Document or not.
I tried to read the "Application Name" atribute in the summary information
of file using ActiveDocument.BuiltInDocumentProperties collection. But it
always returns "Microsoft Word" even though i open a PPT or Excel file.
Please help me in addressing this issue.
Thanks a lot in advance. Tag: Set Contacts for default envelope delivery address Tag: 76632
template and menubar
i am using office xp, word 2002 - sp3.
i have created a toolbar and a menubar for my new template. when i open this
template in a different computer (using same office version), my menubar
disappears, only the toolbar is available.
please advice how to accociate the menu with my template and make it
available in other computers.
thanks in advance Tag: Set Contacts for default envelope delivery address Tag: 76630
ComboBox
Hi,
Is there a way to determine the difference between typing in a combobox and
changing it by using the drop-down? I can only find the change-event.
/ Ulf Tag: Set Contacts for default envelope delivery address Tag: 76629
Findout the solution of my project
I'm using Visual Basic 6. I'm doing my project which is related with VB and
Word. I've designed One Button and Rich Text Box. (RunTime )Copy Word
Document contant and paste it in this RichTextBox. If you click this button
it should autometically saveas Word Document. It's working but the alignment
not in order. Could you please tell me what we are getting from our word
document it should appear on our document in the same manner Tag: Set Contacts for default envelope delivery address Tag: 76626
need help for hooking the selectcert dialogbox
Hi all
I am looking for tweaking the current behavior of Word when it comes to
apply a digital signature.
Actually a dialogbox pops up showing available certificates in my store when
applying following code in a macro
dim sig as signature
set sig = activedocument.signatures.add
'here the dialog box pops up and we select manually a certificate
'then to save the signature attached we need :
activedocument.signatures.commit
I would need to pass a time stamp (date) as parameter to tweak the digital
signature , I would like to hook in the select_cert_struct used to build the
listbox showing the certificates (Article on MSDN about selectcert function
as well) only with filtered certificates (signer name, certificate issuer and
expiration date)
I can't figure out how to proceed...
Any of you can help me ?
looking forward to hear from you soon I remain
regards Tag: Set Contacts for default envelope delivery address Tag: 76621
How to deselect floating text box
In Word 2000 I have a floating text box in a cell of an many-row table. I
am trying to create a macro that will delete the box, the paragraph mark
that it is anchored to, and the 3 blank paragraphs after it (all in the same
cell). "Selection.ShapeRange.Delete" will delete the text box, but the
cursor jumps to the top of the document. I tried some GoBack commands to
bring the cursor back to where the box had been but they don't always take
the cursor to the right location.
What I really want to do is start the macro with the text box already
selected by the user, then deselect the box and put the cursor immediately
in front of it so I can delete the paragraph containing it. What code do I
use to that is equivalent to "deselect the text box and put the cursor
immediately before the box"? ("Collapse" puts the cursor in front of the
text that is in the box, not before the box.)
TIA,
Vivian Tag: Set Contacts for default envelope delivery address Tag: 76615
Embed files in Word (OUTLOOK.Fileattach)
I have RTF files which have embedded ole objects whose classtype is
"Outlook.FileAttach". I've been trying to use the inlineshapes property in
the word object model. I can't do inlineshape.oleformat.object.saveas.
There is a Run-time error 430: Class does not support automation or does not
support expected interface.
My code works for other classtypes besides this. Is there a way around
these classtypes? Tag: Set Contacts for default envelope delivery address Tag: 76611
Convert slide object to jpg
I'm using "Send To Word" to get my slides and speaker notes to a Word
document for further editing and reformatting. The slides are sent as
"slide objects"; this results in an enormous Word file size. In
m.p.powerpoint I asked if there is a way to get "Send To Word" - or some
similar function - to send jpgs or some other image style.
My other option is to convert the slide objects, programmatically, to jpgs.
I tried the following:
Selection.InlineShapes(1).OLEFormat.ConvertTo ClassType:= "Paint.Picture",
DisplayAsIcon:=False
but I get "Run-time error 5360: The server application, source file, or item
cannot be found..."
Is there a way in vba (or other way) to convert the slide objects to
pictures?
BTW, my workaround is to use SnagIt to capture the image of the slide object
in the clipboard, delete the slide object, and paste the image in its place.
Tedious for long documents, however!
Thanks,
Bob Tag: Set Contacts for default envelope delivery address Tag: 76610
Show/hide large pieces of a document?
Hi,
Here's an interesting challenge... I was asked to create an application
that would let users choose paragraphs to show or hide using a checkbox.
The basic idea is that they would look at several alternate paragraphs per
page, choose one by checking its checkbox, and then generate the "final"
version of the document, which would hide the non-checked paragraphs on each
page. In some cases, entire pages could be shown or hidden with page-level
checkboxes in addition to the paragraph-level checkboxes (e.g., if a page is
checked, only show the paragraphs on that page that are also checked).
I don't know where to start on this one. I've fiddled around with bookmarks
and ranges, and neither seems to offer an easy answer. Can anyone offer any
good suggestions to make this a straightforward kind of project?
Thanks to anyone who can help...
...Jay Tag: Set Contacts for default envelope delivery address Tag: 76607
How to prevent the wdPaneComments pane from opening
I have a toolbar to add comments using:
Selection.Comments.Add Range:=Selection.Range
Selection.TypeText Text:=MyText
How do I prevent the wdPaneComments pane from opening.
The ActiveWindow.ActivePane.close, works but flashes the screen.
Please help. Thanks. Tag: Set Contacts for default envelope delivery address Tag: 76605
how do i add items in the drop down box using Visual basic?
HI all
Can anyone tell me how do i use vb to add items in the dropdown box as i am
making a form and using control toolbox to create a drop down.
please Help!!!!!!!!!!!! Tag: Set Contacts for default envelope delivery address Tag: 76596
Repost: PDF four versions of a document then delete interim saved Word files
I posted this the other day but it seems to have fallen off the radar
screens because of the weekend.
Thanks
Mike
So I'm working on this template and the client wants it to have the ability
to make PDFs of four different versions of the same document... basically
changing the logo to reflect the different businesses that are part of the
corporation. Okay, I've got that all set up. A couple things are challenging
me, though.
1. I've got a button the user can click to generate the four different PDFs.
In order to do so, I have to give the document a different file name for
each one, otherwise when I create the PDFs it would just overwrite the same
PDF file and I'd only end up with one. So I modify the filename and do a
"Save As..." and everything's cool.
However, I'm unable to pass the path to the Acrobat Distiller printer so I
have to have the user manually browse to the directory where the PDF files
should be saved.
Anyone know of a way I can programmatically pass the appropriate path to the
Acrobat Distiller print dialog? Of course, I'd rather not have to have the
Acrobat Distiller print dialog display at all but it doesn't seem there's a
way to just have it all happen under the hood. Any pointers would be
welcome.
2. Because I'm doing the "Save As...", I'm ending up with four separate .DOC
files. When I create the file I initially save it with a compound filename,
consisting of a filename string the user provides (I put up a dialog box
requiring the user to enter a filename) with a string representing the
initial logo. So, for example, the initial file might be named
"Document1-logo1.doc". When I go through the PDF process, I modify the
filename to reflect the change of the logo and do a "Save As...", ending up
with three other files... "Document1-logo2.doc", "Document1-logo3.doc" and
"Document1-logo4.doc". So the process is as follows:
*Create "Document1-logo1.doc"
*Print "Document1-logo1.doc" to Acrobat Distiller printer, yielding the
default filename of "Document1-logo1.pdf"
*Save as "Document1-logo2.doc"
*Print "Document1-logo2.doc" to Acrobat Distiller printer, yielding the
default filename of "Document1-logo2.pdf"
*Save as "Document1-logo3.doc"
*Print "Document1-logo3.doc" to Acrobat Distiller printer, yielding the
default filename of "Document1-logo3.pdf"
*Save as "Document1-logo4.doc"
*Print "Document1-logo4.doc" to Acrobat Distiller printer, yielding the
default filename of "Document1-logo4.pdf"
The client wants the process to end up with only the original file
("Document1-logo1.doc"), so I need to delete "Document1-logo2.doc",
"Document1-logo3.doc" and "Document1-logo4.doc". I store the fully-qualified
filenames that I've used as strings named "killfile1", "killfile2" and
"killfile3" but when I attempt to delete the files using the language "kill
killfile1" I get a "Runtime error '70', Permission denied". So it appears
that I've got the instruction correct but there's something that prevents me
from actually deleting the file.
So my second question is how do I avoid the "Runtime error '70', Permission
denied"? Or is there a way I can pass the preferred PDF filename and path
directly to the Acrobat Distiller printer driver so I never have to do a
"Save As..." to the Word document??
3. When I create the file initially, the filename I use is constructed from
user input (from the example above, the user would have typed "Document1" in
the dialog box I put up) with a representative logo string ("-logo1"). If,
at some point in the future, the user wants to revise the document, they'll
open "Document1-logo1.doc". Now I have a problem because I don't have a
user-entered string stored ("Document1"). So if they then click the PDF
button, they end up with:
"Document1-logo1.doc"
"Document1-logo1.pdf"
"Document1-logo1-logo2.doc"
"Document1-logo1-logo2.pdf"
"Document1-logo1-logo3.doc"
"Document1-logo1-logo3.pdf"
"Document1-logo1-logo4.doc"
"Document1-logo1-logo4.pdf"
And my file deletion code fails because it's never able to construct the
proper "killfile1", "killfile2" and "killfile3" strings.
<arggh>
Any suggestions??
Thanks
Mike
--
Mike Starr WriteStarr Information Services
Technical Writer - Online Help Developer - Technical Illustrator
Graphic Designer - Desktop Publisher - MS Office Expert
(262) 694-1028 - mike@writestarr.com - http://www.writestarr.com
--
--
Mike Starr WriteStarr Information Services
Technical Writer - Online Help Developer - Technical Illustrator
Graphic Designer - Desktop Publisher - MS Office Expert
(262) 694-1028 - mike@writestarr.com - http://www.writestarr.com Tag: Set Contacts for default envelope delivery address Tag: 76595
Word should have a temp file like cookies for unsaved documents.
I do IT support for NDSU. One of the people I was helping yesterday had her
laptop loose power. She didn't save her document and lost 15 pages she had
typed. If there was a stored temp file for each document typed something
like this could be retreved. It could save itself in a directory called temp
and label as doc0001, and the next doc0002. It could save over itself say
every 10 seconds.
----------------
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=d571a30f-a9b5-4a8e-81c3-d2822710b20d&dg=microsoft.public.word.vba.general Tag: Set Contacts for default envelope delivery address Tag: 76585
How do you make the Contact list the default for the delivery address on
envelopes?