DEV Community: Oscar Sun（孫守真字任真）

Answer: Automatically adding hyperlinks in footnotes in MS Word

Oscar Sun（孫守真字任真） — Wed, 03 Jul 2024 11:51:53 +0000

Jul 3 '24

Like @jonsson said use StoryRange object plz, like this, you can try first:

Sub MakeHyperlinks()
Dim afield As Field
Dim url As String
Dim isHyper As Integer
Dim sr As Range

For Each sr In ActiveDocument.StoryRanges
    'For Each afield In ActiveDocument.Fields
    For Each afield In sr.Fields
        If afield.Type = wdFieldIndexEntry

…

Open Full Answer

Answer: MS Word picture replacement with VB.NET, error message for empty clipboard

Oscar Sun（孫守真字任真） — Thu, 31 Aug 2023 15:38:03 +0000

Aug 31 '23

How about using FormattedText property instead?

    'Button click opens my base document
    Private Sub test123_Click() '(sender As Object, e As EventArgs) Handles test123.Click

        Dim oWord As Object
        oWord = CreateObject("Word.Application")
        oWord.Visible = True
        Dim path As String = "C:\Users\user\basefile\"
        Dim file As String = Dir(path & "*.docx")
        Dim oDoc As

…

Open Full Answer

Answer: How to insert table in Word without clipboard using vb.net

Oscar Sun（孫守真字任真） — Wed, 16 Aug 2023 03:25:46 +0000

Aug 16 '23

You can try FormattedText property instead of the clipboard method, refer to my answer here:

Rem implement without the clipboard
myDoc.Range(tbl.Cell(tbl.Rows.count, 1).Range.Start, tbl.Cell(tbl.Rows.count, 1).Range.Start).FormattedText = tbl.Rows(2).Range.FormattedText

So, TRY THIS FIRST! give it a shot !!

open wTemp(readonly)
dim wTable as word.table = wTemp.tables(1) ' the table I need is

…

Open Full Answer

Answer: MSword - How to use find and replace to conduct advanced replacing

Oscar Sun（孫守真字任真） — Fri, 11 Aug 2023 16:02:17 +0000

Aug 11 '23

Is this is what you want?

Sub ReplaceText_MSword__How_to_use_find_and_replace_to_conduct_advanced_replacing()
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Text = "p = 0.([0-9]{3})"
        .Replacement.ClearFormatting
        .Replacement.Text = "(0.\1)"
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
    End With
End Sub

Open Full Answer

Answer: Delete "blank" lines defined by two consecutive paragraph marks

Oscar Sun（孫守真字任真） — Fri, 11 Aug 2023 04:55:32 +0000

Aug 11 '23

How many instances of MS Word (WINWORD.EXE) are running, check it from the Task Manager( Ctrl + Shift + Esc in Windows).
Be sure GetObject(, "Word.Application") returns the WINWORD.EXE IS you want to OP.
Are you sure the ActiveDocument in that objWord is the one which you want…

Open Full Answer

Answer: VBA word non-contiguous selection of all text instances

Oscar Sun（孫守真字任真） — Sat, 05 Aug 2023 14:57:28 +0000

Aug 5 '23

Just like Red Hare said, I tried the HitHighlight method of Find object and it worked.

Although this method can not really be like the Selection object or Select to be selected, it is still like the effect of the non-contiguous multi-selection. And after it runs, the range (the Parent…

Open Full Answer

Answer: Looking for a VBA or Addin for Auto numbering text box in slides

Oscar Sun（孫守真字任真） — Fri, 28 Jul 2023 15:17:13 +0000

Jul 28 '23

This is a simple example, the conditions is :

all the text in your textbox is numbered by paragraph
And the texts in all the slides are continuous, there is a change in the middle, or the numbering is renumbered, all of them will be updated synchronously( ie. renumber)
this…

Open Full Answer

Answer: My VBA code does not recognize the shape it pasted in excel. However, if I run the code after not ...

Oscar Sun（孫守真字任真） — Fri, 28 Jul 2023 11:20:43 +0000

Jul 28 '23

Try to change these:

1 PP.CommandBars.ExecuteMso "PasteSourceFormatting" 'Paste

PPSlide.Shapes.Paste

Set PPShape = PPSlide.Shapes(7)

Set PPShape = PPSlide.Shapes(PPSlide.Shapes.count)

so like this:

...
        expRng.Copy 'Set range from excel
        'PP.CommandBars.ExecuteMso "PasteSourceFormatting" 'Paste
        
        Set PPSlide = PPPres.Slides(vSlide_No)
        'Set PPShape = PPSlide.Shapes(7) 'Set shape to be altered
        PPSlide.Shapes.Paste
        
        Set PPShape = PPSlide.Shapes(PPSlide.Shapes.Count)
        
        With

…

Open Full Answer

Answer: Search a string from inbutbox in a different table with dlookup and return the value to a MsgBox

Oscar Sun（孫守真字任真） — Fri, 28 Jul 2023 10:12:59 +0000

Jul 28 '23

How about this?

You have an extra opening bracket, Both！

X = (DLookup("Column B", "Names", "Column A =" & sr) ⇒

X = DLookup("Column B", "Names", "Column A =""" & sr & """")

or use StrComp function:

X = DLookup("Column B", "Names", "strcomp(Column A,""" & sr & """)=0")

ps…

Open Full Answer

Answer: Using VBA to print current Word doc to pdf without saving or dialogs

Oscar Sun（孫守真字任真） — Fri, 28 Jul 2023 08:20:01 +0000

Jul 28 '23

So you just want to mark the broken cross-references to check out, right?

How about this:

Sub MarkInvalidCrossReferences()
    Dim ref
    Dim f As Field
    Dim d As Document, rng As Range
    Dim cln As New VBA.Collection, ur As UndoRecord
    Set ur = word.Application.UndoRecord
    ur.StartCustomRecord "MarkInvalidCrossReferences"
    Set d = ActiveDocument
    For

…

Open Full Answer

Answer: Formatting issues in generating multiple docs from a template(mail merge)

Oscar Sun（孫守真字任真） — Thu, 27 Jul 2023 16:44:27 +0000

Jul 27 '23

Because it is too complicated, much, large; please forgive me for doing it until this line Timer2 = Timer() first. You see so far, if this is satisfactory for you, I can resume later and continue.

Sub CreateDocuments()
    ' Define the workbook and worksheet
    Dim wb As Workbook
    Set wb

…

Open Full Answer

Answer: Accessing the Value from a dropdownlist that is in a cell in a Word Table

Oscar Sun（孫守真字任真） — Thu, 27 Jul 2023 12:59:37 +0000

Jul 27 '23

Your code has a lot of problems, as I mentioned briefly in the comments. Try to see if the code below worked for you.

Private Sub CommandButton1_Click()
    Dim SurveyData
    
    
    Dim Tb1, Tb2 As word.Table
    Dim irow, icol, i, j, Tabnum As Integer
    Dim Strng As String
    Dim RowCount, Responsevalue As

…

Open Full Answer