I have a macro that works perfect in word 2003, but when i try to execute it in excel 2003 i always get the error run-time error '438'
(object doesn't support this property or method) why?

This is the macro:

Sub ABILIFY10()
    Selection.Font.Bold = True
    Selection.TypeText Text:="(ABILIFY 10 MG - CXS. 28 COMP.)"
    Selection.TypeParagraph
    Selection.TypeText Text:="Preço/comp.: "
    Selection.Font.Bold = False
    Selection.TypeText Text:=" CINCO VIRGULA ZERO TRÊS UM SETE OITO SEIS EUROS + IVA…………………………………."
    Selection.Font.Size = 6
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.Font.Size = 12
    Selection.Font.Bold = False
    Selection.TypeText Text:="N.º Reg. INFARMED: 5056387"
    Selection.TypeParagraph
End Sub

Can someone help me, please.

Hi

Properties TypeText, TypeParagraph are in Document Class, which is exclusive for Word. Excel does not have these properties

You can use the range properties to achieve the same. Here is your code in range

Sub ABILIFY10_ForExcel()

    Dim myTypeRange As Range

    Set myTypeRange = Cells(1, 2)
    myTypeRange.Font.Bold = True
    myTypeRange.Value = "(ABILIFY 10 MG - CXS. 28 COMP.)"
    Set myTypeRange = myTypeRange.Offset(1)
    myTypeRange.Value = "Preço/comp.: "
    myTypeRange.Font.Bold = False
    Set myTypeRange = myTypeRange.Offset(1)
    myTypeRange.Value = " CINCO VIRGULA ZERO TRÊS UM SETE OITO SEIS EUROS + IVA.............."
    myTypeRange.Font.Size = 6
    Set myTypeRange = myTypeRange.Offset(1)
    Set myTypeRange = myTypeRange.Offset(1)
    myTypeRange.Font.Size = 12
    myTypeRange.Font.Bold = False
    myTypeRange.Value = "N.º Reg. INFARMED: 5056387"
    Set myTypeRange = myTypeRange.Offset(1)
End Sub


Cheers
Shasur:)

http://www.vbadud.blogspot.com

Hi, it worked shasur, but it is possible to write the macro where i have my cursor (when i select a random cell) because if i want to select another cell to write the macro i would have to change the code in my macro.

Thank you.

That can be done

Replace Set myTypeRange = Cells(1, 2) with

Set myTypeRange = Activecell

This will do the needful

Cheers
Shasur

http://www.vbadud.blogspot.com

It worked.

You are the best, thanks

Hi,

I came across to this thread, which I found the nearest to my problem after searching on-line all day.

I understand that Selection.TypeParagraph is exlusive to Word document.
I have created tables in Word document from Excel, but when I use the above it doesn't work. I am trying to write not to Excel, but in Word table.

the macro works fine in Word.

Is there a workaround to this problem (writing to word tables as opposed to excel cells).

Thanks in advance.

Hi Alex

Can you post the code and the line where you get error?

Cheers
Shasur

__________________
C# Code Snippets (http://www.dotnetdud.blogspot.com)

VBA Tips & Tricks (http://www.vbadud.blogspot.com)

Hi Shasur,

thank you for your reply. I have managed to find way around by using range instead of selection. However, I still can't format individual words withing a cell:

My code with using selection is:
This would print candidateName with given colour and size 20 and then print "Assigned Employment Advisor" string with size 10 and in black.

The code with range is:
All above would be printed in size 10.

My question now is lightly different after using ranges.
Is there a way I can control individual words within a single cell?

Thank you

Hi

Can you check this method

http://vbadud.blogspot.com/2007/09/e...r-part-of.html

Cheers
Shasur

__________________
C# Code Snippets (http://www.dotnetdud.blogspot.com)

VBA Tips & Tricks (http://www.vbadud.blogspot.com)

Thank you Shasur,

I have not yet tried - will get back,

Cheers,