ProZ.com Translation Forums

Create a Word macro | Thanks

Jean-Christophe Duc — Fri, 30 Aug 2024 11:07:00 +0000

Forum: General technical issues
Topic: Create a Word macro
Poster: Jean-Christophe Duc
Post title: Thanks

I was also wondering how to make positive use of ChatGPT,
this could be a good starting point

Create a Word macro | maybe?

Philippe Locquet — Fri, 30 Aug 2024 11:05:00 +0000

Forum: General technical issues
Topic: Create a Word macro
Poster: Philippe Locquet
Post title: maybe?

Hi,

Not sure if this will help but, I've had success in the past working on VBA using Copilot or Chat GPT. Adjusting the prompts and iteration was needed but, I got there in the end. This can be useful if you're not familiar with that kind of code and if you are willing to spend time on it.

Create a Word macro | @Stepan

Jean-Christophe Duc — Thu, 29 Aug 2024 08:13:00 +0000

Forum: General technical issues
Topic: Create a Word macro
Poster: Jean-Christophe Duc
Post title: @Stepan

Thanks for the tip

Create a Word macro | Just in case it may help you in your further research...

Stepan Konev — Thu, 29 Aug 2024 00:00:00 +0000

Forum: General technical issues
Topic: Create a Word macro
Poster: Stepan Konev
Post title: Just in case it may help you in your further research...

I created that macro by recording my clicks and key strokes.
Start recording a macro then click and press as follows:

1. Press F5
2. Select 'Table'
3. Click 'Next'
4. Click 'Close'
5. Press Alt+Shift+PageDown
6. Press Ctrl+C
7. Press Ctrl+V
8. Press Ctrl+Shift+H
9. Press Arrow Down

Stop recording.
Now you get a macro that you can run in VBA mode by pressing F5 multiple times as I described above in my previous comment.

[Edited at 2024-08-29 00:56 GMT]

Create a Word macro | Try this VBA macro (Alt+F11, Insert Module ... F5)

Stepan Konev — Wed, 28 Aug 2024 23:55:00 +0000

Forum: General technical issues
Topic: Create a Word macro
Poster: Stepan Konev
Post title: Try this VBA macro (Alt+F11, Insert Module ... F5)

I assume that you have multiple tables in a file scattered in between other regular text paragraphs:
Blah-blah-blah.
[Table1]
Blah-blah-blah. Blah-blah-blah.
[Table2]
Blah-blah-blah-blah-blah.
[Table3]
etc...
If this is not your case, please let me know.
======
Sub DuplicateTables()
'
' DuplicateTables Macro
'
'
Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext, Count:=1, Name:=""
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.EndKey Unit:=wdColumn, Extend:=True
Selection.Copy
Selection.Paste
Selection.Font.Hidden = wdToggle
Selection.MoveDown Unit:=wdLine, Count:=1
End Sub
======
*Press F5 [while in the VBA module window] as many times as you need to reach the end of your document. Probably you can make it run multiple times until it has reached the end of document, but I don't know how.

[Edited at 2024-08-29 00:26 GMT]

Create a Word macro | Thanks

Jean-Christophe Duc — Wed, 28 Aug 2024 17:08:00 +0000

Forum: General technical issues
Topic: Create a Word macro
Poster: Jean-Christophe Duc
Post title: Thanks

however I am told
If tbl.Columns.Count 2 Then
is not correct

However the rest of the macro works perfectly.
Many thanks

[Edited at 2024-08-28 17:35 GMT]

Create a Word macro | Here's one approach

Dan Lucas — Wed, 28 Aug 2024 16:53:00 +0000

Forum: General technical issues
Topic: Create a Word macro
Poster: Dan Lucas
Post title: Here's one approach

Maybe something like this?
You need to be careful with this because it goes through all tables in the document, so they all need to have the same layout.
Indenting didn't come out very well...
Very minimal testing, but does work for a simple document with one table.

Sub CopyAndHideTextInAllTables()

Dim tbl As Table
Dim cell As Cell
Dim rowIndex As Long
Dim tblIndex As Long

Application.ScreenUpdating = False

' Loop through each table in the document
For tblIndex = 1 To ActiveDocument.Tables.Count
Set tbl = ActiveDocument.Tables(tblIndex)

' Loop through each row in the current table
For rowIndex = 1 To tbl.Rows.Count
' Copy text from Column 1 to Column 2
tbl.Cell(rowIndex, 2).Range.Text = tbl.Cell(rowIndex, 1).Range.Text

' Set text in Column 1 to hidden
With tbl.Cell(rowIndex, 1).Range.Font
.Hidden = True
End With
Next rowIndex

' Remove the third column if it exists
If tbl.Columns.Count > 2 Then
tbl.Columns(3).Delete
End If
Next tblIndex

Application.ScreenUpdating = True

MsgBox "Operation completed successfully for all tables!", vbInformation

End Sub

Create a Word macro

Jean-Christophe Duc — Wed, 28 Aug 2024 15:47:00 +0000

Forum: General technical issues
Topic: Create a Word macro
Poster: Jean-Christophe Duc

Hi
I am trying to create a macro to create a bilingual file for translation in Studio.

The file I get has a series of tables, 2 columns each, one with the text to translate, the other empty for the translation.

I am trying to copy the text from column 1 into column 2, then to go back to column 1 and set it to Hidden text.
This operation creates a 3rd column, which I need to delete.

I thought I could record a simple macro, but you cannot record mouse operations, and I don't know VBA well enough to create this operation.