KickStarter15

Covert VB code to Autoit code

4 posts in this topic

#1 ·  Posted (edited)

Hi Experts,

I just need your help guys in converting this VBA code to Autoit. Not really good in doing the conversion.:sweating:

This is to find superscript letters or numbers in Word document.

Selection.Find.ClearFormatting
    With Selection.Find.Font
        .Superscript = True
        .Subscript = False
    End With
    Selection.Find.Execute
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Application.Browser.Next

Having hard time nowadays with my projects.:'(

Grateful and Appreciated if anyone could help me with this.

 

Thanks in advance, Experts.^_^

KS15

 

Edited by KickStarter15
Edited: Removed Item 2 already fixed by Subz.

Share this post


Link to post
Share on other sites



#2 ·  Posted

Not sure if the info in this post will help you or not, but @water assisted someone here with some ideas.


“Courage is being scared to death, but saddling up anyway”John Wayne

Share this post


Link to post
Share on other sites

#3 ·  Posted

Here you go:

#include <Word.au3>

$oWord = _Word_Create()
$oDoc = _Word_DocAttach($oWord, "SC preparation.docx", "Filename")

$oWord.Selection.Find.ClearFormatting
    With $oWord.Selection.Find.Font
        .Superscript = True
        .Subscript = False
    EndWith
    $oWord.Selection.Find.Execute
    With $oWord.Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = $wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    EndWith
    $oWord.Application.Browser.Next

 

Share this post


Link to post
Share on other sites

#4 ·  Posted

@Quesney, Thanks, man. Appreciated, got the idea.^_^

@Juvigy, I don't know that simple is how to convert such VB I posted. Thanks a lot, I'm new in Word UDF so might ask more in the future.:sweating:

 

Thank you Guys, for the time.

 

KS15

 

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now