For plain text editor use the following:
    Sub toggleWordWrap()
        Dim wrap As Boolean

        Dim props As EnvDTE.Properties
        props = DTE.Properties("TextEditor", "PlainText")
        Dim prop As EnvDTE.Property = props.Item("WordWrap")
        wrap = prop.Value
        prop.Value = Not wrap
    End Sub

For other language, change the second parameter of DTE.Properties to
desired language. For the list of language names see keys under
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\VisualStudio\7.1\AutomationProperties\TextEditor.

See the macros TurnOnWordWrap / TurnOffWordWrap supplied in the Samples
macro project, Utilities module.

Also, there is a command that you can execute to toggle the word wrap:

DTE.ExecuteCommand("Edit.ToggleWordWrap")

Hi Frank,

Thank you posting!

Besides Peter's solution, you can also use issue the following command in
your macro to toggle the wordwrap status directly:

DTE.ExecuteCommand("Edit.ToggleWordWrap")

Thanks!

Best regards,

Gary Chang
Microsoft Online Community Support
==================================================
When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.
==================================================
This posting is provided "AS IS" with no warranties, and confers no rights.