Solution to Problem: How can I add a custom shape to H1 with a list style applied?

How can I add a custom shape to H1 with a list style applied?

I have set up a template document for a client.

I have set heading styles with list style applied to get multilevel list numbers.
So heading 1 cascades to 1.1 and heading 2 to 2.1 etc.
I've applied styles to each heading, however I don't know how to achieve an effect that will help me to fulfill the companies
brand guidlines.

I'd like to add a custom shape to the heading 1 behind the heading number.

Solutions to the Problem How can I add a custom shape to H1 with a list style applied?

Download SmartPCFixer for Free Now

In Word, styles include only formatting, not shapes or text.
List styles make a special exception for text, but shapes (as opposed to characters that look like shapes, such as Wingdings) aren't supported.

You can add the shapes to the headings after the headings are inserted with the correct styles.
As a manual operation:
Insert the shape anywhere in the document, and then cut it to the clipboard.Open the Replace dialog and click the More button.Click in the Find What box, then click the Format button and choose Style.
Select the Heading 1 style and click OK.Click in the Replace With box and enter the code  ^c^&  (which corresponds to the clipboard content followed by the found text).Click the Replace All button.
As a macro (see
http://www.gmayor.com/installing_macro.htm if needed):

Sub ShapeInH1()
    Dim shapeFile As String
    shapeFile = "C:\Users\Jay\Pictures\Web Images\pointer.gif"   ' change as needed
   
    Dim rg As Range
    Set rg = ActiveDocument.Range
    With rg
        .Collapse wdCollapseEnd
        .InsertAfter " "
        ActiveDocument.InlineShapes.AddPicture _
            FileName:=shapeFile, Range:=rg
        .Cut
    End With
   
    Set rg = ActiveDocument.Range
    With rg.Find
        .Format = True
        .Style = wdStyleHeading1
        .Replacement.Text = "^c^&"
        .Execute Replace:=wdReplaceAll
    End With
End Sub

Run CHKDSK to Fix How can I add a custom shape to H1 with a list style applied?

• Go to the Start button.
• In the Search box, type "cmd" (without quotes) and press Enter.
• At the command prompt, type "chkdsk /r /f" (without quotes) and press Enter.
• Reboot your computer.

An error might pop up:

"Access denied as you do not have significant privileges. You have to invoke this utility in elevated mode."

If you receive the above error message, it means you are not logged into you computer as an Administrator. If that's the case, follow these steps to run the command prompt in elevated mode:

• Go to theStart button.
• Go to "All Programs > Accessories" and right click on "Command Prompt".
• Select "Run as Administrator".
• In the Search box, type "cmd" (without quotes) and press Enter.
• At the command prompt, type "chkdsk /r /f" (without quotes) and press Enter.
• Reboot your computer.

Another Safe way to Repair the Problem: How can I add a custom shape to H1 with a list style applied?:

 

 

How to Fix How can I add a custom shape to H1 with a list style applied? with SmartPCFixer?

1. Click the button to download Error Fixer . Install it on your computer.  Open it, and it will perform a scan for your system. The junk files will be shown in the scan result.

2. After the scan is done, you can see the errors and problems which need to be fixed.

3. The Repair part is done, the speed of your computer will be much higher than before and the errors have been fixed. You can also use other functions in this software. Like dll downloading, junk file cleaning and print spooler error repair.

Related: Am logged on to the Wa State Empl page but cannot get the check boxes on the application to show up on my computer My computer is a Toshiba Laptop running MS Windows XP Home Edition 2002 I have pop up blocker turned off asus driver download How do you backup all files to an external harddrive with Windows XP asus drivers I see BLUE when trying to install Windows6 1 KB958559 x64 RefreshPkg msu asus motherboard drivers Samsung A50 5MP Digital Camera will not connect to my 64 bit laptop with Windows 7 asus mainboard driver download START screen on Windows 8 blank No applications visible asus driver Windows Media Center opens but the closes program by itself and offers no solution asus driver Windows updates failing with errors 800B0100 and 80073712 asus motherboard drivers Realtek AC97 audio drivers for Windows 10 Realtek AC97 audio drivers for Windows 8.1 Realtek AC97 audio drivers for Windows 8,All Programs On The Desktop Open The Windows Media Center,Adding Radial Dials To Forms In Word 2010,Adobe Flash Player Up-dates Will Not Download. Manage Add-ons Does Not Show Anything Disabled.,Anything I Type In The Search Engine Immediately Closes IE 8.,Alps Pointing Device Stops Working And Resumes.
Read More: [Solved] Windows Live Messenger shows on taskbar even though,[Solved] Is there a way i can do restore to my previous back,Fast Solution to Problem: i've connected my phone to laptop for running internet on it. but it is running slow and my web browser is not responding.,Fast Solution to Problem: Converting Fractions To Decimals,[Solved] i want to watch a video of my family on facebook but it says i must get adobe media player installed so how do i do this?,Programs Compatibility Application Applications App Apps Game Games Legacy Crash Crashes Hang Hangs,iMesh is not working only minimizes,How I can I restore MS-DOS backup (.bak) to Vista?,Won't connect to network, Ipconfig shows media state disconnected, Ipconfig release and renew not functional,On start-up I see: "Checking file system on C: The type of the file system is NTFS."