Footer Dates
We have several dozen documents in one folder (G:\Specs)where the same footer
information was inserted on each page. Among that information is a date
(manually typed -- it is not a Date field), which is the same for each
document in that folder.
What we want to do is if the footer date in all of these documents needs to
be changed, run a macro that opens each document, seeks out the date in the
footer and replaces it with whatever date we want (provided by perhaps an
Input Box). The format of the date is typically 09-21-05, but also may be
09/21/05. Can anyone give me some ideas? Thanks! Tag: Insert rtf formatted text Tag: 74104
VB or VBA code for permutations
Could you please help with writing a VB or VBA code for permutations:
Context:
There are some sentences in Word that will be selected by a user. The result
should be a permutation (only one, not all of them) of these sentences (i.e.,
sent4, sent2, sent1, sent3 instead of the initial sent1, sent2, sent3, sent4).
Thank you in advance for every help. Tag: Insert rtf formatted text Tag: 74103
Problem with Printing Word Documents
I have a VB.NET application I wrote to assist users in printing groups of
Word 2000 documents multiple times. Let say that 1 group consists of 10 word
documents and I need 10 copies of the group, 100 documents total. When these
documents are printed, some of the pages within the documents do not print
completely. Incomplete printing would be, a document with a header and
footer but no data or a document with only part of the pages data. The page
or pages that are incorrect are not always the same. I have tested with
several different print drivers as well as a few different printers. I
believe that it is a Word issue, due to my last application change. I
modified the application to print to a file and the same thing is happening.
I am using Word 2000 SP3. Any help would be appreciated. Thanks Tag: Insert rtf formatted text Tag: 74102
Getting AutoIncrement Number
I want an auto increment number on my document exactly where the cursor
stays. For example while typing a text I need a autoincrement number (using
as a reference number of a document) sometime on the 1st line, sometime on
6th line of the text or some time in next paragraph.
Therefore I am looking for a solution to get auto increment number exactly
where my cursor stays (any where in the document).
Please advise.
Regards.
Irshad. Tag: Insert rtf formatted text Tag: 74099
how to programmatically select a certificate to sign a word Docume
Dear all,
I would like to find the way to select programmatically the right
certificate in my store before issuing the digital signature.
It looks like it is quite challendging because the
set signature=activedocument.signatures.add command
does pop up a listbox to manually choose a certificate from .
I would like to bypass this and be able to select programmatically the
certificate to issue a digital signature from with some conditions on issuer
and signer and has private key properties (for example).
Must I use Capicom objects instead ?
Is it the same if I make a signature from capicom versus from Word
internally ?
any code snippet to solve my issue or to show me the way is more than welcome
Best regards
Herve Cadieu Paris Tag: Insert rtf formatted text Tag: 74096
Paste a bitmap from VB.NET2005 to Word2000
I am trying to paste an image in a pictureBox in vb.NET to a Word document.
When using the paste method, the image quality in Word is bad. If using
pasteSpecial method, all the dataType, like wdPasteBitmap or
wdPasteEnhancedMetafile, etc. are not available.
The code is as follows:
wdApp = CreateObject("Word.Application")
wordD = wdApp.Documents.Add
My.Computer.Clipboard.Clear()
My.Computer.Clipboard.SetImage(bm)
wordD.Sections.Item(1).Range.PasteSpecial(Link:=False,
DataType:=Word.WdPasteDataType.wdPasteShape)
Does Anyone know how?
I also find that when using pasteSpecial to paste a picture to Word, the
foramt of JPeg, Png, etc are not available until you cut the pasted picture
and do the pastSpecial again.
Thanks.
--
I like Vb. Tag: Insert rtf formatted text Tag: 74094
What is the difference between the two different Save methods?
When I save the modified document, I find the
Save button on the General Toolbar is different
from the Save command in VBA code.
The document size is smaller when using the Save
button to save.
I wonder what is the difference?
Any reply is appreciated.
-- Tag: Insert rtf formatted text Tag: 74093
Calling MS Word Mail Merge with Database Password
How do I call an MS Word Mail Merge document from VB.NET so it does not ask
the user for the MS Access Database Password? (not user password)
I am performing Word XP automation from a VB.NET program. The Word document
is set up to mail merge against an Access XP database. The Database has a
Database Password on it.
Without the database password, the document comes up just fine and without
any user interface intervention from MS Word.
I have tried a couple of commands that still popup the enter password dialog:
1.)
mWordDoc.MailMerge.OpenDataSource(
Name:="C:\Develop\TestMSWord\TestMSWord\bin\Docs\mydb.mdb",
LinkToSource:=True, PasswordDocument:="mypassword", SQLStatement:="TABLE
SellerInfo")
2)
mWordDoc.MailMerge.OpenDataSource( _
Name:="C:\Develop\TestMSWord\TestMSWord\bin\Docs\mydb.mdb", _
PasswordDocument:="mypassword", _
Connection:="Provider=Microsoft.Jet.OLEDB.4.0;Data Source & _
"C:\Develop\TestMSWord\TestMSWord\bin\Docs\mydb.mdb;" & _
"User Id=admin;Password=;Jet OLEDB:Database Password=mypassword;", _
SQLStatement:="Select * from `SellerInfo`")
Thank you. Tag: Insert rtf formatted text Tag: 74091
Does the free Microsoft Word Viewer have an open API?
I would like to use the viewer, but want to hide the menu and toolbars so
factory personnel do not have acces to navigate on the network. The Word
documents will be opened from a customized program, so all opening operations
are dictated outside of the viewer itself. Tag: Insert rtf formatted text Tag: 74079
load form into word upon opening
I have a form that I have created in word using VBA, how do I call it up
automatically when MS Word opens? What is the code and where do I put it?
Thank you, Tag: Insert rtf formatted text Tag: 74078
how do I create a database using the word 2003 toolbar
I am using Word 2003. I want to create a database using the database toolbar
that is in Word 2003. Once the database is made I cannot save it unless I
close the dbase screen. The screen that is left open shows my dbase setup i.e
name, address etc. How do I save the dbase so that when I call it up to use
it all I have to do is fill in the Blanks? Tag: Insert rtf formatted text Tag: 74070
How to select programmatically the digital certificate for signing
Hi all,
I would like to know how to select programmatically (VBA) one specific
certificate to issue a word doc signature , the certificate could be either
in mystore or smartcard or LDAP
I would like to parse the available certificates properties like issuer ,
common name, etc.. to select the precise certificate I would like to use for
signing purposes.
When using the (addsign macro) set sig=activedocument.signatures.add
instruction it displays a listbox but I would like to avoid this listbox and
select programmatically the certificate instead.
Any suggestion with code snippet is very welcome
Best regards
Herve Cadieu Tag: Insert rtf formatted text Tag: 74068
Is it possible to call and use MSWORD in command line mode?
Hello all,
Actually I would like to use the "Compare and modify" function in Word and
Excel, but instead of opening the word application to complete the task, is
there anyone know how to do it in command line mode? like c:\..\MSWORD
c:\test1.doc c:\test2.doc "Compare and modify"
or I need to write a VB program to call the function in MS office?
Any comment, suggestion?
or any related document for reference?
Thanx so mush for your help
MK Tag: Insert rtf formatted text Tag: 74064
Apply formatting to XML Tag
Hi,
Could anyone help me with these please
I have the following situation:
The user has a blank word document with a schema attached and has to add
text to that document and tag the text accordingly. Now, i want to show each
tag he adds with a different style. For eg, if he tags text with the <title>
tag, i would like these texts to be displayed in bold with green highlight.
he tags text with the <subtitle> tag, i would like these texts to be
displayed in italic.
Is there a way to achieve this?
Thanks
Alicia Tag: Insert rtf formatted text Tag: 74061
Error whilst fields are updating
I have designed a report template using ASK fields (the report cannot be
protected and tables are not practical). A macro placed in the ThisDocument
module prompts the ASK fields and it all works beautifully except that whilst
the prompts for the ASK fields are on screen you can see the document behind
and where the bookmark for the ASK fields are it displays "Error Bookmark not
Defined" - however when they are all filled in the error disappears and the
data that was typed in the boxes appears in the correct fields, but I can't
have users seeing the error messages it would confuse them.
I have tried all sorts of ways but cannot find how to hide the window whilst
the fields are updating. I've tried Application.ScreenUpdating = False, but
it didn't work. Anyone have an idea?
The code is:
Sub AutoNew()
Dim oStory As Range
For Each oStory In ActiveDocument.StoryRanges
oStory.Fields.Update
If oStory.StoryType <> wdMainTextStory Then
While Not (oStory.NextStoryRange Is Nothing)
Set oStory = oStory.NextStoryRange
oStory.Fields.Update
Wend
End If
Next oStory
Set oStory = Nothing
Selection.GoTo What:=wdGoToBookmark, Name:="StartDoc"
End Sub
Thanks for looking at this.
Jeanmac Tag: Insert rtf formatted text Tag: 74060
refreshing image in ms word using vba
I am dynamically changing the image property of a picture box in word
with something along the lines of...
LoadPictureToDocument ActiveDocument, "imgMenu", strImage
This is working, however it won't 'refresh' the page so to speak. When
you minimize word then restore it the image has changed, or if you
scroll to the bottom of the page then back up it refreshes.
Is there some sort of form.refresh type function using vba in word?
Thanks
Dan. Tag: Insert rtf formatted text Tag: 74056
My Normal template not working in a different computer
Last week I copied my normal template from my computer (with Word 97 and
Windows 98) to another computer at a friend's house where I was staying
(with Word 97 and Windows XP). Many of my macros didn't work. When I
ran them I got this error message:
"Compile error. Can't find project or library"
When this happens to a macro, the highlighted text in the macro always
involves the character code symbol, like this: Chr(30), for example,
Selection.MoveEndWhile cset:=",.!? """ & Chr(13)
So I guess I needed some special reference to be checked which would
allow this computer to handle the character code symbol.
Also, with many macros, I got this error message: "Compile error, can't
find project or library"
With other macros, I get message "Can't open macro storage." Even though
the templaste containing the macro I was trying to run would open to
that macro.
I'm no longer working at the XP computer, but to avoid this problem in
the future, does anyone know what I was doing wrong?
Thanks,
Larry Tag: Insert rtf formatted text Tag: 74054
refreshing image in ms word using vba
I am dynamically changing the image property of a picture box in word
with something along the lines of...
LoadPictureToDocument ActiveDocument, "imgMenu", strImage
This is working, however it won't 'refresh' the page so to speak. When
you minimize word then restore it the image has changed, or if you
scroll to the bottom of the page then back up it refreshes.
Is there some sort of form.refresh type function using vba in word?
Thanks
Dan. Tag: Insert rtf formatted text Tag: 74053
Load Fields on a Form with Button Click?
I have fields in a word document template that I would like to allow the user
to fill in. Then with a button click, I would like to copy the data from
those fields that the user filled in to other areas (fields) on the same form
to be used as prompts for additional input. I can read the user inputs from
the initial bookmarked fields with the
dim x as string
ActiveDocument.Bookmarks("fred").select
x=Selection.text
I cannot see how to load another field with the x text
Something like :
ActiveDocument.Bookmarks("fred1").select
Selection.text=x
This removes the fred1 bookmark and the associated field. Tag: Insert rtf formatted text Tag: 74051
water marks on word document
On a word document there are sample water marks available on the system. How
do I make my on water mark (e.g. my name) and put it diagonally on the
document? If I want to put my hand writing there how do I do that? Tag: Insert rtf formatted text Tag: 74049
Variables and scope ? !!!!
I wonder if some one can clarify if it is possible
I want to set a global or constant in word at the start of a document /
module in vba is this possible
I understand to set a variable i use the "public" and if i require a set
value that i would use the "const"
But how do set a variable to the whole document which refers to a table
something like const tblEmployees As Tables = ActiveDocument.Tables(1)
or this is poor coding or bad practice... ?
if ppl have any tutorials or links which might help it all become clear
many thanks Tag: Insert rtf formatted text Tag: 74048
msword 2003 chgs ' when text is programmably inserted into msword
I am programmably populating a MSWORD html template which has tags inserted
in the html. All is well and good except for apostrophe and perhaps a few
other characters. Instead of converting to ' word changes the ' to � .
In the browser this is what you get.
Anyone have explanation and fix?
--
Thanks,
StanD Tag: Insert rtf formatted text Tag: 74045
RTF images conversion
Hi,
I'm working with an application which automatically generates an RTF
document using the JFOR library.
The problem is with Word 2003: an image file (our company logo) appears at
the top of the page, as designed, but is resized to 2% of it's original
design. This means that the conversion ignores the width and height
dimensions set in the RTF.
Previous versions of Word work fine and the imaged are rendered correctly.
Can anyone tell mw how to correct this? Or why this happens? Our users
were very confused and thought that the image didn't get placed in the
document at all. Of course, I didn't even know our image was there until I
viewed the document at 500%. Please help. Tag: Insert rtf formatted text Tag: 74042
Built in Word dialog problem
I'm trying to use on of Word's built in dialogs, namely the table auto-format
dialog. Reading up on MSDN, this should work:
Word.Dialog dlg =
Application.Dialogs[Word.WdWordDialog.wdDialogTableAutoFormat];
However, doing this I get the following error:
"Microsoft Word: This method or property is not available because some or
all of the current selection is not in a table."
What am I doing wrong? Tag: Insert rtf formatted text Tag: 74035
Accessing numbering from a macro
Hello
Is it possible to access the numbering of a heading from a VBA macro? I've
already tried but the "Selection" object ignores the numbering.
Cheers
Jorge Tag: Insert rtf formatted text Tag: 74026
reading line from table cell into array
Hi,
I want to read a line from a table cell into an array. Just can not figure
out how to read the lines into arrays.
This is what I´ve got so far from
http://mypage.bluewin.ch/reprobst/WordFAQ/Tabellen.htm#Tabellen05
Sub WordTabelleNachEindimensionalenArray1()
Dim x() As String
Dim oTable As Table, Zelle As Cell If ActiveDocument.Tables.Count = 0
Then
MsgBox "Das Dokument enthält keine Tabelle.", vbInformation
Exit Sub
End If Set oTable = ActiveDocument.Tables(1)
ReDim x(1 To oTable.Range.Cells.Count)
i = 0 'Oder auch -1, wenn der Array bei "0" beginnen soll
For Each Zelle In oTable.Range.Cells
i = i + 1
strText = Zelle.Range.Text
x(i) = Left(strText, Len(strText) - 2)
Next Zelle
End Sub
I can save the whole cell into the array, but not just one line. How should
this be changed?
Thanks in advance for every help
Rob Tag: Insert rtf formatted text Tag: 74021
Fonts could not be registered?
Hi everybody,
not a real problem,
it's just that I am curious about it.
When using Word XP after having used Word 97,
a message box pops up, saying that
"Some of the fonts could not be registered", or so.
Which fonts? What registration?
Not a VBA question for sure, forgive me.
--
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de" Tag: Insert rtf formatted text Tag: 74019
Microsoft Word suggestion
Microsoft Word should have an option similar to T9 and other cell phone
predictive text software; one that showed possibilities to finish a word as
it's being typed, so that if someone is typing "onomatopoeia", they can type
"onom" and see a display suggesting several ways the word could be finished;
it could be like the phones, where a highlighted possible end of the word
appears after every unfinished word and one can simply press ctrl or
something. Or it could be more like Microsoft, and have a little separate
window open with the possible words appearing as one types. Either way, I
think it would be a good tool for 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=c7450302-262e-4dea-8f1e-b0f4694e59a5&dg=microsoft.public.word.vba.general Tag: Insert rtf formatted text Tag: 74017
Continuous section break interfering with odd/even page header
I have created a tempate that has a different first page header/footer and
odd/even headers/footers for the rest of the document. I want to start the
second page of the document as two even columns (the first page is not in
columns). Users are not regular Word users, therefore I have a macro that
does that for them (see below). However, when you run the macro the odd/even
page header that has been set up changes and instead the header for the first
page is inserted. The code finds the first character on the current page,
inserts a continuous section break and sets up 2 even spaced columns. Does
anyone know why it plays havoc withthe header? I'd be really interested to
know and grateful for a solution.
The code is:
Sub ConvertToColumns()
'converts the contents of the current page to two equal columns
' moves to te left of the first character at the top of the current page
Selection.Bookmarks("\Page").Select
Selection.Collapse wdCollapseStart
'creates a continuous section break and two even columns
With Selection.PageSetup.TextColumns
.SetCount NumColumns:=2
.EvenlySpaced = True
.LineBetween = False
.Width = CentimetersToPoints(6.69)
.Spacing = CentimetersToPoints(1.27)
End With
'moves to the right of the last character on the page window (not to footer)
Selection.Bookmarks("\Page").Select
Selection.Collapse wdCollapseEnd
End Sub
Thanks for any help
Aehan Tag: Insert rtf formatted text Tag: 74012
word and access data link
Help!!!
I am new with programming.
Need to link access table on a template to be updated bidirectional each
time the template is opened. Any detail help is greatly appreciated.
Thanks Tag: Insert rtf formatted text Tag: 74011
Word & IE Quits unexpectedly
My Microsoft Word 2005 & IE 6.0 unexpectedly quits while working...Even
I am writing a letter in Word or Browsing on the Internet, both windows
unexpectedly quits after sometime...Please help me....Thanks Tag: Insert rtf formatted text Tag: 74010
Mail merge
I am creating a mail merge Word orientation handbook that is to be unit
specific. The data to make it unit specific is in an Access database. The
section layout is designed to go inline with the checklist used for
orientation.
I have gotten the basics working as I want it to. I have also created an IF
statement to display material if the department is ICU it would display
specific text that isn't otherwise displayed.
Here are my issues: I have more skills than most users at the facility. If I
was to leave the facility I want something that isn't going to be difficult
for them to maintained and improve on with time. I am concerned that if I
hide material in IF statements someone else will not know how to deal with
them. I am planning to create a manual to go with the handbook so I am
thinking IF statements may work.
I will have sections that only apply to one or two units. I will not be able
to just tack on the material to the end of the main document because it
would mess up the flow. For example the ER has a sub section on Radios that
needs to be included in the General Operation section of the handbook not at
the end. My question is how to best bring in information like this. Is there
a way to insert a file or show hidden text. For example { IF Department =
Emergency Room, Bookmark unhidden, Bookmark hidden }
Any ideas would be appreciated to keep this project usable for basic users
and slightly above basic users (me)?
Thank you
Fay Tag: Insert rtf formatted text Tag: 74006
Finding Chrw Codes.....
Hi,
I am newbie to VBA programming. I want to find Greek Symbols through VBA.
But i don't know Chrw codes..i.e., Chr(13).... Where i can find the list of
chr codes. Or anyone can give me the list.
Thanks in Advance. Tag: Insert rtf formatted text Tag: 73993
List all Bookmarks in a Protected Form
Hello everyone.
I have a protected form that is filled out by various users. I would like
to be able to go to the end of each completed document where there is an
unprotected continuous section and click a MACROBUTTON which will run a macro
that will display the "text only" of each bookmark in the document. Each
bookmark text would be listed in a separate paragraph in the order that they
appear on the protected form.
Thanks. Tag: Insert rtf formatted text Tag: 73983
Search Macro
Hey,
I'm trying to create a macro in word that finds the word Engineer and
when it does copy the first 7 charators of that line and paste it
either to another word document or and excel spreadsheet. I have done
VB for excel macro's but this is confusing me. Any help would be
appreciated.
Thanks
Andrew T Smith Tag: Insert rtf formatted text Tag: 73978
DefaultFilePath with Read Only files
Word 2003; WinXP Personal
I have several simple macros (with toolbar buttons) to change the
default Save As directory. For example:
**********************************
Sub HouseholdAsDefault
Options.DefaultFilePath(Path:=wdDocumentsPath) = ("C:\Documents and
Settings\<my name>\My Documents\Household")
End Sub
**********************************
This works fine with a newly created file. When I first save it, the
Save As dialogue is in the "Household" folder.
It doesn't work for boilerplate files that have been set as Read Only
in the desktop. When I open such a file, I immediately get prompted to
Save As in the folder in which the boilerplate is located. I press Esc
and run the above macro, then attempt to Save As. The Save As dialogue
still defaults to the boilerplate file's folder, not to Household.
Is there any way to force a change in the default Save As folder in
this situation? (Note: ChangeFileOpenDirectory doesn't work either.)
Thanks. Tag: Insert rtf formatted text Tag: 73977
change my office word from arabic to the english version
how can i change my office word from only arabic version to english version
with out losing the arabic language in the program? Tag: Insert rtf formatted text Tag: 73971
AutoNum field in 2003
I have two tables that are separated by a blank line. I need to use AutoNum
fields in each table; each starting with the number 1. I have read the help
and other questions here, but everything I have tried is to no avail. I have
tried formatting the first blank line before the Table Heading as Heading 2
(style was modified but name remains Heading 2). The first blank line before
the second Table Heading was formatted as Heading 3 (style was also modified
but name remains Heading 3).
According to Help this was suppposed to work.
I also tried the SEQ field but numbers do not auto advance. And ListNum
doesn't do it either.
Is there an undocumented switch I could add to the field to make it restart
the numbering in the second table? Is there a VB solution I could use instead
of using fields?
Thanks
Jack Tag: Insert rtf formatted text Tag: 73960
open & close file with vba
This subroutine works fine the first time it is called. After that, the
following message pops up, "There is not enough memory or disk space to
complete the operation". I have to exit Word and restart to run the macro
again. If I don't save the file it works OK. If I take out the file save in
the routine but close the document manually I will still get the error
message.
I'm baffled!!!
Thanks for looking at this,
Bill
Sub PrintNewCheck()
'string fields have been set by previous sub
Const CHECK_DOC = "C:\Users\Overhead\QB\qb_blank.doc"
Dim iResponse As Integer
Dim oDoc As Document
Set oDoc = Application.Documents.Open(CHECK_DOC,
AddToRecentFiles:=False)
With ActiveDocument
.FormFields("Date").Result = sDateField
.FormFields("PayTo").Result = sPayToField
.FormFields("Money").Result = sMoneyField
.FormFields("DollarLine").Result = sDollarLineField
.FormFields("Memo").Result = sMemoField
iResponse = MsgBox("OK to print?", vbYesNo)
If iResponse = vbYes Then
.PrintOut
End If
End With
oDoc.Close wdDoNotSaveChanges
Set oDoc = Nothing
End Sub Tag: Insert rtf formatted text Tag: 73955
Formatting caption to match the previous paragraph
Hi
I would appreciate some help in coding a macro that finds each instance
of a caption style in a document and sets the caption to the same left
indent value as its preceding paragraph.
My Caption style is called ARTableCaption
My 3 possible paragraph styles which preceed each caption are:
ARBodyText Level1 Left Indent 1 cm
ARBodyText Level2 Left Indent 2 cm
ARBodyText Level3 Left Indent 3.25 cm
This is my code so far, but it is not working.
With ActiveDocument.Content.Find
.Style = "ARTableCaption"
Do While .Execute(FindText:="", Forward:=True, _
Format:=True) = True
Selection.MoveUp Unit:=wdLine, Count:=1
If Selection.Style = ActiveDocument.Styles("ARBodyText Level1")
Then
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.HomeKey Unit:=wdLine
Selection.MoveDown Unit:=wdParagraph, Count:=1,
Extend:=wdExtend
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(1)
.RightIndent = CentimetersToPoints(0)
End With
End If
End With
...
Loop
Thanks
Heather Tag: Insert rtf formatted text Tag: 73945
Hot to put whjole text into a string?
If I select the whole document and I write:
a$ = selection.text
I will NOT have the whole document into the variable, but just the FIRST
PARAGRAPH!!!
How can I store the whole document into one variable?
Or, how can I parse all paragrpahs one by one?
--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.aspx/word-programming/200509/1 Tag: Insert rtf formatted text Tag: 73943
id for buttons in word 2000
Hi, I Need the ID's for some mailmerge buttons in Word 2000: the button
for mailmerge with destination new document, destination printer and
destination e-mail if they already exist in 2000 (they do in word
2002). Otherwise the general button for executing a mailmerge. Easy to
retrieve for someone with Word 2000 and BuiltInControlsScanner.
http://www.add-in-express.com/files/BuiltInControlsScanner.exe
Thanks in advance
Tom Tag: Insert rtf formatted text Tag: 73942
Help me with a simple MS macro
Hi,
I want amend my macro that finds all instances of bold text in a
document and puts the text between <b> and </b>. This macro, however,
formats the tags themselves in bold. I want them in a non-bold (normal)
and blue typeface.
Thanks!
Here is the macro:
Sub BoldToTagged()
'
' BoldToTagged Macro
' Macro created 16.9.2005 by Ivaylo T Ivanov
' Finds all instances of bold text and puts the text between <b> and
</b> tags
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = "<b>^&</b>"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.Font.Bold = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub Tag: Insert rtf formatted text Tag: 73939
Insert Text From Opened Access Form
As .body is a property in Outlook, is there a similar one for a standard Word
document? Can an already-opened Word document's main body be referenced?
I have successfully migrated an already-opened Access form field into an
Outlook email message body by using a .body = Forms![Main]![List] type of
code and would like to do the same in word without having to perform
merge-related coding, if possible.
Thanks Tag: Insert rtf formatted text Tag: 73936
Word X "unexpectedly quits" while running a macro
I'm having a problem withina Word macro while trying to open an Excel
workbook. Oh yeah, and this is running on OS X 10.4 with Word X and
Excel X.
Here is the code, which I "borrowed":
Public Sub GetExcelData()
Dim oXlApp As Excel.Application
Dim oXlBook As Excel.Workbook
Dim oXlSheet As Excel.Worksheet
Dim oXLRange As Excel.Range
Dim bXlStarted As Boolean
Dim sExcelText As String
Dim sFileName As String
On Error Resume Next
'Grab running Excel instance
Set oXlApp =3D GetObject(, "Excel.Application")
If Err <> 0 Then
'Excel wasn't running
'start it from code
Set oXlApp =3D CreateObject("Excel.Application")
bXlStarted =3D True
End If
On Error GoTo 0
sFileName =3D _
"/Users/Admin/Desktop/Comment Sheet Work
Vol2/Comment-7th-sem3-2005.xls"
MsgBox "File name is " & sFileName
'Get the workbook
Set oXlBook =3D oXlApp.Workbooks.Open(FileName:=3DsFileName)
As I step through the code, after the last "Set" statement above to
open the Workbook, Word dies with the message "The application Word
quit unexpectedly." There is a report option, which when I click the
button displays lots of dump info such as:
Date/Time: 2005-09-14 20:59:13.273 -0400
OS Version: 10.4.2 (Build 8C46)
Report Version: 3
Command: Microsoft Word
Path: /Applications/Microsoft Office X/Microsoft Word
Parent: WindowServer [63]
Version: 10.1.6 (10.1.6 (040913), =A9 1983-2001 Microsoft Corporation.
All rights reserved.)
PID: 7329
Thread: 0
Exception: EXC_BAD_ACCESS (0x0001)
Codes: KERN_PROTECTION_FAILURE (0x0002) at 0x00000000
Thread 0 Crashed:
0 oaremZ 0x07312c88 0x72ffb00 + 78216
1 oaremZ 0x07314584 0x72ffb00 + 84612
2 <<00000000>> 0x07da77f4 0 + 131758068
3 <<00000000>> 0x07da77f4 0 + 131758068
4 VBE 0x075567a8 0x73b5000 + 1709992
5 VBE 0x07543724 0x73b5000 + 1632036
6 <<00000000>> 0x05c88c94 0 + 97029268
7 <<00000000>> 0x07da5d60 0 + 131751264
8 VBE 0x075567a8 0x73b5000 + 1709992
9 VBE 0x07543724 0x73b5000 + 1632036
10 VBE 0x07543574 0x73b5000 + 1631604
11 VBE 0x075ddff0 0x73b5000 + 2265072
12 VBE 0x075ddeb4 0x73b5000 + 2264756
13 VBE 0x074f41f8 0x73b5000 + 1307128
14 VBE 0x074d48f0 0x73b5000 + 1177840
15 VBE 0x074b56d8 0x73b5000 + 1050328
16 VBE 0x07414f00 0x73b5000 + 392960
17 VBE 0x074763d4 0x73b5000 + 791508
18 Microsoft_Office_2001Z 0x0105364c 0x1008000 + 308812
19 Microsoft_Office_2001Z 0x01053438 0x1008000 + 308280
20 Microsoft_Office_2001Z 0x0105334c 0x1008000 + 308044
21 Microsoft_Office_2001Z 0x01051d9c 0x1008000 + 302492
22 MCPZ.stb 0x005d84a8 0x5c59d0 + 76504
23 MCPZ.stb 0x005d83ac 0x5c59d0 + 76252
24 com.apple.HIToolbox 0x931288d4
DispatchEventToHandlers(EventTargetRec*, OpaqueEventRef*,
HandlerCallRec*) + 692
25 com.apple.HIToolbox 0x9312802c
SendEventToEventTargetInternal(OpaqueEventRef*, OpaqueEventTargetRef*,
HandlerCallRec*) + 372
26 com.apple.HIToolbox 0x93127ea8
SendEventToEventTargetWithOptions + 40
27 com.apple.HIToolbox 0x9312f1ec
ToolboxEventDispatcherHandler(OpaqueEventHandlerCallRef*,
OpaqueEventRef*, void*) + 704
28 com.apple.HIToolbox 0x93128b24
DispatchEventToHandlers(EventTargetRec*, OpaqueEventRef*,
HandlerCallRec*) + 1284
29 com.apple.HIToolbox 0x9312802c
SendEventToEventTargetInternal(OpaqueEventRef*, OpaqueEventTargetRef*,
HandlerCallRec*) + 372
30 com.apple.HIToolbox 0x9312edb0
SendEventToEventTarget +
40
31 MCPZ.stb 0x005fb530 0x5c59d0 + 220000
32 Microsoft Word 0x020da0d0 0x2008000 + 860368
33 Microsoft Word 0x0201d1e0 0x2008000 + 86496
34 Microsoft_Office_2001Z 0x01021964 0x1008000 + 104804
35 Microsoft Word 0x0201cc28 0x2008000 + 85032
and much more....
So what next? I'm not sure what would be the best approach. It seems
like a defect, code trying to go someplace it should not, but what
code? Word? Excel? VBA? and how do I report it to Microsoft? Could it
be somthing else?
Any suggestions about this problem would be appreciated.
Thanks,
Tom Tag: Insert rtf formatted text Tag: 73935
Scaling Pictures with VBA
Hello
I contacted Discussion Groups a few weeks ago because I wanted to scale
imported pictures to 50%, 25%, 75% etc of their size using code, and Jean-Guy
Marcil gave me some code that I really appreciated. However, I have hit a
snag. The pictures are logos, and are pictures and text, when Word imports
them it fits them across the margins, changing the size of the logo which
will now appear as, eg 55% of the original. When I wrote the routine for
scaling the macro I took this into account, eg 50% was half of 55% and so on.
However, to my horror I now see that Word uses the existing margins and
orientation of the current document, so what was 55% in portrait changes when
you import it as landscape.
Help!!! Does anyone have an idea of how I can write the code to look at the
proprotions of the graphic as displayed in the height and width boxes of the
Size properties in the Format dialogue box? Hope I am explaining this
correctly.
The code as provided by Jean-Guy at present is:
With Selection
Select Case .Type
Case 7 'Inline shape
.InlineShapes(1).ScaleHeight = 50
.InlineShapes(1).ScaleWidth = 50
Case 8 'Floating picture
.ShapeRange(1).ScaleHeight 0.5, True
.ShapeRange(1).ScaleWidth 0.5, True
Case Else
MsgBox "The current selection is not a picture." _
& vbCrLf & "Make sure you select only the picture itself.",
_
vbExclamation, "Error"
End Select
End With
Thanks for any help you can give.
Aehan Tag: Insert rtf formatted text Tag: 73933
Word Programming - issue with Word versions and automation
I have a program (DOT) running behind Msword via an application. One of the
automation is to save the active document using MS DOS With Layout format to
retain formatting etcetera. This works fine in Word 97/2000/XP. However, in
Word 2003, use of this converter requires InsertLineBreaks:=True so that line
breaks are inserted (without this a paragraph ends up as a single line in ASC
file).
Does anybody know a workaround method where the same program can work for
all versions without major changes?
--
AminC Tag: Insert rtf formatted text Tag: 73927
How to find a bookmark's parent bookmarks?
Given an instance of Microsoft.Office.Tools.Word.Bookmark, is there a way to
determine any surrounding bookmarks? I want to know all the bookmarks that
contain the range of a given bookmark.
Thoughts? Tag: Insert rtf formatted text Tag: 73926
Find and Replace in 2000
I have a macro that finds certain values and replaces them with bold versions
of the values. The macro works fine in Word 2003, but fails in Word 2000
even though the macro was made in Word 2000. Is there a problem with the
find and replace functionality in Word 2000? How do I do a find and replace
in Word 2000, if it is even possible?
Here is the error I get when I try to run the macro in Word 2000.....
"Invalid procedure call or argument"
Here is some of the code.....
Dim oRng as Range
Set oRng = Doc.Range
With oRng.Find
.Text = "Test Value" !!!!!!ERROR OCCURS HERE!!!!!!!
.Replacement.Text = "Test Value"
.Replacement.Font.Bold = True
End With
Thanks,
ACFalcon Tag: Insert rtf formatted text Tag: 73920
Hi
Is ther any method to insert .rtf formatted text into a word document other
than inserting an existing file (which I believe is quite slow)